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1.0 Gt.NtRAL INFORMATION 

1. 1 PROGRAM ABSTRACT 



THIS Ij a SBC 

or A TSV05 

(Q BUS). THE PROGRAM PROVIDES CRROR dtSSAGF. 

FUNCTIONS THAT AID IN THE REPAIR 

EIGHT TEST WHICH ARE EXECUTED IN 



11/21 • RESIDENT DIAGNOSTIC WHICH CHbCKS 
MAGTAPE SueSlSTEM WHiLt CONNECTED TO A 

WHICH 
THIS 



OF THE DEVICE 
SEQUENCE . 



TH( FUNCTIONAl ITf 
SBC Xl/?\* STSTf-M 

IDENTIFi FAILING 
DIAGNOSTIC CONSIST 



OF 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
Rl^TIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIOF 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP», ACT. APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

SBC-ll/21* PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES 52K WORDS OF MEMORr 

(2tjK USEABLE I.E. 4K FOR I/O PAGE) 

TSV05 MAGTAPE SUBSYSTEM CDRiVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SVS VERSION 34 OR LATER) 

PDP-11 DIAGNOSTIC LOADER/MONITOR (XXOPO 

1.5 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. XXDP* USERS MANUAL 

2. TSV05 TRANSPORT SUBSYSTEM USER'S GUIDE 

3. TSV05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL 

4. TSV05 TRANSPORT SUBSYSTEM INSTALLATION MANUAL 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FLWCTIONAL SBC-11/21* CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

Fl*4CTI0NAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDPO 

i.^ ASSUMPTIONS 
ALL MAROWAUt EXCEPT THE HARDWARE UT^DtR TEST XS ASSUMED TO WORK 



-_--r. . >?= 
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PROPfcrtL I OR FAl St fcRRORS CAN Bt' RFPORTfD. 

THE TAPF BEING USED ON THE TSO'^ TRANGPOHT IS A '<NOWN GOOD RttI 

Of TAPE. 

CNTSAA AND CNTSBA HAVE SUCESSFULLr RUN. 

d.O OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, RRFFR TO THE XXDP* USER'S MANUAL. 

*?.! COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICFS 
(SL*>ERVIS0R). THIS SECTION LISTS THE COMMANDS AND GIVES A VER> 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 

COM^^ANO EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETt^N TO XXOP* MONITOR (XXDP* OPERATION ONLY!) 

ADO ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE 0" ALL Fl AGS (SEE SECTION 2.5) 

ZfL/^OS CLEAR ALL FLAGS SEE SECTION 2.5) 

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY. FOR EXAMPLE, TYPE "STA" INSTEAD OF "START". 

2,1.1 OPERATOR COMMANDS 



THE TSV05 DIAGNOSTIC IS A SBC-11/21* DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE RiFiRENC&O XN iHE 
XXDP* USERS MANUAL, THE USER ENTRY IS IN QUOTES* &"'i'xw&w 4.r* in& 



BOOT THE DIAGNOSTIC MEDIA 



.R NTSC?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 

CNTSC-A-0 

♦•♦•TSVQ5 LOGIC DIAGNOSTIC**** 

UNIT is TSV05 

'DR 

2*2 SWITCHED 
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THfRe. ARb SFVFRAl SWITCHES WHICH Af^t USED TO MODIFY SUPERVISOR OPFRATION 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL Of THE L TGAl 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OE EACH. 
IN THE DESCRIPTIONS BELOW. A DECIMAL NUMBER IS DESIGNATED BY "DDDDD'-. 

SWITCH EfTECT 

/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAhtf>LE - /TESTS: 1 :5: 7 - 10. 
THIS LIST WILL CAUSE TESTS 1.5.7.8.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BL RUN. 

'PASS: DDDDD EXECUTE DDDOO PASSES CDDOOD - 1 TO 64.100) 

/FLAGS :rLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

IN SElTION 2,1, 

/EOP:ODD0D REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DODDO ■ 1 TO 64000) 

/UNITS:LIST TEST/ADO/DROP ONI Y THOSE UNITb SPECIFIED 

IN THE LIST. LIST EXAMPLE /UNIT5:0:5; 10 1<? 
USE UNITS 0,5,10.11.12 (UNIT NUMBERS - 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS :l-5/PASS:10OO/E0P: 100 

THE EFFECT OF THIS COMMAND WILL BE : 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 Tir^S .-iNO 5) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE. TYPE "/TES:1 5" INSTEAD OF "/TESTS: 1 -5" . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 





TESTS 


PASS 


FLAGS 


top 


UNI 


START 


X 


X 


X 


X 


X 


RESTART 


X 


X 


X 


X 


X 


CONTINUE 




X 


X 


X 




PROCEED 






X 






DROP 










X 


ADD 










X 


PRINT 












DISPLAY 










X 


FLAGS 












ZFLAGS 












EXIT 













2.5 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH, TH^ /F^AGS COMMAND MAY f^SO B^ UStD TO CLEAR 
ALL FLAGS. UlTH THE EXCEPTION OF' THt START AND OT.AGS COMMANDS^ 
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NO COMMANDS AKffCT THt- STATL OF THE TLAGSj THEr REMAIN bt T OR 
CIEARFD AS SPECIFItO Ot THfc LAST KLAG SWITCH. 



FLAG 

HOE 

I Ot 

lER* 

IBR* 



ixt* 

PR I 
PNT 
BOE 
UAM 
I5R 



IDR 
ADR 
LOT 



EFTECr 



HALT ON ERROR CONTROL IS rtrT'jRNFO TO 
RUNTIME SERVICES COMMAND MODE 
LOOP ON ERROR 
INHIBIT ALL ERROR REPORTS 
INHIBIT ALL ERROR REPOR" S EXCEPT 
FIRST LFVEI (FIRST LEVHL CONTAINS 
ERROR TYPE, NUMBER. PC. TEST AND UNIT) 
INHIBIT EXTENDED ERROR -REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 
DIRECT Mi^SSAGES TO LINE PRINTER 
PRINT TEST NUMBER AS TEST EXECUTES 
"BELL ' ON ERROR 

UNATTENDED MODE CNO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 
INHIBIT PROGRAM DROPPING OF UNITS 
EXECUTE AUTOOROP CODE 
LOOP ON TEST 

uERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE THE XXDP* USER'S MANUAL FQP 
SPECIFY MORE THAN ONE FLAG WITH 
TO CAUSE THE PROGRAM TO LOOP ON 
AND TYPE A "BELL" ON ERROR. YOU 

/FLAGS :10E:IER:B0E 



HORE DETAILS UN FLAGS. YOU MAf 
THE FLAG SWITCH. FOR EXAMPLE. 
ERROR. INHIBIT ERROR REPORTS 
MAY USE THE FOLLOWING STRING: 



^.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RtWTIME SERVICES WILL PROMI>T 
THE USER FOR HARDWARE INFORMATION BT TYPING "CHANGE HW (L) ." 
YOU MUST ANSWER "Y** AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXOP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y". THE RI^TIME SERVICES WILL ASK FOR THE NUMBER 
OF LWITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SLPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
Tt* HARDWARE PARAMETERS ARE TO BE CHANGED (B> THE OPERATOR). 



ON A N ■ (NO) 
RUN USIl!<G THE 



RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 

DEFAULT VALUES FOR ALL QUESTIONS. THt OtFAULT ADDR&SS AND VECTOR ARt: 



TSBA/TSOe • 1/6000. VECTOR • ^^A 
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ON M 1 ' ttES) RKSPONSt TO THt QUESTION. THE FOLLOWING QUPSTTCNS Will 
THfN BF ASKFO TO ALLOUl THE OPERATOR TO SEl t.CT THE UNITS TO BF TESTED A 
VALUE. If PRESFNT. LOCATED TO THE itFT Of THE QUESTION MARK IS THE 
DEFAULT VALL*-: THAT UIU. BE TAKEN IF ONLY A CARRIAGE RETURN IS TiPED AS A 
RESPONSE. A "CD*" IN A Ql€STION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RFSPONSF. AN "CO)" INOTCATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN '-(LV INDICATES THAT A LOGICAL .vlSHuNSE IS TO BE MADE: 
Y" FOR YES. "N" FOR NO. 



C IINITS CD) ? 



UNIT 



<ENTER THE N'JMBER Of M7196 CONTROLLERS 
PRESENT TO BE TESTED'- 



DEVICE ADDRESS 
VECTOR (0) ??A ? 



CO) 176000 ? *ENTER THE ADDRESS OF THE 
1SBA/T5DB REGISTER^ 

<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH Qf THE NUMGER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION. LOGICAL UNIT 
Nl^«ERS ARE ASSIGNED IN ORDET. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FQR TESTING AS FOLLOWS: 
UP TO 4 TSV05 CONTROLLERS PER 11/21 ♦ AND UP TO 2 DRIVES PER CONTROLLER 

2.b SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANCE SW CD ? ' 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"Y-. THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHC S) . 



THt FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW CD ? <TYPE y TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED> 



OR CONTINUE 



INHIBIT ITERATIONS (L) N ? 



*TYPE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RL»^ AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 



2.6 EXTENDED P-TABLE DIALOGUE 



WHEN YOU ANSWER THE HARDWARE QUESTIONS. YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. ^HE SIMPLEST 
WAY TO BUILD THIS TABLt IS TO ANSWER ALl QUESTION-^ FQR EACH 
UNIT TO Bt TESTED* IF YOU HAVE A MULTXPL&X&D QEVXCE SIJCH AS 
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A MASS STORAGE CONTROlLER WIIH S(- VI RAL DRIVE'3 OH A COMM'JNJ CAT ION 
OevlCt WITH SEVERAL LINES. THIS BECOMES TEDIOUS SINCE MOST Ot 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE Ef-EICIENT METHOD. SUPPOSt lUU ARE TeSTINC, 
rt DEVICE, the: XYU. suppose this DEVICE CONSISTS Oi 
A CONTROL MODULE WITH EIGHT UMTS C SUB DEVICESJ ATTACHfO TO IT. 
THESE UNITS ARE DESCRIBED Bl THE OCT.nL NUMBERS THHOUGH /. THERE 
IS ON*: HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THf 
Q-EACTOR. THIS Q-TACTOR MAI BE OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XIU WITH EIGHT UNITS. 

UNITS (D) ? 8^CR> 

UNIT 1 

C5R ADDRESS CO") ? 160000<CR> 
Sie-OEVICE t> (0) ? 0<CR> 
Q-FACTOR (0) ? 1<CR> 

UNIT 2 

CSR AODRESS (0) ? I60000<CR> 
SUB-DEVICE d (0) ? 1<CR> 
Q-FACTOR (0) 1 ? 0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000'CRi 
SUB-DEVICE * (0^ ? 2<CR> 
Q-FACTOR (Oj ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 5<CR> 
Q-FACTOR (0") ? <CR> 

UNI I 5 

CSR AODRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 4<CR> 
Q-FACTOR (0) ? <Q9> 

IWIT 6 

CSR ADDRESS CO) ? K>0000<CRi 
SUB-DEVICE (0) ? S<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 7 

CSR AODRESS CO") ? 160000<CR> 
SUB-OEVICr CO) ? 6<CR* 
Q-FACTOR CO) ? 1<CR> 

UNIT 6 

CSR AODRESS CO) 160000<CR> 

SUB-DEVICE » CO) ' 7<CR> 

Q-FACTOR CO) 1 ? <CR> 

NOTICE THAT THE OEfAULT VALUE FOR THE Q FACTOR CHANGES WHEN A 
NON-DFFAU T RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 
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AS irOU CAN 5F.E ^ ROM THt ABOVt t-xaMPLE. THt HARDWARt: PARAMe TKRS 

DO NOT VARY SIGNir ICANTL.Y FROM UNIT TO UNIT. THE PROCf DURf- 'iHOWN IS 

NOT VFHY EKf-ICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT 'iPFCIF ICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

i> UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? I60000<CR-» 
SUB DEVICE & (0) ? 0.i<CR> 
Q FACTOR (0) ? 1,0<CR^ 

UNIT 3 

CSR ADDRESS CO) ; 160000<CR> 
SUB DEVICE CO) ? 2-5<CR> 
Q FACTOR (0) ? C<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE * CO) ? 6.7<CR> 
Q-rACTOR CO) ? 1<CR* 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE .'RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THRCKIGH THE QUESTIONS. IN THE FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST N*JMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 5. 4 AND 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 ANO RESPECTIVELt 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE B'iEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

* LWITS CO) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE CO) ? 7<CR> 
Q-FACTOR CO) ? 0, 1 .0. . . , 1 . 1<CR> 

AS TOU CAN SFE FROM THIS EXAMPLE. NULL REPLIES CCOMMAS ENCLOSING 
A NULL FIELD) TELL THE RtfJTIME SERVICES TO REPEAT THE LAST REPLY. 

2.V QUICK START-UP PROCEDURE CXXDPO 
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TO START UP THTS PROGRAM; 
1. BOOT XXDP.- 



sta 0010 



2. GIVE THE DATE AND ANSWER THE LSI AND 'jOH/ (IK THERF 
IS A nOCK) QUESTIONS 

^. TYPE "R NAME'-, UHERF NAME IS THE NAME OF' THE BIN OR BIC 
F"ILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HU" QUESTION WITH "i" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOILOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS, THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS" 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERRC R MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "JER" FLAG IS SET (SECTION 2,3 
THE GENERAL EIROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCjXXXXXX 
ERROR MESSAGE 

.WHERE; NAME • DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL. DEV FATAL, HARD OR SOFT) 

NUMBER - ERROR NUMBER 

LWIT NUMBER « - N (N IS LAST UNIT IN PTABl ( ) 

TST Nl^«ER - TEST AND SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.5). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERRPR McSSAGEb CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "lEP". "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3), 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

BflOW ARE SAMPLE ERROR MESSAGES. EACH tRRQR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGHQSTIC. 
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ERRuR MESSAGE fiXAMPLK 1 



sea 0011 



THIS ERROR IS INDICATIVE. QH AN INCORRECT REGISTER OR STATUS WORD ReTUPNFD 
TO THE DIAGNOSTIC. THE FIF^ST PART DEFINES fHt. TEST FUNCTION AND UNIT THAT TAIl FD 
THE SECOND PART PRIOVIDE*. THE REGISTER BITS AND THEIR MNEMONIC^ FQR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART i^ THE LXPtCTEU AND RECFTVFD 
DATA. 



T5T: 016 FIFO EXERCISER TEST 

CNTSC HRD ERR 01610 ON \MIJ 00 T5T 016 SUB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNAl S IN WORD Ofl: - DESIGNA 
PARERR<15> leOT <12> IFMK <9* IRDt 
IRESV2<14> IIDENT<11> IHER *6> lONL 
IRESV1<13> ICER <10> ISPEED<7^ ILDP 

TAPE BUS SIGINALS IN WORD i>9: 
CATMI5<7> ILW<6> 0UTRDY<5> INRDY^4> 

MESSAGE BUFfER ADDRESS ■ 047352 

MESSAGE BUTFER CONTENTS: 



TOR <BIT tt> 
<e> IRWD<?> 
<5> IFBY<1> 
<4> IFPT<0> 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



<K) 
*1 

*2 
03 

«4 
*5 
06 

*7 
*6 
*9 



uXPO: 
EXPO: 
EXPO: 
EXPO: 
EXPO: 
EXPO: 
EXP[>: 
EXPO: 
EXPD: 
EXPO: 



100020 
00001? 
000000 
OOOOIO 
000000 
000000 
000000 
000000 
070217 
000074 



RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
PtCV: 
RECV: 
RECV: 



100020 
000012 
000000 
000010 
000000 

oooooo 

000000 

oooooo 

070217 
000034 



XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
000040 



ERROR MESSAGE EXP' . ^t 2 

THIS ERROR SHOWS A FATAL FUNCTTON ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CNTSC HRD ERR OM. ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT ^r TER SPACE RECORDS COMMAND 
TSSR • 100214 



TSSR BITS SET: SC.bSR 
TERMINATION CLASS CODE 
PACKET ADDRESS - 026420 
PACKET WORD « • 140010 
PACKET WORD 9 - 000010 
PACKET WORD 9 - OOOOOO 
PACKET WORD i> ' 000024 



UNRECOVERABLE ERROR 



ERROR MESSAGE EXAMPLE 3 

THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A RtWlNG 
WITH EXTENDED FEATURES MODE ENABLED. 



USt-R OOCUMt.NTATlON 



MACRO Ml^OO t?5-MAR-8A 0^:44 PAGl-. A-^-> 



sta ooii^ 



CNTSC HRD FRR 001^1 ON LfNI f 00 TST 001 SUB 00^^ PC: Or'??06 
MOT BIT XSIC^ NOT SET DURING REWIND CEXTENDED TEATURES MODE) 
EXPO: OJCJI? h^f^CV: 000112 XQR ; 000200 

4.0 PERrORMANCE AMO PROGRESS REPORTS 

AT THE END CF EACH PASS. THE PASS COUNi IS GIVEN ALONG WITH THE 
TOTAL NLTIBER Or ERRORS REPORTED SINCE THr DIAGNOSTIC WAS STARTfO. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THC END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (SBC-11/210 

DR>STA/FLA:PNT:HCE 

UNITS (D) ? 1 

UfJiT 

DEVICE ADDRESS (0) 176000 ? <CR> 

VECTOR CO) 224 ? <CR> 

CHANGE SW (L) ? N<CR^ 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT UN 
ERROR". 

TST: 001 INITIALIZE *4 TEST 

TST: 002 OFF-LINE REJECT AND REWIND TEST 

TST: 005 BASIC WRITE DATA TEST 

TST: 004 BASIC READ DATA TFST 

TST; 005 SPACE RECORDS TEST 

TST: 006 REREADS TEST 

TST: 007 WRITE DATA RETRY TEST 

TST: 008 WRITE TAPE MARK TEST 

ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FTGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A FALCON 
PROCESSOR. 

THE PROGRAM RUNS IN TWO MODESi rjO ITERATIONS ANt) DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST 15 RUN ONCE. WIIH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED B> 



r.i.i 

UStR DOCUHfcNTATION MACRO Hl^OO -^S-MAR-Sn 0'):44 PAt;t. A 10 

SEQ 0013 

THE ITF^RATION COUNT. NO ITfcRATIONS HODK IS StLFCTfc.D BY ANSWERING THt 
INHIBIT ITERATIONS OUES^ION WITH A "Y" CrE.-S). 

THE TIMES RtQUlRED TO RUN TC:SrS 1 THROUGH 8 IN ONE COMi'rHNO: 

Q.V. 7 MINUTF.S 
DEFAULT 34 MINUTES 

MORE EXHAUSTIVE CHECKS ARE AVAILABLE BY ALLOWING ThE DIAGNOSTIC PROGRAMS 
TO RUN FOR MORE THAN ONE PASS. THE SECOND PASS OF THE PROGR/^M IS MORE 
COMPREHENSIVE THAN THE FIRST PASS. ALL ITERATIONS AFTER THE FIRST PASS 
ARE THE SAME. HOWEVER. THEY ARE SUBSTANTIALLY LONGER. 

5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STA(RT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES: 

CHANGE HW (L) ? 

it UNITS (D) ? <FNTER THE NUMBER OF M7196 CONTROLLERS 

PRESENT TO BE TESTED^ 

UNIT 

DEVICE ADDRESS (0) 176000 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER* 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR* 

THE ADORE'jS and VECTOR QUESTIONS WILL PE ASKED FOR EACH OF THE NUMBER OF 

UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS'"' -^ _ST10N. LOGICAL UNIT 

NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECr'ED FOR TESTING. 

IN ADDITION. ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS. AS 
FOLLOWS; 

CHANGE SW (L) ? 

INHIBIT ITERATIONS CD N ? 

6.0 TEST SUMMARIES 
T£ST i! INITlALI/h itA TEST 



UStR DOCLJMLNTATION 
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SEQ 0014 



THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOOPBACK ENABLED. FORCING WRONG PARITY. INVERTING SENSE Oh 
EXTENDED FEATURES SWITCH. ETC.) 

TEST 2; OFF-LINE AND REJECT REWIND 

tHlS If.ST VERIFIES l^ASIC TAPE -MOTION COMMAND DECODING AND BASIC 
OPERATION! 0'" THE REWIrC POSITIONING COMMAND. IT DOES NOT 
NtCESSAHILt L'^MONSTRATE THAT THE TRANSPORT CAN BE REWOUND ^ ROM AN 
ARBTTRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
CHtC^ THE OPERATION OF THE REWIND COMMAND SINCE THEt MUST 
ViPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
SEQUENCES. 



TE'jT 5: BASIC WRITE DATA 

THIS TEST VERIFIES THAT THE WRITE DATA (NEXT'. COMMAND OPERATES 
PROPERLY. UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLt 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING TH;aT THE COMMAND TERMINATED CORRECTLY WITH 
The CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 



CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS 
ARE ONLY CHECKED WHEN RUNNING ON A ll/2l» SYSTEM WITH 
12ftK WORDS OF MEMORY! 



LINES(16 vn 
MORE THAN 



TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDARIES. RECORD SIZES (UP TO 64K SYTE5 IF MEMORi 
SPACE IS AVAILIABLE). AND BYTE-SUAP CONTROL ARE USED. THIS TEST 
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT , ILLEGAL DATA 
Bt^FFR ADDRESSES, ILLEGAL COOES IN THE MODE FIELD OF THE BASIC 
READ COttlANO. AND DATA BUFFERS IN NON-EXISTANT MEMORY. 

CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(i6-21) 
ARE ONLY CHECKED WHEN RUNNING ON A 11/21* SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 

********* ****«*********«4*«44,4 44 4 44 444444,4,^4,4,4,*4,4,44,^4,^4^^«4,4,^4.4,^4,^^ 



TEST 5: SPACE RECORDS 



THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COMMANDS OP&RATE PROPERLY WHEN SPACING 



UShR DUCUMtNTATION 
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OVER NORMAL DATA RFCORCS. OPFRATION WHEN SPACING OVER TAPt MARK^j 
IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
SHOLCO HAVE BEEN Rl>l SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUl 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
OF THF. SUBTESTS. THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
OF VARYING SIZES AND DATA CONTENTi THE FIRST 4 BtTES OF FACH 
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TMPF . AMtR 
EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY RFADINC, 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 

TEST 6: REREADS 

THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIOfJS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES. RECORD SIZES CUP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP CSWP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG. RECORD 
LENGTH SHORT, READ REVERSE AT BOT. ILLEGAL DATA BUFFER ADDRESSES. 
AND DATA BUFFERS IN NONEXISTENT MEMORY. 

CAUTION 
THE LSI BUS CfllVERS FOR ALL AVAILABLE ADDRESS LINtS(l6-ai) 
ARE ONLY CHECKED WHEN RUNNING ON A 11/21 • SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY' 

TEST 7: WRITE DATA RETRY 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE, WRITE DATA) 

TEST 6: WRITE/READ TAPE MAFtK 

THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECC THE 
TAPE MARK. IN ADDITION. SINCE WRITE TAPE MARK IS THE FIRST 
SieCOMMAND ^©ER THE FORMAT COMMAND BEING TESTED. IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
FORMAT COMMANDS WITH ILLEGAL MODE COOES ARE REJECTED. 



7,0 MAINTENANCE HISTORY 



REVISION A - MARCH 1982 



SEQ 001^ 



CVT5CA0 ■> CNTSCAO JAKI BERG 9-AP^-l984 

CHANG&S WER£ MADE TO CVTSCAO TO PRODUCE CNTSCAO FOR THE 
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n, 



iEQ 0016 



^Al CON-PLUS PROJECT CSilC- 11 ^21 O . CHANGtb, MARKF.D Br 

'•JB REV A-0" ARE* 

SET THE 'ODT BREAK VECTOR (LOCATION 140) TO THE 
STARTING ADDRESS Qf TAl CON' S OOT ROM C 170000 OCTAL ) 
- LOWER THE GENERAL INTERRUPT PRIORIT. TROM 7 TO f> . 
■ CHANGE DEFAULT CSR ADDRESS FROM 172540 TO 176000. 
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SEQ OOIV 



^ 






? 






4 






10 






11 
12 
13 


000000 








19 


000000 




20 




002000 


21 


002000 
002000 




22 






23 






24 






25 






26 






27 






26 






29 


002000 




30 


002000 
002000 






002000 


103 




002001 


116 




002002 


124 




002003 


123 




00.?004 


103 




002005 


000 




002006 


OOO 




002007 


000 




002010 






002010 


101 




002011 






0020 U 


060 




002012 






002012 


000000 




002014 






002014 


001217 




002016 






002016 


112370 




002020 






002020 


112522 




002022 






002022 


002146 




002024 






002024 


002156 




002026 






002026 


113004 




002050 






002050 


000000 




002032 






002032 


000000 




002054 






002034 


000000 




002056 






002036 


000000 




002040 






002040 


002124 



TSV2: t 



.TITLE 


T5V2 - PROGRAM HtADtR 


.SHTTL 


PROGRAM HHADER 


.MCALL 


SVC 


SVC 


; INI 


.FNABLE 


LC 


.NLIST 


BEX.CND 


.ENABL 


ABS.AMA 


.-2000 




BGNMOO 


TSV2 



; INITIALIZE SUPERVISOR MACROS 



* * 



THE PROGRAM HEADER IS THE INTERFACE BETUEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



L $NAME 



POINTER BGNSW . BGNSF T , BGNAU , BGNDU , BGNRP T 
HEADER CNTSC,A.0.655. ,0 

(DIAGNOSTIC NAME 





.ASCII 


/c/ 






.ASCII 


/N/ 






.ASCII 


/T/ 






.ASCII 


/$/ 






.ASCII 


/c/ 


•N* 




.BYTE 









.BYTE 









.BYTE 







L$REV: : 






;REVISION LEVEL 




.ASCII 


/A/ 




LtOEPO: 






lO 




'.ASCII 


/o/ 




LJUNIT; 






jNUMBER OF UNITS 




'.WORD 







LiTI^t.: 






iLONGEST TEST TIME 




'.WORD 


655. 




LJHPCP: 






(POINTER TO H.W. QUES. 




'.WORD 


L$HARD 




LJSPCP: 






(POINTER TO S.W. QUES. 




'.WORD 


L$SOFT 




L$HPTP: 






jPTR. TO DEF. H.W. PTABLIi 




'.WORD 


L$HW 




LiSPTP: 






(PTR. TO S.W. PTABLE 




' . WORD 


L$SW 




LILADP: 






(DIAG. END ADDRESS 




'.WORD 


LILAST 




LJSTA; ; 






(RESERVED FOR APT STATS 




.WORD 







L$CO:: 










.WORD 







L$DTYP: 


; 




(DIAGNOSTIC TYPE 




.WORD 







L$APT: : 






(APT EXPANSION 




.WORD 







UiOTPit 






(PTR. TO DISPATCH TABLE 




.WORD 


LiDISPATCH 



TSV;^ PROGPAfI HEADER MACRO Mlc_^00 
PROGRAM HEADER 
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StQ 0018 



002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 

ooaiao 



000000 

000000 

000000 

003 
003 

000000 
000000 

000000 

003372 

023002 

000000 

OOOOOO 

022470 

022566 

OOOOOO 

003400 

104035 

OOOOOO 

021646 

022754 

022674 

021636 

OOOOOO 

OOOOOO 

OOOOOO 



l.JPRIO 
LSENVI 
L$EXP1 
LJMREV 

L$EF:: 

L$SPC: 

L$DEVP 

L $REPP 

L$EXP4 

L$EXP5 

L$AUT 

L$OUT 

LJLUN 

L$DESP 

L^LOAD 

LiETP 

LJICP 

LJCCP 

L$ACP 

LiPRT 

LITEST 

L$DLY: 

L5HIME 



.WORD 

.WORD 

.WORD 

.BYTE 
.BYTE 

.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



jDlAGNGSTIC RUN PRIORITY 


jKLAGS DESCRIBE HOW IT WAS SETUP 


jExPAN'ilON WORD 


;GVC REV AND EDIT 
C»REVISI0N 
CREDIT 

iDIAG. EVENT FLAGS 







L$0VTYP 

L$RPT 





LJAU 

LJDU 



LJDESC 

EiLOAD 



LJINIT 

LJCLEAN 

L$AUTO 

LJPROT 









; POINTER TO DEVICE TYPE LIST 
;PTR, TO REPORT CODE 



jh'TR. TO ADD UNIT CODE 

jPTR. TO DROP UNIT CODE 

jLitj rvji"* EXERCISERS TO FH i 

;?rr 'LH TO DIAG. D:" CRIPTIOtJ 

iL .fiERATE SPECIAL AUTOLOAD EMT 

;POINTER TO ERRTBL 

jPTR. TO INIT CODE 

;PTR. TO CLEAN-l»P CODE 

jPTrt. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

J TEST NUHBER 

I DELAY COUNT 

iPTR. TO HXGH MEM 



THE DISPATCH TABLE CONTAINS THE STARTING ADDRLSS ur tACH TEST 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



TSV."* - PROGRAM HEADER MACRO Ml^OO c?3-MAR-84 09:44 PAGE 8 

DISPATCH TABLE ^^^ ^^^^ 

7^2 .S8TTL DISPATCH TABLE 

54 
35 
36 
37 
58 
59 002122 

002122 000010 

002124 

002124 023564 

002126 024702 

002130 027362 

002132 034352 

002134 046466 

002136 055404 

002140 074726 

002142 104744 
40 



DISPATCH 8 


.WORD 


8 


UJDISPATCH; : 




.WORD 


U 


.UORD 


12 


.WORD 


T3 


.UORD 


T4 


.UORD 


T5 


.UORD 


T6 


.UORD 


T7 


.UORD 


T8 



TSV.:' PROGRAM HE AOeR MACRO M1?00 ^3-M/*R-84 00:44 PACjt. 9 
DEFAULT HARDWARE P-TABLt: 



He:' 



hEQ oo;>o 



A? 

AS 

44 

45 

46 

47 

48 

49 002144 
002144 
002146 
002146 

50 

51 002146 

52 002150 

53 002152 

54 002154 
002154 



000003 



176000 
000224 
000200 



.SBTTL OHFAULT HAROWARt P-TABLt 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VAi UES OF 
THE TESr-DEVlCE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THF HUN TIME P-TABLE. 
I - - 

BGNHW DFPTDL ;DEFAULT HARD-P- TABLE 

. WORD LIOOOO -L $HW/2 
L$HW: : 
DFPTBL;; 



LIOOOO; 



.WORD 
.WORD 
.WORD 
ENDHW 



176000 

224 

PRI04 



1ST (OF 2) REGISTERS 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



TSV*^ PRni.H/\M Ht AOtR MACRO Ml^OO 
SOFTWARE P TABLt. 

56 



be 

60 

t>l 

62 002154 
002154 
002156 
002156 

65 

64 002156 
002160 



( - 



25 -MAR -84 09:44 PAfib 10 



StQ oo;^i 



.SUTTl. SOFTWARE P~ TABLE 



THE SOFTWARE P- TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



66 
67 

68 002162 

69 002164 
VO 002166 

002166 
71 
72 002166 



000004 



000000 
OOOOOO 



000017 
O0C310 



BGNSW 
.WORD 



LtSW: : 
SFPTBL: : 

TRANSTST: : 
NOITS:: 



LERRMAX: : 
GERRMAX: : 

ENOSW 
L 10001: 

ENOMOD 



SFPTBL 

LlOOOl LSSW/? 



.WORD 
.WORD 



.WORD 
.WORD 



15, 
200. 



J ENABLE TEST OE TRANSPCRTCS) IF 

i INHIBIT ITERATION OPTION. 

J ... - ITERATE, 

; . . .N? - INHIBIT ITERATE. 

; LOCAL (PER TEST) E.RR0R LIMIT 

i GLOBAL (PER UNin ERROR LIMIT 
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SOFTWARE P-TABLb 



15 
1^ 
?.0 



0C2\bb 
002166 



25 



32 002166 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
OOOICC 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
OOOOIO 
000004 
000002 
OOOOOl 



000040 
000037 
000056 
000055 
000034 



StQ 0022 



TSV3: : 



. TIU^. TSV5 Gl OBAL ARe AS 
.SHTTL Gl OBAL EQUATES SECTTON 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES EJECTION 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 



i GET STANDARD EQUATES 



! BIT DIKINITI 


BIT15-- 


. 100000 


BIT14-. 


■ 40000 


BIT13- 


■ 20000 


BIT12- 


' 10000 


BIT11-. 


' 4000 


BITIO- 


■ 2000 


BIT09- 


• 1000 


BITOe-' 


. 400 


BIT07-' 


• 200 


BIT06- 


• 100 


BIT05- 


• 40 


BIT04-' 


' 20 


BIT03- 


' 10 


BIT02- 


■ 4 


BITOl- 


' 2 


BITOO- 


' 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-- 


BIT02 


BIT1-- 


BITOl 


BITO-- 


BITOO 



EVENT FLAG DEFINITIONS 

EF32:EF17 RESERVED FQR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START •• 


32. 


EF.RESTART-- 


31. 


EF.C0NT1NU£»» 


30. 


EF.NEW-- 


29. 


EF,PWR»* 


29. 



J BIT POSITION IN SECOND STATUS WORD 
; (lOOOOO) START COMMAND UAS ISSUED 
1 (040000) RESTART COMMANO WAS ISSUED 
CONTINUE COMMAN") WAS ISSLtD 



(040000) 
(020000) 
(010000) 
C 004000) 



A NEW PASS HAS 3EEN STmhTED 
A POWER-FAIL/PUW&R-UP OCCURRED 



K 



GLOBAL BQUATtS StCTION 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
00C040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
$^ 

34 002166 



000250 

177572 
177574 
177576 
172516 



(\ 



MACRO M1200 
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i PRIORITY LtV&L DBFINITIONS 




PRI07-- 340 




PRI06" 300 




PRI05-- 240 




PR104" 200 




FRI03-- 140 




PRI02*- 100 




PRI01-- 40 




PRI00-- 




loPERATOR FLAG BITS 




EVL-- 4 




LOT-- 10 




ADR»- 20 




TOU--- 40 




ISR«« 100 




UAM-- 200 




B0E-- 400 




PNT-- 1000 




PRI-- 2000 




IXE-- 4000 




IBE-- 10000 




IER-- 20000 




L0E-» 40000 




HOE-- 100000 




KTll 




.SBTTL MEMORY MANAGEMENT DEFINITIONS 




J ♦KTll VECTOR ADDRESS 




MMVEC- 250 




:*KT11 STATUS REGISTER ADDRESSES 




SRC- 177572 




SRI- 177574 




SR2- 17757f 




SR3- 172S1 . 




,IF NB 




i*USER "I" PA",E DESCRIPTOR REGISTERS 




UIPDRO- 177600 




UIPDRl- ^7760:: 




UIPDR2- 1776C4 




UIP0R5- 177606 




UIP0R4- 177610 




UIP0R5- 177612 




UIPDR6- 177614 




UIP0R7- 177616 




.IF NB 




:*USER "0" PAGE DESCRIPTOR REGXSTORS 




UOPDRO- 177620 




UOPORl- 177622 




U0PDR2- 177624 




UDP0R3- 177626 




U0P0R4- 177630 




U0P0R5- 177632 




U0PDR6- 177634 




UDPDRV" 177636 



SEQ 0025 



i DEFINE MEMORY MANAGEMENT REGISTERS 
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HhMORY HANAGfeMENT DEFINITIONS 



SEQ OOkA 



A-mc 




!»USER "I" PAGt 


ADDRESS REGISTERS 


UIPARO' 177640 




UIPARl^ 17761^' 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAR4- 17 7650 




UIPAR5- 177S52 




UIPAR6- 177654 




UIPAR7- 177656 




.IF NB 




:*USER "0'* PAGE 


ADDRESS REGISTERS 


UOPARO" 177660 




UOPARl- 177662 




U0PAR2» 177664 




U0PAR5- 177666 




U0PAR4- 177670 




U0PAR5- 17767? 




U0PAR6- 177674 




U0PAR7* 177676 




.ENOC 




.£NDC 




.IF N8 




; ♦SUPERVISOR "I' 


' PAGE DESCRIPTOR REGISTERS 


SIPDRO- 172200 




SIPORl- 172202 




SIPDR2- 172204 




SIPDR3- 172206 




SIP0R4- 172210 




SIPDR5- 172212 




SIP0R6- 172214 




SIPDR7- 172216 




.IF Ne 




;*SUPERVISOR "O* 


' PAGE DESCRIPTOR REGISTERS 


SOPDRO- 172220 




SDPDRl- 172222 




^DP0R2- 172224 




SD^ORJ- 172226 




SDPDH4- 172230 




SDP0R5- 17223c: 




SDPDR6- 172234 




SDPDR7- 172236 




.ENOC 




1 •SUPERVISOR "I' 


' PAGE ADORERS REGISTERS 


SIPARO- 172240 




SIPARl- 172242 




SIPAR2- 172244 




SIPAR3- 172246 




SIPAR4- 172250 




SIPAR5- 172252 




SIPAR6- 172254 




SIPAR7- 172256 




.IF NB 




i •SUPERVISOR "D' 


' PAGE ADDRESS REGISTERS 


50PAR0- 172260 




SOPARl* 172262 




SDPAR2- 172264 





TSV/- .:i'.T.AL APtAS MACRO M1200 c:3-MAR-84 09:44 PAGf 13-5 
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fl:.. 



SEQ OO^b 



17?300 
172302 
172304 
172506 
172310 
172312 
172314 
172316 



172340 
172542 
172344 
172346 
172350 
172352 
172354 
172356 



SDPAR3- 


172266 


SDPAR4- 


172270 


S0PAR5- 


172272 


SDPAR6- 


172274 


SDPAR7- 


172276 


.ENDC 




. F.NOC 




; ♦KERNEL "I" PAGE DESCRIPTOR REGISTLRS 


KIPORO- 


172300 


KIPORl- 


172302 


KIPDR2- 


172304 


KIPDR3" 


172306 


KIP0R4". 


172310 


KIPDR5- 


172312 


KIPDR6'' 


172314 


KIPDR7* 


172316 


.IF NB 




; ♦KERNEL "0" PAGE DESCRIPTOR REGISTERS 


KDPDRO- 


172320 


KDPORl- 


172322 


K0P0R2- 


172324 


KDPDR3- 


172326 


KDPDR4- 


172330 


K0PDR5- 


172332 


K0PDR6- 


172334 


KDPDR7- 


172336 


.EMDC 




; ♦KERNEL "I" PAGE ADDRESS REGISTERS 


KIPARO- 


172340 


KIPARl- 


172342 


KIPAR2" 


172344 


KIPAR3- 


172346 


KIPAR4- 


172350 


KIPAR5- 


172352 


KIPAR6- 


172354 


KIPAR7- 


172356 


.IF N8 




; ♦KERNEL "0" PAGE ADDRESS REGISTERS 


KDPARO- 


172360 


KDPARl- 


172362 


K0PAR2- 


172364 


KDPAR3- 


172366 


KDPAR4- 


172370 


K0PAR5- 


172372 


KDPAR6" 


172374 


KDPAR7* 


172376 


.ENDC 





Ur 
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SEQ 00<f6 



^9 




40 




41 




4.' 




4? 




4^ 




4^) 


000004 


46 


000060 


4 7 


177560 


46 


177562 


49 


1775?0 


50 




51 




b^ 




55 




54 




55 


lOCOOO 


56 


040000 


57 


020000 


58 


010000 


59 


004000 


bO 


002000 


61 


001400 


62 


000200 


'■■.3 


000100 


64 


000060 


65 


000016 


66 




67 




68 




69 




70 




71 




72 




75 




74 


100000 


/5 


040000 


76 


020000 


77 


010000 


;8 


004000 


79 


002000 


80 


00 1000 


81 


000400 


8? 


000200 


85 


OOOIOO 


84 


00004.. 


85 


000020 


86 


000010 


87 


000004 


88 


000002 


89 


000001 


90 




91 




92 




95 




94 




95 


100000 



.SUITL TSV05 REGISTER AND PACKET DEFINITIONS 



\ SOME 


GENERAL EQUATES 


ERRVEC- 


4 


TTIVEC" 


60 


TTICSR- 


177560 


TTIBFR= 


17 7562 


BDVPCR- 


177520 


;BIT DEFINITI-^NS FOR T 


SC' 


BIT15 


BIE = 


BIT14 


5CE« 


BIT13 


RMR- 


BIT12 


NXM- 


8IT11 


NBA- 


3IT10 


HIADDR* 


BIT9!BIT8 


SSR- 


BIT7 


OFL" 


BIT6 


FATERR" 


BIT4!BIT5 


TERCLS- 


BIT3!BIT2!BIT1 



POINTER TO ERROR VECTOR FOR BUS TIME OUT 
INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INP IT 
CONSOLE INPUT DMA BUFFER 
BDVll PAGE CONTROL REGISTER 



SPECIAL CONDITION 

BUS INTERFACE ERROR 

SANITY CHECK ERROR 

MODIFICATION REFUSED 

NONEXISTANT MEMORY ERROR 

NEED BUFFER ADDRESS 

EXTENDED ADDRESS BITS 

SUB SYSTEM READY 

OFF LINE BIT 

FATAL TERMINATION ERROR CODES 

TERMINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 
CXSTO) 



TAPE MARK DETECTED 
RECORD LENGTH SHORT 
LOGICAL END OF TAPE 
RECORD LENGTH LONG 
WRITE LOCK ERROR 
NON EXECUTABLE FUNCTION 
ILLEGAL COMMAND 
ILLEGAL ADDRESS 
TAPE IN MOTION 
TRANSPORT ON LINE 
INTERRUPT ENABLE 
VOLUME CHECK BIT 
PHASE ENCODED DRIVE 
WRITE LOCKED 
BEGINNING OF TAPE 
END OF TAPE 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 

(xsin 



XSOTMK- 


BIT15 


XSORLS* 


BIT14 


XSOLET- 


BIT13 


XSORLL- 


BIT12 


XSOWLE- 


BITll 


XSONEF- 


BITIO 


XSOILC- 


BIT9 


XSOILA- 


BITS 


XSOMOT- 


BIT7 


XSOONl.- 


BIT6 


XSOIE- 


BIT5 


X50VCK- 


BIT4 


XSOPEO" 


BIT3 


XSOWLK- 


BIT2 


xsoeoT- 


BITl 


XSOEOT- 


BITO 



Xl.DLT - BIT15 



iDATA LATE 



1 > 
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TSVO*^ REGISYBR AND PACKET DEriNlTlONS 



3t:Q oo;;/ 



9fc 


040000 


') • 


020000 


^8 


017575 


=*^ 


000400 


loe 


000002 


lo: 




\o^ 




:o3 




104 




105 




106 


100000 


10 ; 


040000 


108 


035400 


10^ 


002000 


110 


000200 


111 


000100 


112 


OOC0 77 


115 


00000? 


114 




115 




116 




117 




118 




119 


1 '7400 


120 


00200 


121 


OOOIOO 


122 


000040 


12^ 


000020 


124 


000010 


125 


0OO006 


126 


000001 


12? 




126 




129 




130 




151 




152 


100000 


135 


040000 


154 


020000 


155 


017400 


156 


000377 


157 




158 




159 




140 




141 




142 




145 




144 


000006 


145 


000006 


146 




147 




148 




149 




150 




"51 




15a 





XI. SPARE 
XI. COR 
Xl.MBZ 
Xl.RBP 

Xl.UNC 

;BIT DEriMlTIONS 
i(XST2) 



BIT14 iNOT UStD 

BIT15 (CORRECTABLF DATA ERHOP 

BIT12»BIT11*BIT10»BIT9»B:T7.BIT6»BIT5»BIT4»HIT5.BH2»BIT0 lALWAf^ 

BIT8 jREAD BUS PARITY ERROR 

BITl J UNCORRECTABLE DATA OR HARD ERROR 



FOR EXTEr4DED STATUS REGISTER 2 



BIT15 (OPERATION IN PROGRESS (TAPE MOVING) 
BIT14 iRAM CHECKSUM ERROR 

BIT13*BIT12*BITll»BIT9»BITe iNOT USED BY TSV05 (ALWAYS-0) 
BITIO tWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
BIT7 jir WRITE CHAR CMO THEN - EXTENDED FEATURES ENABLED 

BIT6 I IF WRITE CHAR CMO THEN - BUFFERING ENABLED 

000077 ,IF WRITE CHAR CMO THEN - MICROCODE REVISION LEVEL 
BIT2*BITlfBIT0 iIF GET STATUS THEN • CURRENTLY SELECTED UNIT NO. 



X2.0PM 

X2.RCE 

X2 . SPARE 

X2,WCF 

X2.EXTF 

XS.BUTE 

X2.REV 

X2.UNIT 

1 • 

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

i(XST5) 



(MICRO-DIAGNOSTIC ERROR CODE 
iNOT USED BY TSV05 
(OPERATION INCOMPLETE 
(REVERSE 

(TRANSPORT RESPONSE FAILURE 
(DENSITY CHECK 
(NOT USED ALWAYS 
(REVERSE INTO BOT 



(BIT OEFINITIOfJS FOR EXTENDED STATUS REGISTER 4 
;(XST4) 

X4 . HSP 
X4.RCE 
X4.TSM 
X4.MB/ 

X4.WRC 



X3.M0E ■ 


■ 177400 


X5. SPARE - 


■ BIT7 


X5.0PI ' 


■ BIT6 


X3.REV ■ 


• BITS 


X5.TRF . 


' BIT4 


X5.DCK - 


• BIT3 


X3.M6Z ■ 


'BIT2»BIT1 


X3.RIB • 


■ BITO 



BIT15 (HIGH SPEED 

BIT14 (RETRY C0*>JT EXCEEDED 

BIT15 (TRANSPORT SPECIAL MODE 

BITl2»BITll»BIT10»BIT9»BITe ;NOT USED ALWAYS 

000377 (WRITE RETRY COUNT FIELD 



iTSSR TERMINATION CODES (BIT 0-^) 



» - 



TSREJ 
UNREC 



5*2 
6 



(COMMAND REJECTED 
lUNRECOVERABLE ERROR 



DEVICE REGISTER OFFSETS 



TSV-^ t";! OHfU. ARtAS 



MACRO MU:00 .^5MAR H-1 LV*;^^ PA(,h \A 



TSV05 REGISTER AND PACKt T DEFINITIONS 



'SETQ oo;^e 



IS5 


000000 


IM 


000000 


15S 


000001 


15.6 


000001 


ib: 


000002 


IS& 


000003 


1S9 




160 




Ibl 




\b^ 




165 


000005 


164 




165 




166 




167 




168 


000017 


169 


0OC013 


170 


000012 


171 


000011 


17^ 


000010 


173 


000006 


174 


000005 


175 


000004 


176 


OOOOOl 


177 




178 




179 




180 




181 


100000 


182 


040000 


185 


020000 


164 


010000 


185 


007400 


186 


000200 


187 


000140 


188 


000037 


189 




190 




191 




192 


000000 


193 


000400 


194 


001000 


195 


002000 


196 


002400 


197 




198 




199 




^00 




201 


000167 


202 


000200 


203 


000201 


204 


000210 


205 


000215 


206 


000234 


207 




208 




209 





ISBA" 

TSOD-- 

TSBAH-- 1 

TSDBH-- 1 

TS'-.R-- 2 

TSSRH-- 3 

t * 

I TSDB AODRF.SS BIT DFFINITIONU 

A1716 



;TSDB/TSBA RfGISTfR 

iTSDB/TSBA Rt-GISTFR MIf.H Br IE 

I TSSR REGISTER 

iTSSR REGISTER HIGH BtTt 



- BIT1»B1T0 



I COMMAND OEriNITIONS 



I ADDRESS BITS 17:16 ARE IN 1:0 



P.GETSTAT 


' 17 


(GET STATUS 


P.INIT 


• 13 


I INITIALIZE 


P. CONTROL 


• 12 


i CONTROL COMMANDS 


P. FORMAT 


- 11 


I FORMAT 


P. POSITION 


« 10 


iPOSITION 


P.WRTSUe 


• 6 


iSUBSYSTEM WRITE 


P. WRITE 


• 5 


iWRITE 


P.WRTCHAR 


• 4 


(WRITE CHARACTERISTICS 


P. READ 


- 1 


(READ 



( ♦ 



COMMAND PACKET HEADER WORD BIT DEFINITIONS 

P.ACK ■ BIT15 (BUFFER AVAIL FOR CONTROLLER 

P.CVC ■ BIT14 (CLEAR VOLUME CHECK 

P.OPP ■ BIT13 (REVERSE SEQUENCE OF DATA BITS 

P.SWB - BIT12 (SWAP BYTES IN MEMORY 

P. MODE ■ BIT11!BIT10!BIT9!BIT6 (EXTENDED COMMAND MODE FIELD 

P. IE • BIT7 (INTERRUPT ENABLE 

P.FMT- Bir6!BIT5 (PACKET HEADER TYPE (ALWAYS-0^ 

P.CMD - 37 (MAJOR COMMAND FIELD 



i CONTROL COMMAND MODE CODES 



( - 



PC. RELEASE 
PC. RE WIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



- 0*256. 

■ 1*256. 

- 2*256. 
• 4*256. 

■ 5*256. 



(RELEASE BUFFER 

(REWIND 

(NO-OP 

(REWIND IMMEDIATE 

(SECURITY ERASE 



INTERRUPT 



( CONTROLLER RAM DEFINITIONS 



RMCHBEG ■ 167 
RMCHENO ■ 200 
RMPKTBEG- 201 
RMPKTEND- 210 
RMMSGBEG- 215 
RMMSGENO- 234 
( ► 



(CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
i CHARACTERISTICS 10 DATA END RAM ADQRESS 
(COMMAND PACKET BEGIN RAM ADDRESS 
(COMMAND PACKET END RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAM ADDRESS 
(MESSAGE BUFFER END RAM ADDRESS 



J REGISTER DEFINITIONS IN THE MESSAGE BUFFER 
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TSV05 REGISTER AND PACKET Dbt-INUlONb 



} • 



'>EQ 00^9 



?10 




211 




212 




215 


000006 


214 


000010 


21S 


000012 


2 It 


000014 


217 


000016 


213 




219 




220 




221 




222 




223 




224 




225 


000002 


226 


000004 


227 


000006 


22ft 




229 


000010 


230 




231 




252 




233 




234 


oooooo 


235 


000001 


236 


000002 


237 


000004 


238 




239 




240 




241 




242 


oooooo 


243 


000001 


244 


000002 


245 


000003 


246 


0OOO04 


24 7 


000005 


248 


000006 


249 


000007 


250 


000010 


251 


OOOOll 


252 


000020 


253 


000021 


254 


000022 


255 


000023 


256 


000024 


257 




258 




259 




260 




261 


000200 


262 


000100 


263 


000040 


264 


000020 


265 


000010 


266 


000004 



XST0«- 


6 


XSTl" 


8. 


XST2-- 


10 


XST3-- 


12 


xsr4-- 


14 



lEXTENOED 
lEXTENDED 
iEXTENDEO 
I EXTENDED 
lEXTENDEO 



STATUS 
STATUS 

STATUS 
STATUS 
STATUS 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



(WORD 
(WORD 
fWORO 
(WORD 
(WORD 



4) 

b) 
6) 
7) 
8) 



OUTSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 
PKHI 
PKBCNT ■ 

EXBCNT-10 



(LOW ORDER CHARACTERISTIC DATA POINTER 
iHIGH ORDER CHARACTERISTIC DATA POINTER 
jNUMBER OF BYTES IN DATA PACKET 

(NUMBER or BYTES IN EXTENDED DATA PACKET 



DATA PACKET OFFSETS FOR WRITE 5UBSYTEM COMMAND 



:BYTE 

;BYTE 1 

(WORD 2 

iWORD 3 



BSELO 





BSELl 


1 


SEL2 


2 


SELDATA - 


4 



I * 



tBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 



t • 

PU.NOP 

PW. RDRAM 

PW.WTRAM 

PU.RFIFO 

PW.WFIFO 

PW.RDSTAT 

PW.WCTL 

PU.WFMT 

PW.WMISC 

PW.UNPR 

PW,022 

PW.Dll 

PW.013 

PW.N013U 

PM.RDEXT 





1 

2 

3 

4 

5 

6 

7 

10 

11 

20 

21 

22 

23 

24 



(NO-OP 

(READ RAM 

(WRITE RAM 

(READ FIFO 

(WRITE FIFO 

(READ STATUS 

(WRITE TAPE CONTROL 

(WRITE TAPE FORMAT 

(WRITE MISCELLANEOUS 

(WRITE NPR CONTROL 

(DO MICROTEST 22 

iDO MICROTEST 11 

(DO MICROTEST 13 

(DISABLE MICROTEST 11 AND 15 

(READ EXT, TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 



(BSELl COOES FOR WRITE TAPE CONTROL 



WC.IFAD 

WC.IOTAO 

WC.IITAD 

WC.I5RESV 

WC.IREW 

WC . IRWU 



BIT7 
BIT6 
3IT5 
BIT4 
BIT3 
BIT2 



lIFAO - 

iITADO 

(ITADl 

iIRESVS 

(IREW 

J IRWU 



FORMATTER ADDRESS 

- TRANSPORT ADDRESS BIT 
TRANSPORT ADDRESS BIT I 

' RESERVED «5 

- REWIND 

• REWIND AND UNLOAD 
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[ .:; 



SEQ 00 50 



26.* 


000002 


268 


000001 


269 




270 




271 




27.> 




2^3 


000200 


2 74 


000100 


275 


000040 


276 


000020 


277 


000010 


278 


000004 


2-^9 


000002 


280 


000001 


281 




2S2 




283 




284 




285 


000200 


286 


000020 


287 


000010 


288 


000006 


28^ 


000001 


290 




291 




292 




293 


000000 


294 


000002 


295 


000004 


296 


000006 


297 




298 




299 




300 


000200 


301 


000100 


302 


000040 


303 


000020 


304 




305 




306 




507 




308 


000200 


309 


000100 


310 


000040 


311 


000020 


312 


000010 


313 


000004 


314 


000003 


315 


lOOOOO 


316 


040000 


317 


020000 


318 


010000 


519 


004COO 


320 


002000 


321 


00 I 000 


322 


000400 


323 


000200 



wc.irtN 
wc.t:go 



BITl 
BITO 



BSELl CODES FOR WRITE FORMAT 



WF.IHISP 
WF .IWRT 
UF . IREV 
WF . IWFM 
WF.IEOIT 
WF.IERASF 
WF.I3RESV 
WF.I4RESV 



- BIT7 

- BIT6 

- BIT5 
■ BIT4 

- BIT3 

- BIT2 

- BITl 

- BITO 



; IFBN 
;G0 



jiHISP 
IWRT 

IREV 
IWFM 
lEDIT 
lERASE 
IRESV3 
tIRESV4 



FORMATTER ENABLE 



HIGH SPEED 

WRITE 

REVERSE 

WRITE FILE MARK 

EDIT 

ERASE 

RESERVED <>3 

RESERVED V?4 



;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

MS. EXT - BIT7 

MS.RSFIFO - BIT4 
MS.RSTAPE • BTT3 
MS. ATTN - BIT2JBIT1 
MS.RSD • BITO 



(INVERT SENSE OF EXTENDED FEATURES SWITCH 

(RESET FIFO AND INPUT PARITY ERRC-RR 

iRESET TAPE STATUS IN 2 FLIP-FLOPS 

J ATTENTION TRIGGER FIELD 

:RESET TIMER A,B THEN DELAY TIMES IN 3EL2 



i - 



. IS, ATTN SUBCODES 

MSA. NOP ■ 0*2 

MSA. VOL - 1*2 

MSA.NRAM- 2»2 

M3A.FRAM- 3*2 



(NO-OP (NOTHING TRIGGERED) 
jSIMU-ATE ON-LINE/OFF-LINE TRANSISTION 
(FORCE NON-FATAL RAM ERROR CFQRCES ERRCODE 
(FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



b4) 



I ♦ 



WRITE SUBSYSTEM WRITE NPR BSELl BIT DEFINITIONS 



; - 

NP.IR 
NP.OUT 
NP.LOOP 

NP.WRP 

i ♦ 



BIT7 
8IT6 
BITS 
BIT4 



(INTERRUPT REQUEST (0-1 TRANSITION) 

(TAPE DATA DIRECTION OUT (0- IN) 

(ENABLE TRANSPORT LOOPBACK 

(WRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



( READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



S2.DIM 


- BIT7 


WORD «9 BYTE 


2 


DATA IN MISS 




S2.ILW 


• BIT6 






ILW H 




S2.CMJTR0Y 


- BIT5 






OUT ROY H 




S2.INRDY 


■ BIT4 






IN RDY H 




S2.ATIMR 


■ BIT3 






TIMER A FLAG 


H 


S2.BTIMR 


- BIT2 






TIMER B FLAG 


H 


S2.UN0EF 


- BITl^BITO 


(UNDEFINED) 








Sl.PARIN 


■ BIT15 


WORD ftS BYTE 


1 


PAR IN H 




si.i2Resv 


- BIT14 






IRESV2 




Sl.IlRESV 


- BIT13 






IRESVl 




Sl.IEOT 


• BIT12 






lEOT L 




Sl.IIDENT 


■ BITll 






IIDENT H 




Sl.ICER 


■ BITIO 






ICER H 




Sl.IFMK 


■ BIT9 






IFMK H 




Sl.IHER 


■ BITS 






IHER H 




50.1SPEED 


» BIT? 


WORD ft8 BYTE 





ISPEEO H 
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.} 



SEQ OO^X 



324 

326 
327 
326 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
345 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
3G0 
361 
562 
363 
364 
365 
366 
36? 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
579 
580 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



SO.IROt 
SO.IONL 
SO.ILOP 
SO.IDBY 
SO.IRWD 
SO.IFBY 
SO.IFPT 



; ♦ 



.SBTTL 



- BIT6 

- BIT5 

- BIT4 
* BIT3 

- BIT2 

- BITl 
» BITO 
SPECIAL MACROS AND OPDEFS 



IRDr I 

lONL L 

ILOP L 

loer L 

IRWD I. 

IFBf I 

IFPT L 



;SAVE GENERAL REGS 1 TO 5 



.MACRO SAVREG 
JSR RS.REGSAV 
.ENDM 



MACRO TO FORCE AN ERROR 

MACRO FORCERROR TAG , NOTSSR 

NLIST 

IIF NOF LISTALL. , NLIST 

LIST 

IF B NOTSSR 

MOV TSSR(R5),R1 
.ENDC 

MOV FORCER, FORCER 

BNE TAG 
NLIST 

IIF NOF LISTALL. .LIST 
LIST 
ENOM 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 



(READ TSSR 

lis FORCER SET? (LEAVE C BIT ALONE) 
J BR IF YES 



FORCEXIT 



TAG 



MACRO 

NLIST 

IIF NDF LISTALL. .NLIST 

LIST 

MOV FORCER, FORCER 
BMI TAG 
.NLIST 

.IIF NDF LISTALL. .LIST 
.LIST 
.ENOM 
; ♦ 
I MACRO TO INCREMENT ERROR COUNTS 

[macro NEXT.ERRNO 

.NLIST 

; I J .IIF NDF LISTALL. .NLIST 



lis FORCER NEGATIVE? 
;8R IF YES 



002166 000000 



TSV5 - GlOHAl. ARtAS MACRO M1200 

SPECIAL. MACROS AND OPDtFS. 

381 

585 

5S4 

585 

586 

587 

588 

589 

590 

591 

592 

595 

594 

595 

596 

397 OOCOOO 

598 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

415 

414 

415 

416 

417 

418 

419 002170 

420 002172 

421 002174 

422 002176 

423 002200 

424 002202 

425 002204 

426 002206 

427 002210 

428 002212 

429 002214 

450 002216 

451 002220 

432 002222 

433 002224 

434 002226 

435 002230 

436 002232 

437 Q02272 



000000 
000000 
000000 
000000 
000224 
000200 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

oooooo 



c^3-MAR-84 09:44 PAGb'. 14-6 



F.RRN0-ERRN0»1 
; i i .IIF NDF LISTALL, .LI5T 
.LIST 
.ENDM 



MACRO TO PERFORM XOR 



A.B 



SEQ 0052 



.MACRO 


XOR 


MOV 


A, -fSP) 


BIC 


B.CSP) 


BIC 


A.B 


BIS 


CSP)*.B 


.ENDM 




EN-0 




.SBTTL 


FORCER 



; INITIALIZE ERROR NUMBER 
FORCE ERROR FLAG 



THE FOLLOWING LOCATIONS MAl BE PATCHED BY THE USER 
TO OBTAIN THE RESU.TS DESCRIBED FOR EACH. 



FORCER: 



.SBTTL 



I FORCE TYPE ALL HARD ERROR . (THE ONES CALLED 

1 - 3Y THE MACRO "IFERROR"). AN EHROR NEED NOT - 
; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
GLOBAL DATA SECTION 



♦ ♦ 



THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST. 



iTHE FOLLOWING DATA ARE SET FOR C^CH UNIT AT INIT TIME. 
iSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSW: 


.WORD 







UNITN:: 


.WORD 







QVP:: 


.WORD 







CSRAOOR 


. WORD 







IVEC: : 


.WORD 


224 




IPRI : : 


.WORD 


PRI04 




TSTCNT: 


.WORD 







LOOPCNT 


: .WORD 







DEVCNT: 


.WORD 







FATFLG: 


.WORD 







INTRECV 


: .WORD 







EXTFEA: 


.WCAD 







BENSSW: 


.WORD 







EXPD: : 


.WORD 







RECV: : 


.WORD 







PRRHI : : 


.WORD 







ERRLO: : 


.WORD 







RAMDATA 


: .BLKW 


16. 


1 


RAMSIZ: 


.WORD 





I 



(PRINT SWITCH 

(UNIT # UNDER TEST. 

(QUICK VERIFY FLAG. 

J ADDRESS OF CSR FOR CURRENT DEVICE 

i INTERRUPT VECTOR 

(INTERRUPT PRIORITY. 

(NUMBER OF TESTS RUN IN THIS PASS 

(REMAINING ITERATION COUNT FOR TEST 

iNUMBE? OF DEVICE UNDER TEST 

(SET IF FATAL ERROR IS DETECTED IN TEST 

SET IF TAPE INTERRUPT WAS RECEIVED 
(EXTENDED FEATURES SOFTWARE SW O-OFFil-ON 
(BUFFER ENABLE SWITCH SW O-OFFjl^ON 
(EXPECTED RAM DATA FOR PRAMPKT ROUTINE 
(RECEIVED RAM DATA FOR PRAMPKT ROUTINE 
(HIGH ADDRESS MEMORY ERROR 
(LOW ADDRESS MEMORY ERROR 

iOATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
(RAM DATA SIZE FOR PRAMPKT ROUTINE 



TSV? - .U OBAL rtPLAS 
GLOBAL DATA SECTION 



MACRO M1?00 



458 
4?^ 
440 
441 
442 
445 
444 
445 
446 
447 
448 
449 
450 
4bl 
452 
455 
454 
455 
456 
457 
458 
45^^ 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
475 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
483 
489 
490 
491 
492 
493 
494 



002274 
002276 
002300 
002302 
C02304 
002506 
002310 
002312 
002456 
002622 



002742 
002742 
002744 
002/46 
002750 
002752 
002754 
002756 
002760 
002762 
002764 
002766 
002770 
002772 
002774 
002776 
005000 
003002 
005004 
005006 
0030X0 
005012 
003014 
005016 
005020 
003022 
003024 
005026 
003030 
003052 
003034 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
177777 
000001 
000002 
000004 
000010 
0O0020 
000040 
000100 
000200 
000400 
OOIOOO 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 
177775 
177767 
177757 
177737 
177677 
177577 
177577 
176777 
175777 
173777 



23 -MAR -84 
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RCVHIADD; : 


.WORD 





iRECElVED BUFFER HIGH ADDRFSi 


RCVLOADD:: 


.WORD 





(RECEIVED BUFFER LOW ADORESO 


COUNT: : 


.WORD 





(TEST COUNT PATTERN 


DATA:; 


.WORD 





:TEST DATA 


TSTFLAG: : 


.WORD 





J TEST FLAG WORD 


TSTPTR 


; 


.WORD 





J TSTBLK POINTER 


PRMNO: 




.WORD 





J PRINT ROUTINE TEMP 


EXPMSG 


; 


.BLKB 


100. 


jEXPECTED MESSAGE BUFFER DATA 


RECMSG 


! 


.BLKB 


100. 


; RECEIVED MESSAGE BUFFER DATA 


TMPBFR 


: 


. BLKB 


80. 


[TEMPORARY STORAGE FQP PRINT 




,SBTTL 


TSTBLK 


- TEST 


DATA TABLE 



SEQ 0033 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
IN SEQUENCE THE DATA IS: 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



;ALL ZEROS 

J ALL ONES 

J DATA FOR WALKING ONES 



TSTBLK I : 




.WORD 





.WORD 


177777 


' .WORD 


BITO 


.WORD 


BITl 


.WORD 


BIT2 


.WORD 


8IT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


QIT6 


.WORD 


BIT 7 


.WORD 


BIT8 


.WORD 


BIT9 


.WORD 


BITIO 


.WORD 


BITU 


.WORD 


BITl? 


.WORD 


BIT15 


.WORD 


BIT14 


.WORD 


BIT15 


.WORD 


tCBITO 


.WORD 


tCBITl 


.WORD 


tCBIT2 


.WORD 


tCBIT5 


.WORD 


tCBIT4 


.WORD 


tCBIT5 


.WORD 


tCBIT6 


.WORD 


tCBIT7 


.WORD 


tCBITS 


.WORD 


tCBIT9 


.WORD 


tCBITlO 


.WORD 


tCBIUl 



(DATA FOR WALKING ZEROS 
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TSTBLK TEST DATA TAHLt 



SEQ 0054 



495 003036 

496 003040 

497 003042 

498 003044 

499 003046 

500 003050 
V)Ol 

'j03 
504 
505 

506 005052 

507 003062 
508 

509 

510 003102 

511 

512 003104 

513 

514 003106 

515 003110 

516 005112 

517 003114 

518 003116 

519 003120 

520 003122 
521 

522 

523 003124 

524 003126 

525 003130 

526 003132 

527 003154 

528 003136 

529 003140 

530 003142 

531 003144 

532 003146 

533 003150 

534 003152 

535 003154 

536 003154 

537 003156 

538 003160 

539 003162 

540 003164 

541 003166 
542 

543 
544 
545 
5^6 
547 
548 
549 
550 
551 003166 



167777 
157777 
137777 
077777 
125252 
052525 
003052 



OOOCOO 100000 
000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
002000 
000000 
000000 
000000 
000000 

000000 

oooooo 

000000 

oooooo 

177777 



TBLEND 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



tC8IT12 

tCBIT13 

tCB:T14 

tCBIT15 

125252 

052525 



ALTERNAflNG 
ALTtRNATINCj 



ONFS, ZEROS 

ONES. ZERO OPPOSITE 



FROM ABOVE 



SBTTL GLOBAL ENVIRONMENT STORAGE 



STORAGE EOR DEVICE REGISTERS 

OOOOOO DUMMY: 0,100000.0.0 (DUMMY DEVICE REGISTERS... 
OOOOOO 0.0.0,0,0,0.0.0 

!...r0R MULTI-UNIT CHECKOUT. 



DUFLG! : 

NCOEV: : 

TEMPI: : 

TEMP2: : 

XXCOMM; 

FREE: : 

FRESIZ: 

FREEHI: 

KTFLG:: 



KTENABLE 

NXMFLG 

NXMLO 

NXMHI 

T23A: 

T23B: 

T3BFLG: 

PST32W: 

SIFLAG: 

BADDAT: 

GDOAT; : 

LOOPFL : 

CTA8:: 

CTABM:: 



.WORD 
.WORD 



WORD 



CTABE: 
J ERROR 

i 



.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



























2( 











; "DROPPED UNIT" FLAG. 

J INHIBITS CODE IN "CLEAN-UP" 

iFLAG TO SAY NO DEVICE. 

J SOME TEMP LOCATIONS. 



POINTER. 



!000 







-1 



iXXDP* COMM BLOCK 
J 1ST FREE MEMORY 
i . . .AND SIZE (IN WORDS). 
;LAST WORD IN FREE SPACE 

iKTll. MEM AVAIL FLAG - 

t- .WORD - <24K OR NO KT - 

;- NZ - >24K AND KT. 

I SET BY TEST ROUTINES TO FLAG >28K UNDER 

;SET IF WE CAN TEST CLEARED OTHERWISE 

iNXM LO ADDRESS BITS 

iNXM HI ADDRESS BITS FOR DAL'^ ]-\-2l 

;11/23A FLAG 

; J 1/236 Fi AG 

J TEST 3B FLAG tO 

i32W BLOCK ADDRESS FOR 32K START 

(ACTUAL DATA 
(EXPECTED DATA 

(CONFIGURATION TABLES, 
(CONFIG WORK. 



(END OF MEM TABLE. 



TEST 



STATISTICS TABLE (I WORD PER UNIT). 64 UNITS MAX; 





100000 

lOXXXX 

160000 

160001 

14XXXX 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XJtXX ERRORS 

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 



ERTABL: 



.BLKW 64. 



TSV? GLOBAL ARLhS MACRU Mli^OO <i'3-MAR-80 09;44 PAGK 14-9 

GLOBAL ENVIRONMENT STORAGF '"'^^ "^^^^ 

5^2 003566 000000 LRTABt: .WORD 

554 003370 000000 SKIPT; .WORD jl-bKIP SUBTEST 0--N0 '^.KTP OF SUBTEST 



/ .^ 



TSV? - ut ODAL AREAS 
GLOBAL TEXT MESSAGES 



MACRO M1200 c?3-MAR-84 0*^:44 PAGE l^j 



SEQ 0056 



SS6 
55/ 
bb8 
559 
560 
5b 1 
56^: 
:?65 
564 
565 
566 
567 



00?572 
00:53/^ 
003372 



568 

5*33 

584 

585 

566 003400 
003400 
003400 



594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
60tt 
609 
610 
611 
61? 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 



003500 
003520 
003540 
003545 
003547 
003553 
005557 
003563 
003567 
003574 
005601 
003605 
003611 
005616 
005623 
005630 
0^5655 
003642 

005650 
003705 
005756 
003775 
004016 
004056 
004115 
004121 
004150 
004213 



124 



125 



052 



052 



005540 
003601 
123 
102 
123 
122 
116 
116 
102 
102 
125 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 



005545 
003605 
103 
111 
105 
115 
150 
102 
111 
111 
125 
106 
111 
111 
111 
111 
111 
111 

125 

Ir-'S 

040 
101 
101 
101 
116 
040 
040 
116 



126 



052 



003547 
003611 
000 
105 
105 
122 
115 
101 
12^^ 
124 
122 
114 
124 
124 
124 
124 
12A 
1^4 

123 
123 
116 
040 
040 
040 
045 
U?5 
111 
045 



.SBTTL GLOBAL TEXT MESSAGES 

■ ► 

THE GLOBAL VEXT SECTION CONTAINS fOHMAT STATEMENT 
MESSAGES, AND ASCII INFORMATION THAT ARE USFO IN 
MORE THAN ONE TEST. 



NAMES OF DEVICES SUPPORTED 



» » 



DcVTYP 'TSV05> 
L$DVTYP: : 

.ASCIZ «tTSV05»« 
.EVEN 



TEST DESCRIPTION 

DESCRIPT <***♦ TSV05 LOGIC DIAGNOSTIC - CHK CABL ES -TRANSPORT I^ ERR ♦♦**^ 



L$OESC: : 



.ASCIZ /+*♦* TSV05 LOGIC DIAGNOSTIC 
.EVEN 



BIT TO ASCII CONVERSION FOR TSSR REGISTER 



CHK CABLES-TRANSPORT IF ERR *♦♦*/ 



li.2t.31.4J,5J.6i.7i,8J 

9$, 10$. 11 $.12$, 13$. 14 $.15$. 16$ 



TSSRBIT:: .WORD 

.UORD 

1$: .ASCIZ 'SC 

2$: .ASCIZ 'BIE' 

3$: .ASCIZ 'SCF' 

4$: .ASCIZ 'RMR' 

5$: .ASCIZ 'NXM' 

6$: .ASCIZ 'NBA' 

71: .ASCIZ •BIT9' 

8$: .ASCIZ 'B1T6' 

9$: .ASCIZ 'SSR' 

10$: .ASCIZ 'QTL' 

11$: .ASCIZ 'BITS' 

12$: .ASCIZ 'BIT4' 

13$: .ASCIZ 'BITS' 

14$: .ASCIZ 'BIT2' 

15$: .ASCIZ 'Biri' 

16$: .ASCIZ 'BITO- 

.EVEN 

SFIERR: .ASCIZ 'TSSR ERROR AFTER SOFT INIT' 

SFHERR: .ASCIZ 'TSSR ERROR AFTER BUS RESET' 

NXR: .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /*A ADDRESS. 1*06/ 

TSSX: .ASCII /*A TSOA.TSSR EXP'D: *06#A.*06i$N/ 

.ASCIZ /#A TSBA.TSSR RFC'D: i<06i<A>06/ 

rUSI: .ASCII /#Ni<A/ 

USI: .ASCIZ / UrCXPfCTED INTERRUPT/ 

NSI: .ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED^ 

FNOINTR- .ASCII /KhWA/ 



TSV5 ul OBAl ARtAS 
GLOBAL TEXT Mt:SSAGSS 



6?8 

630 
631 
632 
635 
634 
635 
b36 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
65i 
654 
655 
656 
657 
658 
659 

660 



00421 1 
004254 
004276 
004333 
004405 
004455 

004525 
004526 
004531 
004565 
004641 
004743 
OObOll 
005054 
005111 
005204 
005276 
005370 
005456 
005552 
00564 3 



661 
^S2 



663 
664 
665 
666 
667 
668 
669 
670 
671 
672 



005734 
005734 
005734 
005734 
005740 
005744 
005750 
005752 
005754 
005760 
005764 
005764 
005764 



005766 
005770 
005772 
005774 
006000 
006000 
006004 
006010 



040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 
045 
045 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104423 



005727 
000000 
001402 
004777 

012746 
012746 
010600 
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SE(J 00S7 



040 
040 
101 
040 
040 
040 



lib 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 

ir6 

116 



003104 
003775 
000002 



000006 
005766 



177770 

004526 
000001 



116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
105 
111 
123 
123 
124 
122 
045 
045 
045 



NOTNTR 

IFAULT 

INTX: 

NOINIT 

NSINIT 

BRXNIT 

NUL: 

NULCR: 

EXPGOT 

EXPGT2 

DUA012 

PKTRAM 

SCME: 

WRTMSG 

WRTERR 

RDERR : 

SCHERR 

RETERR 

NOMEM: 

M8186: 

M6189: 



* ♦ 



ASCI/ 
ASCiZ 
ASCIZ 
ASCI/ 
ASCIZ 
ASCIZ 

ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

EVEN 

SBTTL 



/ NO INTERRUPT WAS GLNERATFD/ 
/ IN^LRRUPr FAULT/ 
/*A CPU PC; i(06KA TSBA: 1^06/ 
/ "BUS-INIT" DIDN'T INITIALI/F: 



"C 



SOKT INIT'- 
'BUS-RESET- 



DION'T 
DIDN' T 



INITIALIZE 
INITIALIZE 



CONTROLLER/ 
THE DPU/ 
THE DPU/ 



// 

/KN/ 

/KA tXP'D: *06*A. REC'D: K06/ 

/i^N^A EXP'O: i<06i<A, ¥06#N#A REC D: fiO#A. K06/ 

/*A REG(W) WRITTEN TOt #06»'.A REGCR^) READ; EXP'D: ♦(06*(A. REC'D: #06/ 

.ASCIZ 'RAM Contents Do N-^t Match Packet Sent' 

/ CONFIG DOESN'T MATCH MFG. MASTER/ 

'WRITE CHMRACTERISTICS Failed' 

'TSSR Incorrect After WRITE Command, More Bit-i Set Than 5SR' 

'TSSR Incorrect After READ Coiwnand, More Bits Set Than SSR* 

'FATAL tRROR IN SUBTEST - CHECK TAPE .CABLES. TRANSPORT etc' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

'itfNiiA ♦♦♦♦♦ NO NXM ADDRESS — CANNOT TEST NXM TIMEOUT. *****KN' 

'liNitA A**************** 11/23A SYSTEM ♦♦♦♦♦♦^♦••♦••♦•♦♦i<N' 

'i<N4A ♦•♦**♦♦**♦♦*♦♦*** 11/23B SYSTEM ***********«*****i<N' 

GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERROR REPORT SECf.DN CONTAINS THE PRINTS AND PRINTX 

CALLS THAT ARE USED IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: 



BGNMSG NXRERR 



L 10002: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

FNOMSG 

TRAP 



*NXRX.NOOEV 
NOOEV. -^SP) 
*NXRX, (SP) 
«2.-(SP) 
SP.RO 
riPNTX 
^,SP 
PC, EXTEND 



C$MSG 



;NON-EXISTANT DEVICE REGISTER 
;NODEV ■ NEXM ADDRESb. 



J PRINT EXTENSION IF REQUIRED 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND 

EXTA: 



1$: 



TST 



BEQ 

JSR 

PRINTX 

MOV 

MOV 

MOV 



1 

Pt ,iEXTA 

«*iUwCR 

OnULCR,-(SP) 

01. (SP) 

SP.RO 



; - NO EXTENSION. 

; APPEND EXTENSION TEXT, 
J PRINT A BLANK LINE 



TSV? Gl.ORAl. ARt'AS MACRO Mli^OO .:? MAR-a4 09:4fl PAt,t-. I'^'d 

GLOBAL ERROR RtPORT SECriON 

006012 104415 
006014 062706 000004 
675 006020 000207 



TRAP 


C$PNTX 


ADO 


.74 . SP 


RTS 


PC 



■\6 

SEQ 0038 
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PRITSSR PRINT TSSR CONTfc'NTS 



N5 



SEQ 00?9 



675 
676 
67V 
678 
679 
680 
681 
v8^ 
683 
664 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 



697 
698 
699 
700 



701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
71? 
713 
714 
715 
716 
717 
718 



006022 
006022 
006026 
006030 
006030 
006052 
006036 
006042 
006044 
006046 
006052 
006054 
006060 
006062 
006062 
006066 
006072 
006074 
006076 
006102 
006104 
006110 
006ri2 
006116 
006122 
006124 
006126 
006130 
006132 
006154 
006136 
006140 
00614,'.' 
006150 
006152 
006154 
006156 
006156 
006162 



010104 

010446 
012746 
012746 
010600 
104414 
062706 
010400 
00<737 
103410 

012746 
012746 
010600 
104415 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
00C241 
006;.03 
103006 
011100 
11202? 
001376 
112762 
005721 
000763 
105042 

012746 
012746 



■SBTTL PRITSSR - PRINT TSSR CONTENTS 

*■ 

ROUTINE TO DISPLAY THE CONTENTS. AND BIT DEFINITIONS. OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS C^ TSSR 
SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



006505 
000002 



000006 
016134 



006725 
00000 t 



000004 

001476 

002622 
003500 



000054 177777 



002622 
006676 



PRITSSR: 

SAVREG 

MOV R1.R4 

PRINTS 0TSSRF0R,R4 

MOV R4. -CSP) 

fiOV <^TSSRF0R, -CSP) 

MOV *2.-CSP) 

I'OV SP.RO 

T^AP CiPNTB 

ADO *6 . SP 

MOV R4,R0 

JSR PC, CHKAMB 

BCS 5* 

PRINTX *AMBTSSR 

MOV *AMeTSSR.-(SP) 

MOV «1, -CSP) 

MOV SP.RO 

TRAP CiPNTX 

ADD *4 , SP 

5$: MOV R4.R3 

BIC OHIAODRIFATERR! 

BEQ ?0% 

MOV *TMPBrR.R2 

MOV ^TSSRBIT.Rl 

10$: TST R3 

BEQ 15* 
CLC 

ROL R5 

"CC 13i 

1.0V (Rl).RO 

11$: MOVB CR0)t,(R2)* 

BNE 11$ 

r'OVD *' . . 1(R2) 

135: -^^T (RD* 

BR 10$ 

15$: CLR8 -CR2) 

PRINTX OTSSDEF , #TMPBFR 

MOV #TMpBFR. CSP) 

MOV <KSSDEF,-CSP) 



SAVE GENERAL REGISTERS 
SAVE THE TSSR CONTENTS 
PRINT THE CONTENTS OF TSSR 



GET TSSR BACK FOR CHKAMB 
ARE CONTENTS AMBIGUOUS ? 
BRANCH IF NOT 
SHOW CONTENTS ARE AMBIGUOUS 



iCONTENTS C TSSR 
TERCLS,R3 jCLEAR ALL MULTIPLE BIT trxELOS 
tNO BITS AR" SET 
: TEMPORARY ASCII BU^FER 
(ASCII EQUIVALENT OF BITS 
(REMAINING BITS TO CONVERT 

BRANCH WHEN ALL ARE DONE 

CLEAR CARRY FOR SHIFT 

SHIFT NEXT BIT TO CARRY 

BRANCH IF BIT NOT SET 

POINTER TO BIT DEFINITION 

MOVE A3CIZ TO BUFFER 

MOVE ALL BITS 

INSERT A COMMA 10 TERMINATE 

POINT TO NEXT DESCRIPTION 

GET THE REMAINING BITS 

TERMINATE THE LINE 

PRINT THE BIT DEFINITIONS 



1 /I 



TSV? oLOPAL AREAS HACRH MK^OO .?5 MAP 84 00-44 PAlit. U.-l 
PRITSSR PRINT TSSR CONTENTS 



006166 
00617P 
006174 
006176 
719 

7^0 006P02 

7.?1 006204 

V2 006210 

:*23 006214 

006214 

006216 

006222 

006226 

006230 

006232 

■/24 006236 

725 006240 

726 006244 

727 006246 

728 006250 

729 0062S2 
750 006254 

731 006260 
006260 
006262 
006266 
006272 
006274 
006276 

732 006302 

733 006506 

734 006310 
006310 
006312 
006316 
006322 
006324 
006526 

735 006352 

736 006336 
006336 
006340 
006544 
006546 
006550 

757 006354 
75a 

749 006356 

750 006446 

756 006505 

757 006525 
756 006566 

759 006627 

760 006676 

761 006725 
762 

763 006766 



01274b 
010600 
104415 
062706 

010403 
042705 
016503 

010546 
012746 
012746 
010600 
104415 
062706 
010405 
042705 
001416 
006205 
006205 
006205 
016505 

010546 
012746 
012746 
010600 
104415 
062706 
042704 
001411 

010446 
012746 
012746 
010600 
104415 
062706 
015705 

010546 
012746 
010600 
104415 
062706 
000207 



OOOOOc^ 



000006 



177761 
006766 



006566 
000002 



000006 
177717 

007326 



00^3627 
OCOO02 



000006 

176377 



006525 
000002 



000006 
002170 



000001 



000004 



20* 



25i: 



30«: 



MOV 
MOV 
TRAP 
ADD 

MOV 

BIC 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

BTC 

BEQ 

ASR 

ASR 

ASR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BIC 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 



045 116 045 EPRTl: .ASCI7 

045 116 045 EPRT2 : . ASCIZ 

045 116 045 TSSRrOfi; 

045 116 045 TEXA5C 

045 116 045 TCOASC 

045 116 045 TFCASC 

045 116 045 TSSDEF 

045 U6 045 AMBT5SR: 

.EVEN 

00V006 0C7031 007057 TCOCODi .WORD 



tf;\ (SP) 

SP.RO 

CIPNTX 

R4.R5 

<>tCTERCLS,R.^ 

TC0C0DCR3),R5 

dTCOASC.RS 

R5,-(SP) 

orCOASC, -CSP") 

«2.-(SP) 

SP.RO 

CtPNTX 

♦6,SP 

R4 R3 

♦tCFATERR,R3 

25$ 

R3 

R3 

R3 

TSP'C00(R3),R3 

«TFCASC,R? 

R5,-(SP) 

•TrCA5C.-(SP) 

#2.-(SP) 

SP.RO 

CIPNTX 

#6 ^P 

•tCHlA00R.R4 

501 

♦TEXASC.R4 

R4.-(SP) 

OTEXASC, (SP) 

♦2 . - ( SP ) 

SP.RO 

CIPNTX 

♦6,SP 

EPRTSW.R3 

R5 

R5,-(SP) 

•1,(SP) 

SP.RO 

CIPNTX 

♦4,SP 

PC 



SEQ 0040 



iGFT THE TSSR CONTENTS 

iCl.EAR AIL BUT TERMINATION 

(C.f T THE TERMINATION CODF MEANING 

jPRINT THE TERMINATION CODE 



I TSSR CONTENTS AGAIN 

(CLEAR ALL BUT FATAl TERMINATION 

(DON' T PRINT IF ZERO 



I ALINE TERMINATION CODE FOR INOfX 
(GET THE FATAL TERMINATION CODE 
I PRINT THE FATAL TERMINATION CODE 



(CLEAR ALL BUT EXTENDED ADDRESS 

(DON' T PRINT IF ZERO 

(PRINT THE EXTENDED ADDRESS BITS 



(PRINT MEAA5CE BUFFER ADDRESS 
(PRINT PROPER MESSAGE 



(RETLWN TO CALLER 



'#NtfA 

'i«NKA 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



♦♦♦•♦CHECK 
•♦••♦CHECK 



CABLES BETUEEN 
TRANSPORT^^^^* 



M7196 ANO TRANSPORT***** 



i»N*A TSSR - •06' 

«N#A EHt«nd«d Addr««« B^ts ' M06 

«N«A Termination Class Coda - «T- 

«N«A Fatal Tarmination Claaa Coda 

*N*A TSSR Bita Sat; *T' 

*N«A TSSR Contants Ap« Ambiguous* 



»T 



U.2I»3«,4$»5I,6*,7»»6$ 



TSV5 ul OFlAi ARIAS MACRO HL^'OO .?5 MAP H^ 0'*!4n fA(,t \h -^ 
PRlTf.^^R PRINT TSSR CONTtNTS 



C'l 



'if. a 0041 



.'64 

766 
76? 
768 
7t.9 

:-0 

'71 
7 72 
/75 
7 74 
775 
776 
7-'7 
7 78 
779 
780 
781 
762 
78.^ 
784 
785 
786 
787 
786 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
BOO 
801 
802 
805 
804 
805 



806 

607 
606 
809 
610 
611 
812 
813 



007006 
007031 
007057 
00 7101 
007121 
007203 
007252 
007276 



00 7J26 
007336 
007372 
007403 
007447 



007460 
007460 
007464 
007466 
007472 
007474 
007476 
007500 
007502 
007504 
007506 
007506 
007510 
007512 
007516 
007522 
007524 
007526 
007532 
007554 
007556 
007540 
007544 
007546 
007550 
007552 



116 
124 
124 
106 
122 
122 
125 
106 



007336 
111 
122 
102 
122 



010005 
005757 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 



IS/ 
14'S 

14 

145 
145 
156 
141 



007372 
156 
145 

lb5 
145 



162 
162 
160 
156 
143 
145 
162 
164 



007405 
164 
163 
163 
163 



003124 



007644 
000003 



000010 



017406 



2i 
3$ 
At 

5$ 
6» 

71 



TsrcoD! 



2i 
3$ 

4$ 



I ♦ 



.ASCI/ 
.ASCI/ 
.ASCI2 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.EVEN 

.UORD 

.ASCI7 

.ASCI/ 

.ASCx/ 

.ASCI/ 

.EVEN 

.SBTTL 



Normal Terminat Ion" 
' Terminat ion Condi t Ion' 
' Tap* Statua Alert' 
' Konct ion R«j«ct' 
'Recoverable Error - Tap* 
'Recoverable Error Tape 
'Unrecoverable Error' 
•Fatal Controller Error' 



Po'jit'on One Record Down- 
Was Not Moved* 



li.2l.3<.4» 

'Internal Diagnostic failvire' 

'Heeerved' 

'Bua Interface or Sanity Check Error' 

' Reserved' 

PRIPKT - PRINT Th(£ ADDRESS/CONTENTS OF COMMANO PACKET 



iTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET 
(THIS ROUTINE IS NORMALLY ONt.V CALLED FROM A PRINT ROUTINE. 



: INPUT: 

I 

I 

I 

I 

t 

\ 

I - 

PRIPKT: 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

AODRCSS OF COMMAND PACKET 



NOTt: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR 



10$: 



15»: 



201: 
25$: 



SAVREG 

MOV R0,R5 

TST KTENABLE 

BNE 101 

CLR R3 

MOV R3.R1 

MOV R4,R0 

ROL RO 

ROL Rl 

PRINTS ♦PKTAOO . Rl . R4 

MOV R4,-C5P) 

MOV R1,-(SP) 

MOV W»KTAD0,-(SP3 

MOV 03. -(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADO ^lO.SP 

MOV R3.R0 

6EQ 20$ 

MOV R4.fll 

JSR PC.SETMAP 

MOV R0,R4 

CLR Rl 

MOV (R4)..M2 

PRINTB «PKTFRM,R1.R2 



I SAVE THE REGISTERS 

jSAVE NO. OF WOPDS IN PACKET 

lABOVE 2eK UNDER TEST? 

iBH IF YES 

I SET HIGH ORDER ADDRESS TO 

(COPY HIGH ORDER ADDRESS 

iGET LOWER ADDRESS 

(SHIFT BIT 15 INTO C BIT 

I AND INTO HIGH ORDER. 

(PRINT PACKET ADDRESS 



(GET HIGH ORDER ADDRESS 

(BR IF NOT ABOVE 26K. 

(GET LOW ORDER AiX)RESS 

(SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

I GET RETURNED PAR6 ADDRESS BIAS 

(SAVE WORD NtJMBER 

(GET PACKET CONTENTS 

(PRINT THE DATA 



TSV5 U OH'H ARIAS MACRO MK"'0O .\^ MAR AA 0'*:4a PAtit, 16-5 

PftlPKT PRINT THt ADORtS'J/CUNlfcNTS Of COMMAND PACKFT 



IVl 



':jBQ 004^ 



^14 

816 
817 
818 
319 
820 
821 
S22 
823 
824 
825 
826 
827 
828 
829 
850 
851 
832 
833 
854 
835 
836 
837 
836 
639 
640 
841 
842 
845 
844 
845 
846 
847 
848 



649 

650 
851 
652 
653 
854 
855 



007552 
007554 
007556 
007562 
007566 
007570 
007572 
007576 
007600 
007602 
007604 

007606 
007644 



007702 
007702 
007706 
007710 
007720 
007724 
007726 
007750 
007752 
007752 
007754 
007756 
007740 
007744 
007750 
007752 
007754 
OC. 7 760 
007762 

007764 



010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



010205 

0127C'7 
04000'; 
040002 
04 0005 

010-i46 
010146 
010246 
012746 
012746 
OiOt.00 
101414 
0627v)6 
010500 
000207 



007606 
000003 



000010 



116 
116 



045 PKTFt^M: 
045 PKTADD: 



MOV 

HOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BLT 

RT5 

.ASCIZ 
.ASCIZ 
.EVfcN 
.SBTTL 



R2, CSP) 

RU-(5P) 

*PKTFRM, -(SP) 

«5, CSP) 

SP.RO 

CIPNTB 

dlO.SP 

Rl 

R1.R5 

25$ 

PC 



jNF.XT WORD NUMBER 
;DONE ALL PACKET WORDS V 
I LOOP ULL ALL UUNF. 
jRETURN 



'*N#A Pocket Word WDIHA - ^06' 
•KNKA Pocket Address • ^01*05' 

PRIBXOR - PRINT EXPO, RECV ANO XOR BtTE 



PRINT feXPECTED DATA, RECEIVED DATA, ANO XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS; 



Rl 

R2 



1 7 /■♦(■;? 



0'.'/ '•,»<* 
(Ka'\^04 



OOC'.'i^ 



OUTPUT: 

RO 

t ' 

PRIBXOR:: 

SA'.REG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

RT5 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



I SAVE THE REGISTERS 
R2,R5 (EXPECTED DATA 

R1.R5 (FORM THE EXCLUSIVE OR 

*tC<577>.R0 iBYTE MASK 
RO.Rl »SAVE LOW BYTE RECV 

R0,R2 (SAVE LOW BYTE EXPD 

R0.R5 I SAVE LOW BYTE XOR 

#XORBFOR,R2,Rl,R5 (PRINT THE MESSAGE 
R5, CSP) 
R1,-(SP) 
R2. (SP) 
*XORBFOR,-(SP) 
♦4..(SP) 
SP.RO 
CIPNTB 
#12, SP 
R3,R0 
PC 



jRO HAS XOR ON RETURN 
(RETURN TO CALLER 



116 



04b XQRBFOR: .ASCIZ ' i<N*A EXPD: *05*A RECV: #05i<A XOR: M03 
.EVEN 
.SBTTL PRIXOR - PRINT EXPD» RECV AND XOR 



TSV? ul OBm ARtA^ MACRO fiU'-OO ^3-hAH -84 09:44 PAGt 16-4 
PRIXOR PRINT FXF'D, RECV AND XOR 



SEQ 0043 



859 
860 
861 
86^ 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
673 
874 
875 
876 



677 
878 
879 
880 
881 
882 
883 
364 
885 
886 
887 
888 
889 
690 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 



01003c^ 
010032 
01C036 
010040 
010050 
010050 
010052 
010054 
010056 
010062 
010066 
010070 
010072 
010076 
010100 

010102 



010150 
010150 
010154 



PRINT EXPECTtr. DATA, RGCEIVED DATA, AND XOR OF THf TWO 
THIS ROUTINt IS NORMALLY CALLED ONLr FQR PRINT ROUTINES 



INPUTS: 



Rl RECEIVED DATA 
R2 EXPECTED DATA 



OUTPUT; 



RO XOR OF EXPECTED/RECEIVED DATA 



0X0203 



010346 
010146 
010246 
012746 
012746 
010600 
1044 14 
062706 
010300 
00020' 

045 



oioio:-' 

000004 



000012 



116 



PRIXOR * ■ 

"SAVREG J SAVE THE REGISTERS 

MOV R2,R3 ;EXPECTEO DATA 

XOR ni.R3 iPORM THE EXCLUSIVE OR 

PRINTB #X0ftF0R,R2,Rl.R3 iPRINT THE MESSAGE 

MOV R3,-(SP) 

MOV Rl. -CSP) 

MOV R2. -CSP) 

MOV tfXORFOR, -CSP) 

MOV #4. -CSP) 

MOV SP.RO 

TRAP C$PNTB 

ADD #12. SP 

MOV R3,R0 |R0 HAS XOR ON RETURN 

RTS PC jRETURN TO CALLER 

045 XORFOR: .ASCIZ • *Ni<A EXPO: *06*A RECV: K06MA XOR: i*06' 
.EVEN 

.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



^ROUTINE TO CONVERT BIT VALUES TO ASCII ANO PRINT THE STRING 
.-THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



(INPUTS: 



00020/ 



PRIEQU: 



I * 



RO 
Rl 



SAVREG 
RTS 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PC 



(SAVE THE REGISTERS 
t RETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



iPRINT CONTROLLER RAM ADDRESS. 

I THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES 



r/1 



TSV5 ■ Jl.OP'U '^RtAS MACRO Hlc^OO ^3-MAR-84 09t44 PAUt 16-5 
PRIRAM PRINT RAM ADDRtSs 



SEQ 0044 



905 
906 
90 7 
906 
909 
910 
911 

913 



914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
9rj 
929 
930 
951 
932 
933 
934 
935 
936 
937 
938 



939 
940 
941 
942 
943 
944 
945 
946 
947 
948 



0101S6 
0101S6 
010162 
010162 
010164 
010170 
010174 
010176 
010200 
010204 

010::;06 



010250 
010250 
010254 
010260 
010264 
010266 
010270 
010272 
0102'2 
0102/4 
010276 
010302 
010306 
010310 
010312 
010316 

010320 



010446 

012746 
012746 
OlO6O0 
104414 
062706 
000207 

045 



013 700 
013 70'. 
01010c"' 
006101 
006100 

010"'4t' 
01OO46 
0127if. 
012 M6 
01060 :i 
104^)'* 

c j:?7o^ 

O0O2OV 
045 



INPUTS: 



PRIRAM: 



C10206 
000002 



000006 



116 



045 RAMFOR: 



R4 



SAVREG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



RAM AODRESb 



WAMF0R,R4 
R4, -(SP) 
<mAMF0R, -CSP) 
i>2. -CSP) 
SP.RO 
CiPNTB 
06, SP 
PC 



jSAVF R1-R5 UNTIL NEXT RETURN 
; PRINT RAM ADDRESS IN ERROR 



; RETURN 



KNKA CONTROLLER RAM ADDRESS « ^06 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



I 



PRIADD: 



00;'226 
002230 



OK) ^;T 
00(700-^ 



oooutc 



V.t> 



045 PRIAO: 



ERRHI 
ERRLO 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



ERRHI, RO 

ERRLO, Rl 

R1.R2 

Rl 

RO 

OPRIA0,R0,R2 

R2, -CSP) 

RO.-CSP) 

OPRIA0,-(SP) 

*3,-CSP) 

SP.RO 

C$PNTB 

«10,SP 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

I GET HIGH ADORE SSS 

I GET LOU ADDRESS 

I COPY LOU ADDRESS 

jSHIFT BIT 15 TO C BIT 

J SHIFT INTO HIGH ORDER 

J PRINT MEMORY ADDRESS IN ERROR 



J RETURN 



'Kf^A MEMORY ERROR ADDRESS - *:01#05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



; PRINT MEMORY ADDRESS 

iTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES 



In 4 



TSV5 GLOBAL ARfAS MMjr<0 Mi:\)0 c?5-M/\R-e4 O^iAA PAGt 16-6 

PRITADD PRINT MEMORY Tt*-"'' ADORESS 



SEQ 0045 



949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 



964 



965 
966 
967 
968 
969 
970 
971 
972 
S73 
974 
975 
976 
977 
978 
979 
960 
981 
982 
983 
984 
985 
966 
98 7 
968 
989 
990 
991 
992 
993 



010364 
010364 
0103 70 
010374 



010400 

010400 

010402 

010406 

010412 

010414 

010416 

010422 

010422 

010424 

010430 

010434 

010436 

01044 

010444 

010446 
010511 



IMPLICIT INPUTS 



tRRHI 
ERRLO 



- HIGH ORDER 

- LOW ORDER ADDRESS 



PRITADD; 



013702 
013701 



01014C-» 
012746 
012746 
010600 
104414 
062706 

010246 
012746 
012746 
010600 
104414 
062 7C6 
000207 

045 
045 



002.? c-^ 
0022 iiC 



OlO^flS 
000002 



00000b 



0105:.! 

ooooo:- 



oooooc 



IH"^ 

lit 



045 PRITO: 
045 PRITl: 



SAVREG 

MOV 

MOV 

J MOV 

;ROL 

jROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.ASCIZ 
.EVEN 
.SBTTL 



ERRHI.R2 

ERRLO, Rl 

R1,R2 

Rl 

RO 

<tf>RITO.Rl 

Rl.-(SP) 

*PRITO.-CSP) 

#2,-(SP) 

SP.RO 

CJPNTB 

06, SP 

#PRIT1.R2 

R2.-(SP) 

*PRIT1.-(SP) 

#2,"CSP) 

SP.RO 

CJPNTB 

<^.SP 

PC 



;SAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH AODRESSS 

;GET LOW ADDRESS 

tCOPY LOU ADDRESS 

(SHIFT BIT 15 TO C BIT 

; SHIFT INTO HIGH ORDER 

(PRINT MEMORY ADDRESS LOW IN ERROR 



(PRINT MEMORY ADDRESS HIGH IN ERROR 



(RETURN 



'KNKA 
'«N#A 



MEMORY 
MEMORY 



TEST 
TEST 



ADDRESS 
ADDRESS 



LOU ■ 
HIGH 



f<06' 
■ 1^06 



SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT : 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 ■ IS FORWARD 

BxT15 ■ 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 



TSV?i - G10P-\L ^RmS I'VXxMO N l.-^OO r^3-MAR-84 0<):44 PAGK Ifc-V 

SPACE SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



H4 



SEQ 0046 



994 

99 r> 

996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
100? 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1C17 
1018 
1019 
1020 



1021 
1C22 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1050 
1031 
1032 
1055 
1034 



01055b 
010556 
010562 
010570 
010576 
010600 
010602 
010606 
010610 
010614 
010620 
OIC'626 
01O632 
010636 
010642 
C 10644 
010644 
01065C 
010652 
010€56 
010660 
010664 
0106C6 
03 0672 
010674 
010700 
010702 
010704 
03071C 
010714 
010716 
010720 
010722 
010724 
010726 
010 730 
010730 
010732 



012 73/ 
012737 
005/03 
10C403 
010337 
00040/ 

042 ;o^ 

01053? 
052 737 
012704 
01046i> 
004737 
103420 

012727 
OOOOOC 
013727 
OOOOOO 
O053o7 
001375 
00536/ 
001367 
00533 7 
0013S6 
000411 
016501 
012702 
020201 
001401 
000402 
000261 
00040.1 
000241 

010400 
000207 



OOO.'tS't 
1400 A 



OiO/''*;.^ 
i'>.>ooy 

01 74 J 

ooc.oo 

010/10 
C'X}000 
016.^40 



Ov>02:-.(> 

oor-'iif) 

1777 7.? 
OlOVtiO 



OO(.'002 
000^00 



IMPLICIT OUTPUT! 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE : : 



010750 
010740 



010740 





SAVRE6 






MOV 


0500. .SDELAY 




MOV 


#140010.80$ 




TST 


R3 




BMI 


5$ 




MOV 


R3,90$ 




BR 


10$ 


5$: 


BIC 


<^eiT15.R3 




MOV 


R3,90$ 




BIS 


*eiTe,80$ 


10$: 


MOV 


*80$.R4 




MOV 


R4,TSDB(R5) 


15J: 


J5R 


PC.WAITF 




BCS 


20$ 




DELAY 


250 




MOV 


«250,CPC)* 




.WORD 







MOV 


L$DLY,CPC)* 




.WORD 







DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22(PC) 




BNE 


. -20 




DEC 


SDELAY 




BNE 


15$ 




BR 


60$ 


20$: 


MOV 


TSSR(R5),R1 




MOV 


*SSR.R2 


25i: 


CMP 


R2.R1 




BEQ 


40$ 




BR 


60$ 


40$: 


SEC 






BR 


70$ 


60$: 


CLC 




70$: 








MOV 


R4,R0 




RTS 


PC 



SAVE THE GENERAL REGISTERS 
SET UP DELAY 

SET UP COMMAND, SPACE FORWARD 
CHECK FOR DIRECTION 
BR, IF REVERSE INDICATED 
LOAD UP NUMBER OF RECORDS TO SPACE 
GO DO COMMAND 
CLEAR DIRECTION BIT 
LOAD UP NUMBER OF RECORDS TO SPACE 
SET REVERSE BIT IN COMMAND PACKET 
SET UP R4 WITH PACKET ADD)^ESS 
SEND OUT COMMAND 
WAIT FOR SSR 

BR. IF SSR IS SET AND OK 
iDELAY ABOUT .25 SECONDS 



I BUMP DELAY COUNTER DOWN 

J BR, IF MORE DELAY 

I BR IF TROUBLE CARRY - CLEAR 

iREAD TSSR 

J SET UP EXPECTED 

I ARE THEY OK 

I BR. IF EQUAL - OK 

I TROUBLE EXIT 

(SET CARRY NO TROUBLE 

jEXIT 

:CARRY CLEAR - ERROR 

;PASS PACKET ADDRESS 
tRETURN 



1 /I 



rsV5 oLOBAi. ARCAS MACW ■U.^OO .?3MAR 8a 0'*:44 PAGK 1.7 

SPACF SPACF. RtCORD^: U ORwARO AND REVF.RSE.) COMMAND 



SEQ 0047 



1036 
1037 
1036 
1039 
1040 
104:-^ 
1044 
1045 
1046 
1047 
1048 
1049 

io::jo 

lOSl 
105^ 
1053 
1054 
1055 
105C 
1057 
1058 
1059 
1060 
1061 
106*? 
1065 
1064 
10<)S 
1066 
1067 
1066 
1069 
1070 
1071 
10/2 
1075 
1074 
1075 
10 76 
1077 
1078 
1079 
1080 
1081 
108c> 
1082 
lOtta 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 



010740 



010740 000000 



010742 
010744 
010746 
010750 



010752 
010752 
010V56 
010762 
0X0766 
010772 
010776 
011000 
011002 
011006 



OOOOOO 
000000 
OOOOOO 
OOOOOO 



J PACKET FOR SPACE COMMAND 

.-<. *10^6177770 

1 COMMAND WORD 

80$: .WORD 

fNUMBFR OF RFCORDS TO Bb SPACED OVER WORD 

90$: .WORD 

.WORD 

.WORD 
SDELAY: .WORD 

.EVEN 

,SBTTL WRTCHR 



iDELAr COUNTER 
" WRITE CHARACTERISTICS COMMAND 



ROUTINE TC ISSUE A WRITE CHARACTFRI5TIC5 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT ! 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT : 



RO TSSR CONTENTS 

CARRY S'iT - WFlXir CHARACTERISTICS COMMAND OK 
CLR - W^:.v CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUTFF. OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHtS SET AS FOLLOWS: 

EXTFEA - EXTENDED FEATURES PRESENT 
BEN8SW ■ BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



00503 1 
005C:f7 
010465 
0O4 737 
1054. ■ 
00043;- 
016501 
012702 



00 .?2/"; 

OOOCOv 

0)64?o 



OOOO-V 
000200 



WRTCHR: 



10$ 



20$ 



SAVREli 

CLR 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

MOV 



BEN8SW 

EXTFEA 

R4.TSDB(R5) 

PC.CHKTSSR 

20$ 

60$ 

TSSR(R5),R1 

<>SSR,R2 



I SAVE THE GENERAL REGISTERS 
J CLEAR BUFFER ENABLE SWITCH 

(CLEAR EXTENDED FEATURES SW SWITCH 

iSEND OUT COMMAND 

iWAIT FOR 5SR 

;BR. IF SSR IS SET AND OK 

;BR IF TROUBLE CARRY ■ CLEAR 

jREAD TSSR 

iSET UP EXPECTED 



J^l 



TSV? o'.OBAl AREAS M/\:no MU'OO ."'5-MAR-84 09:44 PAGt 17-1 
WRTCHR WRITE CHARACfL ?' '.TICS COMMAND 



SEQ 0048 



1095 


011012 


032703 


^}C>100 


10^*6 


011016 


00I';02 




109^ 


011020 


05; /Or' 


00 100 


1098 


011024 


020201. 




1099 


011026 


001401 




1100 


011030 


00*^-rt,u 




1101 


011032 


062'04 


O.'.'OIO 


1102 


011036 


OU-O: 




1103 


011040 


032 .•67. 


000200 


1104 


011046 


003 '^02 




1105 


011050 


00S?37 


002216 


1106 


011054 






1107 


011054 


C3c76'; 


OOC100 


1106 


011062 


00\ iCi 




1109 


011064 


001,2: , 


002220 


1110 


011070 






1111 


011070 


00^.2';! 




1112 


011072 


0Cv")40l 




1113 


0110/4 


00024 1 




1114 


011076 


ci6::'0o 


000002 


1115 


011102 


000207 




1116 








1117 








1118 








111*^ 








1120 








1121 








1122 








1123 








1124 








112^ 








1126 








1127 








1128 








1129 








1130 








1131 








1132 








1133 








1134 








1155 








1136 








1137 








1138 








1139 








1140 








1141 








1142 








1143 








1144 


011104 






1145 


011104 






1146 


011110 


012704 


011200 


114/ 


011114 


01046'i 


000000 


1148 


011120 


0127OO 


Co0550 


1149 


011124 


004 737 


016340 


1150 


011130 


103^17 




X151 


011132 







OOoOl, 



000012 





BIT 


#ari.,Ri 




BtO 


25$ 




BIS 


<?0PL.R2 


25$: 


CMP 


R2,H1 




BEO 


40$ 




BR 


60$ 


*t05i 


rOD 


#8. .U4 




MOV 


(R4).R3 




BIT 


0X2. EXIF. XST2(R3) 




BfQ 


45$ 




INC 


fcXTEEA 


45$: 








BIT 


*X2.BUrE,X3T2CR3) 




atQ 


50$ 




INC 


BENBSW 


5Cf ; 


SEC 






BR 


70$ 


iH) S : 


C' C 




70$: 


.-IPV 


TSSRCR5).R0 




RTS 


PC 




.SBTTL 


REUINO - POSITION 



jUAS Orr LINE SET IN FSSR 
jBR, IF NO OFL SET 
;MAKE THEM LOOK ALIKE 

ARE THEY OK 

BR, IF EUUAL ■ OK 

TROUBLE EXIT 

POINT TO WRT CHARA DATA PACKET 

GET ADDRESS OF MESSAGE BUfFER 

EXTENDED FEATURES BIT SET? 

BR IF NO 

SET EXTENDED FEATURES SW SWITCH 



;BR. 
:SET 



IF SWITCH NOT SET 



; BUFFER ENABLE SWITCH 



SOFTWARE SWITCH FOR ENABLED 



;SET CARRY NO TROUBLE 
jEXiT 

; CARRY CLEAR - ERROR 
:RETURN TSSR CONTENTS 
.•RETURN 
TAPE (REWIND) COMMAND 



THrS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION; THE ROUTINE DOES NOT WAIT FOR EOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CAuLING SEGvXNCE: 

DO A SOFT INT 

DO A WRITE CHARACTERISTr.CS 

JSR PC, REWIND 



INPIJT: 



OUTPUT 



R5 



RO 



FIRST DEVICC UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



REWIND: 


SAVREG 






MOV 


4»ftWPACK.R4 




MOV 


H4.TSDB(R5) 




MOV 


O360. ,R3 


10$: 


JSR 


FC.WAITF 




BCS 


20$ 




DELAY 


250. 



I SAVE W1-R5 UNTIL NEXT RETURN 

jGE. PACKET ADORESS 
SEND PACKET AOOFESS YQ EXECUTE 
ENOUGH TIME FOR 2400' REEL TO REWIND 
WAIT FOR SSR TC SET 

iLEAVE UHtN SSR IS SET 

I WAIT FOR ,2b SECONDS 



KA 



TSV5 ■ GLOBAL ARtAS MACRO Mlc^CO .\'.-MAR-84 09:44 PAGE 17-2 
REWIND - POSITION TAPE (RtWIMD) COMMAND 



SFQ 0049 





011132 


012727 


000572 




011136 


000000 






011140 


013727 


002116 




011144 


000000 






011146 


005367 


177772 




011152 


001375 






011154 


005367 


177756 




011160 


001367 




i.\5a 


011162 


005303 




1153 


011164 


001357 




1154 


011166 


000241 




1155 


011170 


010400 




1156 


011172 


000207 




1157 








1159 




011200 




1161 


011200 






1162 


011200 


102010 




1163 


011202 


000000 




1164 








1165 








1166 








11G7 








1168 








1169 








1170 








1371 








1172 








117^ 








1174 








1175 








1176 








1177 








1178 








1179 








iieo 








1181 








118P 








lies 








1184 








1185 








1186 








1187 








1186 








1189 








1190 








1191 








1192 








1193 


011204 






1194 


011204 






1195 


011210 


012701 


002232 


1196 


011214 


012702 


000201 


1197 


011220 


005003 




1198 


011222 


004737 


016426 


1199 


011226 


112765 


000000 000000 


120C 


011234 


004737 


016426 


1201 


011240 


010265 


000000 


1202 


011244 


004737 


016426 



20$: 



RWPACK: 



MOV 


V?250. ,CPC)* 


. WORD 





MOV 


L$DLY,(PC)f 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


nEC 


-22CPC) 


BNE 


. -20 


DEC 


R3 


BNE 


10$ 


CLC 




MOV 


R4,R0 


RTS 


PC 


.-<. ao 


>617777u 


.UORO 


102010 


.WORD 





.SBTTL 


CKRAM - C 



I BUMP COUNTER DOWN 
[KEEP GOING 

: CLEAR CARRr TO SET tRROR 
;PA55 THE PACKET ADDRESS 
I RE TURN 



;P0STI0N COMMAND CREWIND) 
(NOT USED 
COMPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 8 BlfTEG FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



OUTPUT t 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - P,Vi MATCHES PACKFT 

CL9 - RAM DOES NOT MATCH PACKET 



; IMPLICIT OUTPUT: 
I 

THE TABLE HAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM: : 


SAVREG 






MOV 


ffPAMDATA.Rl 




MOV 


*RMPKTBEG,R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




M0V8 


^.TS06CR5) 


lot; 


JSR 


PC.CHKTSSR 




MOV 


R2,TSDBvR5) 




JSR 


PC.CHKTSSR 



FIRST 
FLAG 



RAM DAfA 



I SAVE THE GENERAL REGISTERS 
jADDRESS TO SAVE THE RAM DA;A 
;BYTE ADDRESS OF 
; CLEAR THE ERROR 
;UAIT FOR SSR 
iSET MAINTENANCE 

WAIT FOR SSR TO 

SFLECT NEXT RAM 

WAIT FOR SSR TO 



MOOK 
SEl 

ADDRESS 
SET 



TSV? - GLOBAL ARf.AS 


MACRO M1200 2 


CKRAM 


• COMPARE-: RAM TO T '0 PACKbT 


i;^05 


011250 


116511 


000000 


1204 


011254 


122124 




1205 


011256 


001401 




1?06 


011260 


005203 




1207 


011262 


005202 




1208 


011264 


020227 


000210 


1209 


011270 


003761 




1210 


011272 


005703 




12U 


011274 


001402 




1212 


011276 


00024 1 




1213 


011300 


000401 




1214 


011302 


000261 




1215 


011304 


012737 


000010 002272 


1216 


011312 


000207 




1217 








1218 








1219 








1220 








1221 








1222 








1223 








1224 








1225 








1226 








1227 








1228 








1229 








1230 








1231 








1232 








1233 








1234 








1235 








1236 








1237 








1238 








1239 








1240 








1241 








1242 








1243 








1244 








1245 


011314 






1246 


011314 






1247 


011320 


012701 


002232 


1248 


011324 


012702 


000167 


1249 


011330 


005003 




1250 


011332 


004737 


016426 


1251 


011356 


112765 


000000 000000 


1252 


011344 


004737 


016426 


1253 


011350 


010265 


000000 


1254 


011354 


004737 


016426 


1255 


011360 


116511 


000000 


1256 


011364 


122124 




1257 


011366 


001401 




1258 


011370 


005205 




1259 011372 


005202 





SEQ OOSO 



jRtAD THE RAM DA'I'A 
jCOMPARE TO EXPECTED 
I BRANCH If OK 
iSfT ERROR fLAG 
jADDRES^. Of NEXT RAM lOCATION 
[REACHED END YET ? 
[BRANCH TILL ALL READ 
J WAS AN ERROR FOUND ? 
I BRANCH IE NOT 
[CLEAR CARRY TO SHOW ERROR 
AND EXIT 

SHOW GOOD COMPARE 
SETUP RAMSIZ FOR PRAMPKT ROUTINE 
RETURN 

CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 

* 

ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 





MOVB 


TSBA(R5).('n) 




CMPB 


CRl)*,(R4:f 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2,ftRMPKTEND 




BLE 


10$ 




T5T 


R3 




BED 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


MOV 


#8. .RAMSIZ 




RTS 


PC 




.SBTTL 


CKRAM2 - COM 



INPUT : 



R4 
R5 



OUTPUT : 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM2: 


SAVREG 






MOV 


<^RAM0ATA.R1 




MOV 


dRMCHBEG.R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MOVB 


*0,TSDB(R5) 


10$: 


JSR 


PC.CHKTSSR 




MOV 


R2.TS0B(R5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBA(R5),(R1) 




CMP3 


CR1)*.(R4)* 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH If- OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 



■v\ 



TSV.^ GLOBAL AREAS MACRO Ml^OO c?3MAR-8'^ 09:4i!i PAGt 17-4 
CKRAM2 COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ OOSl 



1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
12 75 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
.1300 
1301 
1302 
1503 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
L313 
1314 
1315 
1516 



011574 
011402 
011406 
011410 
011416 
011422 
011424 
011426 
011432 
011434 
011436 
011440 
011442 
011444 
011446 



011450 
011450 
011454 
011460 
011464 
011470 
011472 
011476 
011500 
011502 
011504 
011506 
011512 
011516 
011520 
011522 
011524 



012737 000010 002272 

005''37 002216 

001407 

012737 000012 002272 

020227 000200 

003 750 

000403 

020227 000176 

003744 

005703 

001402 

000241 

000401 

000261 

000207 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 



25$ 
27S 



30$ 
50$ 



MOV 

TST 

BEO 

MOV 

CMP 

BLE 

BR 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RT5 

.SBTTL 



>>8. .RAMS I / 

EXTEEA 

25$ 

OIQ. .RAMSIZ 

R2 . <>RMCHEND 

10$ 

27$ 

R2,V^RMCHEN0-2 

10$ 

R3 

30$ 

50$ 

PC 



(ASSUME EXTKEA NOT SET 

iT,S fHF SO'^TWARE EXTENDED ^EATUR&•3 SET 

iBR, ir NOT SET 

iSr.T HAMSIZ FOR EXTEND FEATURES 

AT ENi- or EXTENDED BUFFER 

BR. IF NOT AT END YET 

AT END BRANCH 
iREACHEO END YET ? 
[BRANCH TILL ALL READ 
;WAS AN ERROR FOUND ? 
; BRANCH IF NOT 
[CLEAR CARRY TO SHOW ERROR 
[AND EXIT 

[SHOW GOOD COMPARE 
[RETURN 



CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT : 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUTFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADO 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG 



002274 
002276 
003124 

017406 



002312 
002456 



000002 



10$: 
15$: 

25$: 



SAVREG 

MOV RO, RCVHIADD 

MOV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV RO.Rl 

CLR R4 

CLR R3 

MOV R2.R5 

MOV (R2).EXPMSG(R4) 

MOV (R1).RECMSGCR4) 

CMP (R2)*,(Rl)f 

BEQ 25$ 

INC R3 

ADD #2.R4 



(SAVE R1-R5 UNTIL NEXT RETURN 

iSAVE RECV HIGH ADDRESS 

J SAVE RECV LOW ADDRESS 

: TESTING ABOVE 28K? 

J BR IF NO 

; RETURN ADDRESS BIASED TO PAR6 IN RO 

J GET RETURNED ADDRESS BIASED TO PAR6 

[WORD IN BUFFER 

J CLEAR ERROR SEEN FLAG 

;GET EXPD BUFFER ADDRESS 

[SAVE EXPO FOR ERROR REPORT 

I SAVE RECV FOR ERROR REPORT 

;EXPD EQUAL RECV? 

BR IF YES 

SET ERROR SEEN FLAG 

POINT TO NEXT WORD ADDRESS 



m 



ySV5 - GLOBAL AREAS MACRO M1200 ^3-MAR-84 09:44 PAGE 17-b 
CKMSG ■ COMPARE WRITE CHAR. MESSAGE BUFPERS 



SECl 00'!)2 



1317 


011530 


020427 


000014 


1518 


011554 


003764 




1319 


011536 


052765 


000200 


1320 


011544 


001403 




1321 


011546 


020427 


000016 


1322 


011552 


003755 




1323 


011554 


005705 




1324 


011556 


001402 




1325 


011560 


000241 




1326 


011562 


000401 




1327 


011564 


000261 




1328 


011566 


000207 




1329 








1330 








1351 








1352 








1333 








1334 








1335 








1336 








1337 








1336 








1339 








1340 








1341 








1342 








1543 








1344 








1345 








1346 








134 -^ 








1346 








1349 








1350 








1551 








1552 








1353 








1354 








1555 








1356 


011570 






1357 


011570 






1358 


011574 


020527 


000144 


1359 


011600 


003412 




1360 


011602 


012703 


000144 


1361 


011606 








011606 


012746 


011722 




011612 


012746 


000001 




011616 


010600 






011620 


104417 






011622 


062706 


000004 


1362 


011626 


010037 


002274 


x363 


011632 


010137 


002276 


1364 


011656 


005757 


005124 


1365 


011642 


001405 




1366 


011644 


004757 


017406 


1367 


0U650 


010001 




1368 


011652 


005004 





000012 



50$ 



55$ 
60$ 



CMP 

BLE 

BIT 

BEQ 

CMP 

B! E 

TST 

BEQ 

CLC 

BR 

SEC 

RT5 

.SBTTL 



R4,/M4 ;DONE FIRST 7 WORDS? 

15% iBR IF NO 

^X2.EXTF.XST2(R5);IS EXTENDED FEATURES SET IN EXPO? 

BR IF NO 

DONE EXTENDED FEATURES WORD? 

BR IF NO 

ANY ERRORS SEEN? 

BR IF NO 

SET FAILURE 



50$ 

15$ 

R5 

55$ 



60$ 

PC 
CKMSG2 



SET SUCCESS 
RE T'JRN 
- COMPARE EXPO RECV MESSAGE BUFFERS 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAl.t 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT : 



RO 
Rl 
R2 
R3 



RECV MESSAGE aifrFEr"^ HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER ^OW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 



CKMSG2: 



5$ 



10$ 



EXPMSG BUFFER IS SET TO EXPO DATA 

RECMSG BUfFER IS SET TO RECV DATA 

RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 

RCVLOAOD SET TO LOW ORDER ADDRESS OF RECV 



SAVREG J SAVE Rl R5 IJNTIL NtX^" RETL>RN 

CMP R3.0RECMSG EXPMSG I aaO IS COUMT ABOVE MAX ALLOWED? 

BLE 5$ iSSO BR IF NO 

MOV 4>RECMSG -EXPMSG , R3 j SSO 

PRINTF <^OEBUGMSG ; 530 

MOV OOEBUGMSG.-CSP) 

MOV *1, (SP^ 

MOV SP.RO 

TRAP CIPNTF 

ADD d4 , SP 

MOV RO.RCVHTMDO 

MPV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV RO.Rl 

CLR R4 



I SAVE RECV HIGH ADDRESS 

tSAVE RECV LOU ADORFSS 

; TESTING ABOVE 2eK? 

iBR IF NO 

iRETURN ADDRESS BIASED TO PAR6 IN RC 

iGET RETURNED ADDRESS BIASED TO PAR6 

jiiORD IN BUFFER 



n 



1{ 



TSV.^ ol ORAL AREAS MACRO MK^'OO ._^^ MAP HA 0'i!44 PAde ) / -0 
CKMSG2 COMPARE EXPO RECV MESSAGt BUfffH'o 



'iEQ O0S5 



1569 


011654 


0050C5 






CLH 


R"» t CLEAR ERROR SEEN HAG 




1370 


011656 


111264 


00231.' 




IS J: MOVB 


(R.^).LXPMSG(R4) iSAVE EXPD f OR ERROR RtPORT 




1571 


011662 


111164 


002456 




MOVB 


(R1),RECMSGCR4) iSAVE RECV FOR ERROR REPORT 




1372 


011666 


122221 






CMPH 


CR2)»,CPn* lEXPO EQUAL RECV? 




1575 


011670 


001401 






BbQ 


25$ iBR IF YES 




1574 


011672 


005205 






INC 


R5 iGFT ERROR SEEN FLAG 




1375 


0116 74 


062704 


000001 




25 J t ADD 


«1,R4 iPOINT TO NEXT BfTE 




1576 


011700 


020405 






CMF 


R4,R5 iDONE ALL. BYTFS? 




1577 


011702 


002001 






BGF 


50i iBR IF YES 




1578 


011704 


000764 






BR 


15$ iDO NEXT BYTE 




1579 


011706 


005705 






50$: TST 


H5 (ANY ERRORS SEEN? 




1380 


011710 


0C1402 






BEQ 


55$ iBR IF NO 




1581 


011712 


000241 






CIC 


iSET FAIL;.JRE 




1582 


011714 


000401 






BR 


601 I 




1585 


011716 


000261 






551: SEC 


(SET SUCCESS 




1584 


011720 


000207 






60$: RTS 


PC 1 RE TURN 




1585 
















1586 


011722 


120 


122 


117 


DEBUGMSG; 


.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE B'JFFfR 


EXCEEDED- 


1587 


012012 


045 


116 


045 


FERCM: .ASCII 


/itNitfA •••/ 




1388 


012025 


040 


040 


124 


ERCM: .ASCI2 


/ TSSR ERROR COOfi REC D - / 




1589 


012056 


056 


056 


056 


SIHSG: .ASCIZ 


/ AFTER DOING SOFT INIT/ 




1590 


012111 


124 


105 


125 


TINERRt .ASCI2 


/TEST: .../ 




1591 










.EVEN 






159? 
















1395 










} * 






1594 
















1595 
139f, 
1597 










1 PRINT ROUTINE 


TO FATAL SOFT IN'iT ERRORS 












I INPUT: 






1598 
















1599 

1400 










: Rl 


CONTENTS OF TSSR AT ERROR 




1401 










iSIDE EFrECTS: 






1402 
















1405 
1404 










1 EXECUTES DROP UNIT TO CEASE TESTING 




1405 
















1406 
















1407 


012124 
012124 








BGNMSG 
SFIMSGi; 


SFIMSG 




1408 


012124 


004737 


006022 




JSR 


PC.PRITSSR iPRINT CONTENTS OF TSSR REGISTER 




1409 


012150 


004757 


017272 




JSR 


PC.CKDROP iDROP UNIT, IF ALLOWED 




1410 


012154 
012154 








ENDMSG 
U 10005: 






1411 
1412 


012154 


104425 






TRAP 


C«M5G 












^ * 






1415 










iPRINT ROUTINE 


TO PRINT THE CONTENTS OF 




1414 
1413 










iTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET, 




1416 










iINPUTSi 






1417 
















1418 










: Rl 


TSSR CONTENTS 




1419 
1420 
1421 










t R4 


ADDRESS OF COMMAND PACKET 


















1422 

















:n)o)0 



r' 



TSV5 ulOnrtl ARtAS MACRO Ml.-^OO ."'^■MAR 34 lV»:4a PAtit 1-' 1 

CKMSG.? COMPARE EXPO RtCV MEbbAOb UUfFtRS 



SFQ 00S4 



14?3 

14^4 
1425 
1426 

1427 



1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 

1441 

1442 
1443 
1444 



1446 

1447 

1443 
1449 
1450 
1451 
1452 
1453 
1454 
1455 

1456 

1457 



1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
14/0 



012136 
012136 
012136 
012142 
012146 
012152 
012152 
012152 



012154 
012154 
012154 
012160 
012164 
012170 
012170 
012170 



012172 

012172 
012172 
012176 
012176 
012176 



00473 7 006022 
012700 000004 
004737 007460 



104423 



004737 006022 
012700 000002 
004737 007460 



104423 



004737 ooeoaa 



104423 



PiasSRi 



L 10004: 



OGNMSG PKTTjSR 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 



PC.PRITSSR 

«4,R0 

PC.PRIPKT 



C$MSG 



iPRINT THE CONTENT*. Or T'-iSR REGISTER 

I NO. OF WORDS IN PACKET 

(PI?tNT THE CONTENTS OF COMMAND PAD^T 



PRINT ROUTINE \^y PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET. 



INPUTS: 



Rl 
R4 



BGNMSG 

PKTGETS:: 

JSR 
MOV 
JSR 
ENDMSG 

L 10005: 

TRAP 



t 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



PKTGETS 

PC.PRITSSR 
02. RO 
PC.PRIPKT 



CIMSG 



tPRINT TME CONTENTS Of TSSR REGISTER 
iNO. OF WORDS IN GET STATUS PACKET 
iPRINT THE COf^TENTS OF COMMAND PACKET 



iPRINT TSSR ERRORS FOR INITIALISATION TESTS 



I INPUTS: 

\ 

1 

\ 

\ - 



Rl 

R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



SFFMSG: 
110006: 



BGNMSG 

JSR 
ENDMSG 

TRAP 

.SBTTL 



SFFMSG 
PC.PRITSSR 



iPRINT CONTENTS OF TSSR REGISTER 



CIMSG 
PKTMES 



■ PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BLf FER FOR ERROR REPORTS 



INPUTS I 



Rl CONTENTS OF TSSR 

R2 LOU ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER A0DKE5S 

NOTE J R3 IS. IGNORED IF KTENABLE FLAG IS CLEAR 



)'. 



TSV? olAmm, ARtAS MACRO M 1^00 ..V^MAH-B'l 0'>:41 PA(it 17 8 

PKTMES PRINT TSSR AND MLSSAGfc BUFFE.R 



SEQ 



j^ 



1471 
14 7^ 

1473 
1474 
14 75 
1476 
1477 



1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 

1491 
1492 
1493 
1494 



1495 
14% 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 

1509 
1510 
1511 
1512 
1513 
1514 



1515 
1516 
1517 
1518 



012^00 
012200 
Oie'200 
0122C4 
012206 
012210 
012214 
012214 
012214 



012216 
012216 
012216 
012222 
012226 
012232 
012232 
012232 



012234 
012254 
012234 
012240 
012244 
012246 
012252 
012256 
012256 
012256 



004737 006022 

010200 

010301 

004737 014332 



104423 



PKTMES! 



BGNMSG PI<TMr.r> 



L 10007: 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 
.SBTTL 



PC.PRITSSR 
R2.R0 
R3,Rl 
PC.PRMESS 



iPRINT CONTENTS OF TSSR 

tl.OW ORDER ADDRESS 

J HIGH ORDER ADDRESS 

J PRINT THE MESSAGE BUFFER 



OMSG 
ADOSSR 



- PRINT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHl HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010564 
016501 000002 
004737 006022 



104423 



ADDSSR : 



LlOOlO: 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 

.SBTTL 



PC.PRITAOO 

TSSR(R5).R1 

PC.PRITSSR 



(PRINT MEMORY TEST ADDRESS 

(GET CURRENT TSSR 

(PRINT THE CONTENTS OF TSSR REGISTER 



C*MSG 
MSGEXP 



PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESS^'iE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVMIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



012700 000007 

005737 002216 
001402 

012700 000010 

004757 014642 



104423 



MSGEXP: 


t 






MOV 


*7,R0 




TST 


EXTFEA 




BEQ 


5$ 




MOV 


♦6. ,R0 


5J: 


JSR 
ENOMSG 


PC.PRMSGEXP 


L 10011: 








TRPP 


CIMSG 




.SBTTL 


FirEXP - P 


1 » 
I 







lASSUHE NO EXT FEATURES 

(EXT FEATURES SET? 

(BR IF NO 

'EXT FEATURE BUFFER IS 8 WORDS 

(PRINT EXPO/RECV MESSAGE BUFFERS 



- PRINT FIFO EXP/RECV DATA 



J PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 



TSV5 aOB'U rtRtAS MACRO Mi:?00 ^3-MAR 84 00;44 PAGt: 17-9 

FIFKXP PRINT Firo BXP/RECV DATA 



F!) 



SEQ 0056 



1^19 
1^20 
1521 
1522 
1523 
1524 
1525 
1326 
152 V 

1526 



1529 



1530 
1531 
1532 



1533 
1534 
1535 
1536 
1537 
1533 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 

1550 
1551 
1552 
1553 



012260 
012260 
012260 
012260 
012262 
012266 
012272 
012274 
012276 
012302 
012302 
012306 
012312 
012314 
012316 
012322 
012324 
012330 
012530 
012330 
012332 
012401 



1554 



012440 
012440 
012440 
012444 
012446 
012450 
012450 
012452 
012456 
012460 
012462 
012466 
012470 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
OIOIOO 
004737 



104423 
045 
045 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 



Rl 

IMPLICIT INPUTS: 



BYTt COUNT 



ExPM'iG - EXPECTED MESSAGE BUFFtR CC0NTAIN5 MFQ DATA ONi r 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONL t ) 



FIFEXP: 



BGNMSG FIFEXP 



012?;32 
000002 



000006 

012401 
OOOOOl 



000004 
015212 



116 
116 



045 
045 



L 100 12: 

FIFIMSG: 
FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENOMSG 

TRAP 



CFIFIHSG.RI 

R1.-<SP) 

<^FIF1MSG,-(SP) 

*2.-(SP) 

SP.RO 

CIPNTX 

*6,SP 

♦FIF2MSG 

<^FIF2MSG. -CSP) 

*1.-CSP) 

SP.RO 

CiPNTX 

*4.SP 

Rl.RO 

PC.PRBYTEXP 



iPRINT BYTES TRANSFERRED 



(PRINT HEADER MSG 



jGET BYTE COUNT 

(PRINT FIFO BYTES IN ERROR 



.EVEN 
,SBTTL 



CI MSG 

.ASCIZ 

.ASCIZ 



KNKA NUMBER OF BYTES TRANSFERRED 
\<N^A FIFO DATA BYTES IN ERROR:' 



#D2 



MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



I * 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 

EXPrlSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RtCEIVEO MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012502 

OOOOOl 

000004 
000012 



I - 

MSGSTAT: 

10$: 



BGNMSG MSGSTAT 



20$: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 



©STATCOO.Rl 

CRDf ,R0 

20 1 

RO 

RO.-CSP) 

01. -.SP) 

SP.RO 

CiPNTX 

04.SP 

10$ 

<^10. .RO 



I ASCII ADDRESS TABLE 
J DONE ALL MSG LINES? 
jBR IF YES 
jPRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 
jNliMBER OF WORDS IN A READ '^■ 



STATUS BUFFER 



TSV? GLOBAL AREAS MACRO N1200 c^S-MAR 84 0'^:44 PAGt 17-10 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



f- 



. > 



SEQ 0057 



1556 
1557 



1558 
1559 
3 560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1560 

1581 
1532 
1583 
1584 



1585 
1586 
1587 
1588 



1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 



012474 
012500 
012500 
012500 

012502 
0125,?0 
012562 
012653 
012744 
013035 
013077 



013154 
013154 
013154 
013160 
013162 
013164 
013164 
013166 
013172 
013174 
013176 
013202 
013204 
013210 
013214 
013214 
013214 

013216 
013256 
013311 
015410 
015507 
013606 
013705 
014004 



004737 014642 



104423 

012520 
045 
045 
045 
045 
045 
045 



012562 
116 
116 
116 
116 
116 
116 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

013256 
045 
045 
045 
045 
045 
045 
045 



013216 



000001 



000004 

000012 
014642 



013311 
116 
116 
116 
116 
116 
116 
116 



012653 
045 
045 
045 
045 
045 
045 



013410 
045 
045 
045 
045 
045 
0^5 
045 



L10013I 



JSR 
ENDMSG 



TRAP 



PC.PRMSGEXP 
CJMSG 



; PRINT EXPD/RECV MESSAGE BUrfERt" 



STATCOD: 
ii: .ASCI7 
.ASCIZ 
,ASCIZ 
.ASCI2 
.ASCI2 
.ASCIZ 



3i 
4J 
j$ 
6$ 



.UORO 
iiNi<A Tope 
«1N#A 
liNiiA 
i<NKA 
liNKA 
»<N*A 



Tope 



l$.2$,5$.4$,5i.6$.0 

Bus Signals In Word V^8:' 

PARERR<15> lEOT <12> IFMK <9> IR0r<6> 
IRESV2<14> IIDENT<llv IHER <8> I0NL<5> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 

Bus Signals in Uord <^9:' 

0ATMIS<7> ILW<6> 0UTRDY<5> INRDY<4>' 



IRWD<.?>' 

iFBr^l>' 

IFPT<0>' 



.EVEN 



.SBTTL MSGLOOP - PRINT LO0P3ACK HEADER AND MESSAGE BIFFERS 

♦ 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG 
MSGLOOP: : 

MOV 



10$: 



20$: 



L10014: 



MOV 

BEG 

PRINTX 

MOV 

MOV 

HOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENDMSG 



TRAP 



MSGLOOP 

*L00PC00,R1 

CR1)*.R0 

20 f 

RO 

R0,-(SP) 

01, -(SP) 

SP.RO 

C$PNTX 

*4.SP 

lOv 

*10. ,R0 

PC.PRMSGEXP 



C*MSG 



J ASCII AOORESS TABLE 
iDONE ALL MSG LINES? 
;BR IF YES 
1 PRINT STATUS BIT NAMES 



J DO ANOTHER MSG LINE 

(NUMBER OF WORDS IN A READ STATUS BUFFER 

I PRINT EXPD/RECV MESSAGE BUFFERS 



LOOPCOO ! 

1»: .ASCIZ 
.A3CIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



2» 
31 

4$ 
5$ 

6$ 

7$ 



.WORD l»,2$,3$,4#.5«.6i.7$.0 
^N#A Tap« 6u« Loopbock Signals in Word 



PARERR<15> 
IHISP-"*IEOT 12> 
IWFM ->IFMK<09> 
ITADO->IROY<06> 
IREW ->I0BY<03> 
IGO ■>IFPT<00^ 



«6: 



'#NiitA 

'lifMA 

'#NitA 

'#N«A 

'#NitA 

•#NKA 
EVEN 
SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



IRESV2<14> 

lWflT->IIDENT<ll> 
IEDIT->IHER <08> 
ITAD1->I0NL <05> 
IRWU ->IRWO <02^ 



IRESV1<13>' 

IREV -^ICER *10>' 
IFAD ->ISPEED<07>' 
IERASE->ILDP <04>' 
IFEN -^IFBY <01^' 



( • 



jPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



G'j 



TSV? - Gl.OR/^L AREAS MACHO M1?00 ^3-MAR-84 0*5:44 PACih 17-11 

MSGSUe - PRINT WRITE SUBSYSTEM MESSAGE BUTTER 



SEQ 00^8 



1603 

1604 
1605 
1606 
1607 
1608 
1609 
IrlO 
1611 
1612 

3613 
1614 
1615 



1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 

1630 
1631 
1632 
1633 
1634 



1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 



014032 
014032 
014032 
014036 
014042 
014042 
014042 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000012 
004737 014642 



104423 



MSG3Un: : 



BGNMSG MSGSUe 



L10015: 



MOV 
JSR 
ENDMSG 

TRAP 



*10. ,R0 
PC.PRMSGEXP 



C$MSG 



;SIZE O:-- WRITE SUBSYSTEM BUFFER 
(PRINT EXPD/RECV MESSAGE BUFFERS 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

1 IMPLICIT INPUTS: 

J 

J ERRHI - MEMOPY ERROR HIGH ORDER ADDRESS 

: ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

( EXP - EXPECTED DATA 

; RECV - RECEIVED DATA 



014044 
014044 
014044 
014050 
014054 
014060 
014064 
014064 
014064 



; - 



00473? 010250 

013701 002222 

013702 002224 
004737 010032 



104423 



MEMADD: 



LIOOI61 



BGNMSG MEMADD 

JSR PC.PRIADD 

MOV EXPD.Rl 

MOV RECV.R2 

JSR PC.PRIXOR 
ENOMSG 

TRAP CiMSG 

.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 



PRINT MEMORY ADDRESS IN ERROR 
GET EXPO DATA 
GET RECEIVED DATA 
I PRINT EXPD/RECV 



; PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
I WHEN THE RAM DATA DOES NOT MATCH. 

1 INPUTS : 

; R4 POINTER TO COMMAND PACKET 

! IMPLICIT INPUTS: 



I 



RAMOATA 
PAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ«0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



TSV5 - GLOBAL AREAS MACRO Ml?00 c?3-MAR 64 09:44 PAGt IV-li? 

PRAMPKT - PRINT RAM AND PACKET DATA 



.J 



1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 



1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1666 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 



014066 
014066 
014072 
014076 
014100 
014102 
014104 
014114 
014116 
014122 
014126 
014136 
014142 
014150 
014156 
014156 
014160 
014164 
014170 
014172 
014176 
014202 
014204 
014206 
014212 
014214 
014220 
014222 
014226 
014230 
014232 
014236 
014240 
014244 

014246 



012701 
005002 
122124 
001005 

0004 36 
116105 
116403 

042703 
116137 
116437 

010:.46 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



PRAMPKT: 



002232 



177 777 
177777 

177400 

177777 002224 

177777 002222 



002222 
002224 

014246 
000005 



000014 
0022''2 
002272 

000010 
002272 



5$ 



7$ 



SAVREG 
MOV 
CI R 
CMPB 
BN£ 



«RAM0ATA,K1 
R2 

CRn*,(R4V 
7? 



FORCERROR 



10$ 



I5i 

20$ 
25i 



BR 

H0V8 

MOVB 

XOR 

BIG 

MOVB 

MOVB 

PRTNTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

TST 

BEQ 

CMP 

BLF 

BR 

CMP 

BLT 

CLR 

RTb 



7$,N0TSSR 



lOJ 

-1(R1),R5 

-1CR4).R3 

R5,R3 

0177400. R3 

-KRD.RECV 

-1(R4).EXPD 

ORAMASC , R2 , RECV . EXPD . R3 

R3.-CSP) 

EXPD.-(SP) 

RECV.-^SP) 

R2. (SP) 

*RAMASC.-CSP) 

05,-CSP) 

SP.RO 

OPNTB 

014.SP 

R2 

RAMSIZ 

15t 

R2.RAMSIZ 

51 

25 1 

R2.tf8. 

5* 

RAMSIZ 

PC 



SEQ 0059 



(SAVE R1-R5 UNTIL NEXT RETURN 

(DATA FROM THE RAM 

;INIT BYTE NiJMBER 

; COMPARE EXPECTED, RECEIVED 

jBR IF NO MATCH 



iSSD 
I GET 
I GET 
jXOR 

J LOW 
(GET 
jGET 



RECV RAM DATA 
EXPD PACKET DATA 
EXPD/RECV 
BYTE ONLY 
RECEIVED RAM DATA 
EXPECTED RAM DATA 



UPDATE BYTE COUNT 
DEFAULT TO 8.? 
BR IF YES 
DONE ALL BYTES? 
BR IF NO 

DONE DEFAULT NUMBER OF BYTES? 
BR IF NO 

SET DEFAULT RAMSI2 
(RETURN 



116 



045 



tNtSA BYTE; KD2<tA RAM: K03KA Packet: K03i*A X0R:i<03' 



014332 



riAMASC: .ASCIZ 

.EVEN 

.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 

* 

THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 OR 6 WORD MESSAGE BUFFER RETURNED BY THE 

TSV-05. 

INPUT; 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BU^ FER 
NOTE I ni IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 



.1 '.■; 



TSV5 - GLOBAL AREAS MACRO Mlc^OO ."'i-MAR-a^ 00:44 PAGt 17-15 

PRMESS PRINT CONTENTS OF MESSAGE BUr^tR 



1702 
1705 
1704 
1705 
1706 
1707 
1708 
K09 
1710 



1711 



1712 
1715 
1714 
171S 
1716 
171/ 
1718 



1719 
1720 
1721 
1722 
1725 
1724 
1725 
1726 
1727 
1728 
1729 
1/50 
1751 
1752 
.1735 
1754 
1755 
1756 
1757 
1756 
1759 



014532 
014556 
014340 
014544 
014546 
014550 
014552 
C143r^4 
014356 
014356 
014560 
014362 
014366 
014572 
014374 
014376 
014402 
014402 
014406 
014412 
014414 
014416 
014422 
014424 
014426 
014450 
014432 
014436 
014440 
014440 
014442 
014444 
»"'t/:450 
014454 
014456 
014460 
014464 
014466 
014472 
014474 
014476 
014504 
014506 

014510 
014555 
014613 



010005 
0013737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005OO4 
010501 
010300 
001405 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
003761 
032705 
001355 
000207 

045 
045 

045 



003124 



10$ 



014510 
000003 



000010 

014555 
000001 



000004 



017406 



014613 
000003 



000010 
000007 

000200 000012 



20$ 



501 



SAVRF.G 

MOV 

TST 

&Nt 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

I RAP 

ADD 

INC 

CMP 

BGT 

BLT 

BIT 

6NE 

RTS 



SEQ 0060 



P0.R5 

K TENABLE 

10$ 

Rl 

R1.R3 

RC 

Rl 

*PR0ASC.R1.R5 

R5,-CSP) 

Rl. (SP) 

OPROASC, CSP) 

^>5.-(SP) 

SP.RO 

CiPNTX 

*10.SP 

*PR1ASC 

^RIASC. -(SP) 

#1.-(SP) 

SP.RO 

C*PNTX 

*4,SP 

R4 

R5,R1 

R5,R0 

20$ 

PC.SCTMAP 

R0,R5 

#PRASC.R4.(R5)» 

CR5)^,-(SP) 

R4,-CSP) 

*PRASC.-(bP) 

*3,-CSP) 

SP.RO 

CIPNTX 

«10.SP 

R4 

R4,#7 

50$ 

20$ 

*X2.EXTr,XST2(R3 

20$ 

PC 



;5AVE THE REGI-^TERS 

I SAVE LOW ORDER ADDRESS 

i ADDRESS ABOVE 28K? 

iBR IF YES 

iSET HIGH ORDER ADDRESS TO 

;SAVE HIGH ORDER ADDRESS 

iSHirT BIT15 TO C BIT 

jSHiri TO HIGH ORDER KOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



J PRINT HEADER FOR CONTENTS 



iN«^«ER OF THE NEXT WORD 

(COPY LOW ORDER ADDRESS 

;C0PY HIGH ORDER ADDRESS 

J BR IE NOT ABOVE 28K 

i SETUP PAR ADDRESS IN RO 

jGET PAR FORMAT ADDRESS ABOVE 28K 

i PRINT THE CONTENTS OF MEMORY BUFFER 



I NUMBER or Tt-E NEXT 

jDONE ALL YET ? 

I BRANCH IF ALL DONE 

iPRINT FIRST 7 WORDS 

) (EXTENDED FEATUTES ON ? 

(PRINT EXTENDED STATUS WORD 

(RETURN 



116 
116 
116 



045 
045 
045 



'«N«A M««sao« Buffer Addrevs - ii01K05' 
'«NtfA Message Buffer Contents:' 
•*N*A Word D1*A: #0' 

PRMSGEXP ■ PRINT EXPO/RECV MESSAGE BUFFERS 



PROASC: .ASCIZ 
PR1A:JC! .ASCIZ 
PRASC: .ASCIZ 

.EVEN 

.SBTTL 
i * 
t 
(ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

I RO - NUMBER OF WORDS IN BUFFER 

(IMPLICIT INPUTS: 



rSV5 - Gl QBAL '^RE.AS MACRO M1::>00 c^5 MAR-84 09j44 PAGE 17-14 
PRMSGEXP PPINT tXPD/RtCV MbSSAUb BUFFERS 



V r; 



bbQ 0061 



1740 
1741 
174,-? 
174.'. 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 



1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 



1/6? 
1/63 

r/64 

1765 
1 766 
1/67 
1768 
1769 
1770 
1771 
17/2 
1773 
1774 
1775 



014642 
014642 
014646 
014650 
014654 
014636 
014662 
014664 
014666 
014666 
014670 
014672 
014676 
014702 
014704 
014706 
014712 
014712 
014716 
014722 
014724 
014726 
014732 
014734 
014740 
014744 
014746 
014750 
014760 
014760 
014762 
014764 
014766 
014770 
014774 
015000 
015002 
015004 
015010 
015012 
015014 
015016 
015020 

015022 
015067 
015125 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 

oo;?ooi 

00075;: 
000207 

045 
045 
045 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002276 
002274 



015022 
000003 



000010 

015067 
000001 



000004 

002312 
002456 



015125 
000005 



000014 



PRMSGEXP: : 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20 J I MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TR-XP 

Aor 

INC 
CMP 
BGE 
BR 
50J: UTS 



116 
116 
116 



045 PRMSGO 
045 PRHSCl 
045 PRMSG2 



.ASCI/ 

.ASCIZ 

.ASCIi 

.EVEN 

.SBTTL 



R0.R5 

RCVLOADD, RO 

R0.R4 

HCVHIADD.Rl 

RO 

Rl 

*PRMSG0,R1.R4 

R4.-CSP) 

R1,-(SP) 

OPRMSGO.-CSP) 

«3,-(SP) 

SP.RO 

CIPNTX 

*10,SP 

*PRMSG1 

^RMSG1,--(SP) 

*1,-CSP) 

SP.RO 

CSPNTX 

«4,SP 

R4 

♦eXPMSG.Rl 

««ECMSG,R2 

(RD.RO 

CR2).R3 

R0.R3 

*PRM5G2.R4.(R1)* 

R3,-(SP) 

CR2)*.-(SP) 

CR1)*.-(SP) 

R4.-CSP) 

0PRMSG2,-(SP) 

#5.-CSP) 

SP.RO 

CIPNTX 

*14,SP 

R4 

R4,R5 

':,ot 

20* 
PC 



iSAVE R1-R5 UNTIL NEXT RETURN 
SAVE NUMBER OF WORDS 
GET RECV LOW ADDRESS 
COPY LOW ADDRESS 
GET RECV HIGH ADDRESS 
SHIFT BIT15 TO C BIT 
SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINT MESSAGE BUFFER ADDRESS 



; PRINT HEADER FOR CONTENTS 



iNUMGER OF THE CURRENT WORD 

jGET EXPD BUTFER ADDRESS 

iGET RECV BUFFER ADDRESS 

iGET EXPD 

;GET RECV 

;XOR EXPO/RECV 

.(R2)».R3 



(NUMBER OF THE NEXT 
jDONE ALL YET? 
jBR if yes 
I DO ANOTHER 
jRtnWN 



'#Ni<A M'jiHoo* BufFer Address - *01tt05' 

'*fWA M««ttaa« Buffer Contents*' 

'#Nl»A WORD dKO.?»<A EXPD: K06i4A RECV: it06»A XOR: *06 

PRBYTEXP " PRINT EKRUP BYTti.^ IN KXP/REC MESSAGE BUTFER 



ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 



TSV5 ul.OBrtL AREAS MACRO Ml^OO c\?-MAR~«n 0-^:44 PAUt 1/-15 

PRBY^tXP PRINT ERROR BrTtS rN tXP/REC Nt SSAGt BUFht-:R 



K'.; 



SEQ 006^ 



1776 
17?; 
1778 
1779 
1780 
1781 
178^ 

::83 

1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
179S 
1796 
179/ 
1798 
1799 
1800 
1801 
1802 
1803 
1604 



1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 



1815 
1816 
1817 



015212 
015212 
015216 
015220 
015224 
015226 
015232 
015236 
015240 
015244 
015250 
015252 
015256 
015262 
015272 
015274 
015276 
015302 
015310 
015312 
015312 
015314 
015320 
015324 
015326 
015332 
015336 
015340 
015542 
015346 
015356 
015.^60 
015360 
015:^70 
015370 
0153 72 
015374 
015376 
015400 
015400 
015404 
015410 
015414 
015416 
015420 
015424 

015426 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 

000717 

013746 
012746 
012746 
010600 
104415 
062706 
000207 

045 



002310 

002312 
002456 

177400 
015560 

177400 
015562 



002310 
002310 



015562 
015560 

015426 
000005 



000014 



002310 
015515 
000002 



000006 



ONLY THE FIRST G ERRORS t^NCOUNTEREO ARE PRINTED DUE TO SCREEN SPACE 
RO - NUMBER OF BYTES IN BUFFER 
IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 



PRBYTEXP 



20$ 



000010 



27$ 



30$ 
35$ 



50$ 



SAVREG 

MOV 

CLR 

ClR 

MOV 

MOV 

MOVB 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

XOR 

CMPB 

6EU 

INC 

CMP 

BHI 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

FORCEXIT 

BR 



R0.R5 

PRMNO 

R4 

ftEXPMSG.Rl 

*RECMSG,R2 

CRD.RO 

#tC<377>.RO 

RO.PRBEXP 

CR2),R3 

*tC<377>.R3 

R3.PRBREC 

R0»R3 

(R1)*.(R2)* 

30$ 

PRIINO 

PRMNO, #8. 

30$ 

♦PRBMSG , R4 . PRBEXP , PRBREC , R3 

R3.-(SP) 

PRBREC, (SP) 

PRBEXP.-(SP) 

R4.-':SP) 

W>RBMSG.-(SP) 

05. -(SP) 

SP.RO 

C$PNTX 

014, SF 

35$ 



jSAVE R1-R5 UNTIL NEXT RETURN 

;SAVE NUMBER OF BYTES 

jINIT ERROR COUNT 

;NUM6£R OF THE CURRENT BYTE 

;GET EXPO BUFFER ADDRESS 

iGET RECV BUFFER ADDRESS 

jGET EXPO BYTE 

tCLEAR UPPER BYTE 

;SAVE FOR ERROR REPORT 

jGET RECV BYTE 

;CLEAR UPPER BYTE 

iFOR ERROR REPORT 

[XOR EXPD/RECV 

jEXPD - RECV? 

iBR IF YES 

; UPDATE ERROR COUNT 

(PRINTED 8? 

jBR IF YES 



50$ 



FORCERROR 27$.NOTSSR 

INC R4 

CMP R4.R5 

BGE 50$ 

BR 20$ 

PRINTX (H^RBTOT . PRMNO 

MOV PRMNO. -CSP) 

MOV OPPBTOT, -CSP) 

MOV 02. -(SP) 

MOV SP . RO 

TRAP C$PNTX 

ADD 06, SP 

RTS PC 



toao 

;9QD 

l9SD 

) NUMBER OF THE NEXT 

I DONE ALL YET? 

iBR IF YES 

;D0 ANOi.l^R 

(PRINT TOTAL ERROR COUNl 



{RETURN 



116 



045 PRBMSGj .ASCIZ ' ?<NKA BYTE 0i<D2i<A EXPD: K03iiA RECV: *03*A XOR; K03 



L [, 



TSV5 vU OBrtl AREAS 
PRB'i^exP PRINT ERROR 



1818 
1819 
1820 
18P1 
1822 
182.^ 
1824 

1826 
1827 
1828 
1829 
1850 
1831 
1832 
1833 
1834 

1835 
1836 



1837 
1833 
183"; 
1840 
1041 
1842 
1843 
1844 
1645 
1846 
1847 
1848 
1849 
1850 

1851 
1852 



1853 
1854 
1855 
1856 
1357 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 



015513 

C15560 
015562 



015564 
015564 
015564 
015570 
015570 
015570 



015572 
015572 
015572 
015576 
015576 
015576 



045 

000000 
000000 



MACRO N1200 23-MAR 84 09:44 PAGh 17-16 

BTTf.S IN tXP/REC MFSSAGt BUf-TtR 

116 045 PRBTOT: .ASCI^ ' i*N*A NUMBER OF BYTES IN ERROR -- ^0? 

.EVEN 

PRBEXP: .WORD jtXPD 

PRBREC: .WORD jRECV 

.SBTTL tXPREC - PRINT EXPD/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



iEQ 0063 



004737 
104423 



010032 



004737 
104423 



007702 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



EXPREC: ; 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENDMSG 



i PRINT THE DATA 



TRAP CtMSG 

.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTt EXPD/RECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENDMSG 
L 10020: 

TRAP CJMSG 



(PRINT THE DATA 



.SBTTL RAMERR 



PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND l-ACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ KROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8 



1-1 



.J 



TSV5 ol Or.Al. AREAS MACRO ^U?00 

RAMtRR PRINT RAM AND PACKfcT DATA 



186^ 
18 70 
1871 
187? 
1873 
1874 
1875 



1876 
1877 



1878 
1379 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1867 
1888 
1889 
1890 
1891 
189? 
1893 
1694 
1895 
1896 
1897 
1898 
1899 
1900 
1901 

1902 
1903 
1904 



1905 
1906 
190/ 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1916 



015600 

015600 

015600 004737 014066 

015604 

015604 

015604 104423 



015606 

015606 

015606 004737 010364 

015612 004737 014066 

015616 

015616 

015616 104423 



015620 
015620 
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IMPLICIT OUTPUTS: 

RAHSI/ SET TO 



bEQ 0064 



RAMERR: ; 



L 10021: 



BGNMSG RAMFRR 

JSR PC.PRAMPKT 

ENDMSG 



; PRINT RAM/PACKKT DATA 



TRAP C$MSG 

.SBTTL RAMTADD ~ PRINT TEST ADDRESS. RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 

Nt^BER OF BYTES IN PACKET 

IF RAMSIZ^O THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG RAMTADD 
RAMTADD: : 

JSR PC.PRITADD 

JSR PCPRAMPKT 

ENDMSG 
L 10022: 

THAP C$MSG 



jPRINT TEST ADDRESS 
i PRINT RAM/PACKET DATA 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



RAMEXP: : 



BGNMSG RAMEXP 



HI 



TSV5 Gi.OB'M ARFAS HACRO Ml?00 J3-MARy4 09:44 PAtit 17-18 

RAMtXP PRINl RAM EXPD/RrCV DATA 



SEQ 0065 



1919 


015620 


042 701 


177400 


19.-^0 


015624 


042702 


177400 


1921 


015630 


004737 


010156 


19;?^ 


015634 


004737 


010032 


1923 


015640 
015M0 








015640 


104423 




1 'K^A 








19?5 








1926 








192 7 








1928 








1929 








1930 








19J1 








1952 








193? 








1934 








1935 








1936 








1937 


015642 
015642 






1938 


015642 








015642 


012746 


015670 




015646 


012746 


000001 




015652 


010600 






015654 


104415 






015656 


062706 


000004 


1939 


015662 


004737 


010032 


1940 


015666 
015666 








015666 


104425 




1941 








1942 


015670 


045 


116 


194:5 








1944 








1945 








1946 








194 7 








1948 








1949 








1950 








1951 








1 952 








1955 








1954 








1955 








1956 








1957 


015770 
015770 






1958 


0157 70 


010246 




1959 


015/72 


042702 


177400 


1960 


015776 








015776 


010246 






016000 


012746 


016030 




016004 


012746 


000002 




016010 


010600 







BIC 


<>tC<l77> ,R1 




BIC 


«tc<377>,R2 




JSR 


PC.PRIRAM 




JSR 


PC.PRIXOR 




ENDHSG 




L 10023: 







jSAVe: EXPD RAM DATA rW Th 
jSAVt EXPD RAM DATA BfTE 
: PR INT THE RAM ADDRESS 
jPRINT THF DATA 



TRAP 



C$MSG 



.SBTTL TIMEXP 



PRINT TIMER A.B AND EXP/REC 



PRINT RQUTINr TO DISPLAY EXPD/RECV DATA 
AND TIMER A,B HEADER MESSAGE 



INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



TIMEXP: 



L 10024: 



BGNMSG TIMEXP 

PRINTX #TIMSGO 

MUV OTXMSGO. -CSP) 

MOV 01, (SP) 

MOV SP . RO 

TRfP C$PNTX 

ADD «4 , SP 

JSR PC.PRIXOR 

ENDMSG 

TRAP C^MSG 



{PRINT HEADER 



jPRINT THE DATA 



045 



TIMSGO: .ASCIZ ' KN*A TIMER A STATUS IS IN BIT 3#N*A TIMER B STATUS IS IN BIT 2 
.EVEN 

.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



PRINT ROUTINE FOR TSSR ERRORS UN DATA TRANSFERS 

INPUTS: 



Rl 
R2 



CONTENTS Of TSSR 
DATA WRITTEN Cti BITS) 



BGNMSG 


BADSSR 


BADSSR: : 




MOV 


R2, (SP) 


BIC 


#177400, R2 


PRINTB 


«XFERASC.R2 


MOV 


H2. (SP) 


MOV 


OXfFRASC, -(SP^ 


MOV 


02. (SP) 


MOV 


SP.RO 



iSAVE DATA TRANSFERRED 
jGET JUST ONE BYTE 



\^r. 



TSV5 ul OHAl ARJAS MACRO ML'OO ."'5 MAh flA 0^^:44 PA(,t IV-IO 

BAOSSR - PRINT TSSR ^RRORf. ON DATA TRANSF KRS 



btQ 0066 



19fol 
196? 



l->64 
^>^5 
1966 
1967 
196tt 
196 <* 
19/0 

I'^a 
I'^/eJ 

1975 
1974 
1975 
1<^76 
1977 

197a 

1979 
1980 
1981 
1982 
1985 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1995 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
c?004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2015 



016012 
016014 
016020 
016022 
016026 
016026 
016026 
016030 



016064 
016064 
016070 
016076 
016102 
016106 
016110 
016114 
016120 
016122 
016124 
016126 
016130 
016132 



104414 
062706 
012602 
004737 



104423 

045 



000006 
006022 



116 



045 



TRAP 


CIPNTB 


ADO 


<»6 . SP 


MOV 


(5P).,R2 


JSR 


PC.PRITSSR 


FNOMSG 




1.10025: 




TRAP 


CIMSG 


XFERASC; 


.ASCI^ '• 



iRtSTORF R^' 

iDFCODF TSSR CONTfcNT'", 



•N#A Data rpttnaf«rr«d - i*03' 
,SBTTL (5L08AL SUBR0UTINF3 SECTION 



THf GLOBAL ?L6R0UTINtS SECTION CONTAINS THE 5UGRl)UTlNE5 
THAT ARE USED IN MORE THAN ONE TEST. 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROlLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANr ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 

R5 
OUTPUTS: 



R > 
C >RRY 



ADDRESS OF FIRST REGISTER 



CCtJTENTS OF TSSR. IF ERROR 
SET IF INIT MAS OKAy 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



MOV 
JSR 
BCS 
ERRDF 



♦ADDRESS. R5 

PC.SOFINIT 
CONTINUE 



iREPORT FATAL ,RROfl 



SOFINIT: 



012765 000000 

004737 016540 

016!S00 000002 

010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

000261 

000207 



000002 



51: 
lOM 



SAVREG 

MOV 

JSR 

MOV 

MCV 

Die 

BIS 

CMP 

BEQ 

CLC 

BR 

SEC 

RT5 

.SBTTL 



I SAVE THE REGISTERS 
#0,TSSR(R5) » DO THE INIT. 
PC.UAITF I WAIT FOR SSR 
TSSR(R5),R0 jGET THE TSSR REGISTER 
R0.R4 I TSSR CONTENTS 

#tC<HIA00R!0FL>.R4 

#SSR*NeA.R4 |R4 HAS EXPECTED CONTENTS 
R4,R0 lONLY EXPECTED BITS SET ? 

51 iBRANCH IF OKAY 

I CLEAR THE CARRY FOR ERRQR 
10» iGO TO EXIT 

I SET THE CARRY BIT 
PC (RETURN TO CALLER 

CHKAMe • CHECK TSSR FOR AMBIGUITY 



fe 



CHKAMB CHECK TSSR FOR AMBlCiUlTI 



^OXA 

:;oi6 

^oie 

2019 

2020 

2021 

a022 

2023 

2024 

2025 

2026 

2027 

2026 

2029 

2050 

2031 

2052 

2035 016134 

2054 016154 

2035 016140 

2056 016142 

2037 016146 

2038 016150 

2039 0161M 

2040 016156 

2041 016160 

2042 016164 

2043 016166 

2044 016172 

2045 016174 

2046 016200 

2047 016204 
204fl 0.16206 

2049 016210 

2050 016214 

2051 016216 

2052 016222 

2053 016224 

2054 016226 

2055 016230 

2056 016232 
205? 

2056 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
20V0 016234 
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SEQ 00^7 



010004 
032700 
001004 
032700 
001023 
000424 
052700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 



100000 

174077 

000200 

000040 

177761 
000016 

000040 
000006 



000200 
OOOOOl 



000 



THIS ROUTINt TESTS THE CONTENTS OF' THE TSf^R Rt-GISTER 
^OR AHBIGUITY 



INPUT ! 



RO 



OUTPUT; 



RO 
CARRY 



CONTENTS Of TSSR 



CONTENTS or TSSR 

SET - NO AMOIGUITy 

CLR - AMBIGUOUS CONTENTS 



CHKAMB: 


SAVHEG 






MOV 


R0.R4 1 




BIT 


OSC.RO : 




BNE 


S( 1 




BIT 


•tC<NBA!OFL!SSR!H 




BME 


401 I 




BR 


451 1 


5$: 


BIT 


♦SSR.RO 1 




BNE 


101 1 




BIT 


•6115. RO 1 




BEQ 


401 1 




BIC 


♦ tCTERCl.S,R4 1 




CMP 


R4,*16 1 




BNE 


401 1 




BR 


458 > 


10(: 


BIT 


•6IT5.ro I 




BEQ 


451 1 




BIT 


•eiT2!BITl.R0 1 




BNE 


451 1 


401: 


CLC 






BR 


501 


45»: 


SEC 




50»: 


RTS 


PC I 




.SBTTL 


ENAINl .DSBINT - E 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
!HIADOR>.R0 (ANY OTHER BITS SET 
MUST BE AN ERROR 
RETURN WITH SUCCESS 
IS READY BIT SET ? 
BRANCH IF READY BIT IS SET. 
IS FATAL ERROR BIT SET V 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR, IF TSSR IS OK 
AMBIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
RETURN TO CALLER 
ENABLE/DISABLE INTERRUPTS 

I OEFA'vXT DISPLAY INTERRUPT HANDLERS. 

t IF DISPLAY TIME-OUT, REPORT DEV FATAL. AND ABORT PASS. 

I OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 

1 

I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 



I0KCKIN-BIT7 
lOKSTP-BITO 



I DON'T CHECK FOR BAD INTERRUPTS — TEST WILL* 
I EXPECT "STOP" INTERRUPT, 



(INTERRUPT tIASK -- SAYii EXPECTING INTERRUPTS 
INTMASK; .BYTE 



1)^,- 
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ENAINT.OSBINT ■ f NAPLb . DlsAHl.h INTtRRUPTS 



.bQ 0068 



^071 
2073 

2075 
2074 
J»075 
c?07/:, 
c^077 
P078 
20 79 
.?080 

2oei 

2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2095 
2094 
2095 

2096 
2Q97 
2098 
2099 

2100 
2101 
2102 
2103 
2104 



2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 

2121 
2122 

2123 



016235 

016236 
016240 



016242 
016244 
016250 
016254 
016260 
016262 
016264 
016272 



016274 
016276 
016304 



016306 
016306 
016306 
016314 
016320 
016326 
016330 



016336 
016336 
016336 
016336 



016340 
016542 
016342 
016344 
016350 
016354 



000 

000000 
000000 



010046 
013700 
012720 
012720 
012600 
011646 
012766 
00C002 



011646 

012766 
000002 



012737 
105037 
132737 
001003 
152737 



000002 



000401 

104422 
012746 
016500 
105700 



002200 
016306 
000300 



000000 000002 



000300 000002 



000001 
016235 
OOOOOl 

000001 



002214 
016234 
016235 



011000 
000002 



ilNTERRUPT FLAG - SAYS WE GOT ONE CIF POSITIVE) 
INTFLAG: .BYTE 

iSAVtO INTERRUPT VECTOR: 
INTVEC: .WORD 
I SAVE CPU PC 
INTCPC: .WORD 



t SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT! MOV RO.-(SP) iGAVE RO 

IVFC.RO 

dINTR.CRO). 

*PRI06.CR0)t 

CSP)».R0 

CSP),-(SP) 

ftO,2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTT 



:GET POINTER TO VECTORS 
(SET UP INTERRUPT VECTOR 

jRESTORE RO 

•SET CPU TO LEVEL 



tSUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 6) 



DSBINT: MOV 
MOV 



INTR: 



RTI 
.SBTTL 

BGNSRV 

MOV 

CLRB 

BITB 

BNE 

BISB 



(SP),-(SP) 
WRI06.2CSP) 

INTR - INTERRUPT HANDLERS 

INTR lOEFINE INTERRUPT ENTRY 

♦l.INTRtCV I SET »LAG TO SHOW INTERRUPT RECEIVED 

INTFLAG I CLEAR FLAG TO SAY WE GOT INTERRUPT 

♦lOKSTP.INTMASK i EXPECTING STOP INTERRUPT? 

1» iBR IF YES 

OIOKSTP, INTFLAG |N0. SET THE ERROR FLAG. 



tSAVE REGISTERS, MSG BUFFER, ETC. 
1$: 

ENDSRV 
L 10026: 

RTI 

.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 

Sl^ROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 ADDRESS OF FIRST DEVICE REGISTER 
OUTPUTS: 



RO 

CARRY 



WAITF: • BR 

BREAK 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



II: 
2«: 



TRAP 
MOV 
MOV 
TSTB 



1$ 

CIBRK 

011000. -CSP) 

1SSRCR5),R0 

RO 



iNOP WHEN SUPER FIXED 

J DO A SUPVSR BREAK FIRST. 

t25 APRIL '83 REV B - 1100 MSEC TIMER 
iREAD THE TSSR REGISTER 
J TEST FOR READY BIT SET 



TSV5 ul.OBAl AREAS MACRO M1?00 

WAITF WAIT FOR SUBSYSTEM READ> 
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1)EQ 0069 



2l^5 


016356 


100420 




2126 


016360 








016360 


012727 


000001 




016364 


OOOOOO 






016366 


013727 


002116 




016372 


OOOOOO 






016374 


005367 


177772 




016400 


001575 






016402 


005367 


177756 




016406 


001367 




2127 


016410 


005316 




2128 


016412 


001356 




2129 


016414 


000241 




2130 


016416 


000401 




2131 


016420 


000261 




2132 


016422 


005326 




2133 


016424 


000207 




2134 








2135 








2136 








2137 








2138 








2139 








2140 








2141 








2142 








2143 








2144 








2145 








2146 








2147 








2148 








2149 








2150 








2151 








2152 








2153 


016426 






2154 


016426 


004737 


016340 


2155 


016432 


103014 




2156 


016434 


004737 


016134 


2157 


016440 


103006 




2158 


016442 


032700 


100000 


2159 


016446 


001405 




2160 


016450 


032700 


074000 


2161 


016454 


001402 




2162 


016456 


000241 




2163 


016460 


000401 




2164 


016462 


000261 




2165 


016464 


000207 




2166 








2167 








2168 








2169 








2170 








2171 








2172 









3» 
4$ 



BMI 


5$ 


DELAY 


1 


MOV 


#1.CPC)» 


.UORD 





MOV 


L$DLY.(PC)» 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


DEC 


CSP) 


BNE 


2$ 


CLC 




BR 


4$ 


SEC 




DEC 


CSP)v 


RTS 


PC 



1 EXIT ON STOP FLAG. 
I WAIT 100 USEC 



i REDUCE DELAY COUNT 

jRETRY UNTIL TIMER EXPIRES 

I C - 0. CONTROLLER STILL RUNNING.,. 

t...OR HUNG-UP AFTER 300 MSEC. 

» C - 1. CONTROLLER IS STOPPED. 

iRESTORE STACK WITHOUT CHANGING CARRY BIT 



.SBTTL CHKTSSR - CHECK T5SR FOR READY 



;THIS ROUTINE WAITS FOR READY IN THE TSSR 
lANO TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR 



J INPUT : 



R5 



I OUTPUT: 



RO 
CARRY 



ADDRESS OF CSR REGISTERS 



CONTENTS OF TSSR 

SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



CHKTSSR: 



10$ 

151 

20* 



JSR 

BCC 

JSR 

BCC 

BIT 

BEQ 

BIT 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



PC. WAITF 
20 J 
PC.CHKAMB 

lot 

*SC,RO 

15$ 

*<SCE!BIE*RMR»NXM>,RO 

15$ 



20$ 

PC 
XNXM 



(WAIT FOR READY 

(BRANCH IF TIME OUT 

;TSSR AMBIGOUS? 

I BR IF YES 

(SPECIAL CONDITION SET? 

(BR IF NO 

(ANY ERROR BITS SET? 

(BR IF NO 

(SET FAILURE 



(SET SUCCESS 
(RETURN TO CALLER 
- CHECK FOR NONEXISTENT MEMORY 



( ROUTINE TO TES 

i ON RETURN, IF 

I 

I 

jCALL: MOV ADRl.Rl 



T FOR A NEXM IN THE RANGE CRl) THRU (R2) 
"C" ■ 1, CRl) - NEXM ADDRESS. 
"C" - 0. ALL ADDRESSES OK. 
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XNXM CHECK FOR NONEXISTENT MEMORY 



I'b 



bEQ 0070 



2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
218'5 
2186 
2187 
2188 
2189 
2190 



2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
3227 



016466 
0164 74 
016502 
016504 

016506 
016510 
016512 
016516 

016520 
016522 
016526 
016530 
016530 
0X6534 
016536 
016540 
016542 
016544 



016546 
016546 
016552 
016554 
016560 
016562 
016566 
016570 
016572 
016574 
016576 



01273? 016520 000004 
012737 000200 000006 
005003 
005711 

020102 

001407 

062701 000002 

000772 

005103 

012716 016530 

000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



005737 002160 

001006 

005737 002174 

100403 

005337 002206 

001002 

000241 

000401 

000261 

000207 



MOV ADR2.R2 
JSR PC.NXM 
RETURN 



iTEST "C" AND PROCEED 



XNXM 
1$: 



2$: 
3$j 



MOV 
MOV 
CLR 
TST 

CMP 
BEQ 
ADO 
BR 

COM 

MOV 

RTI 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



«2i.a«4 

*PRI04,a<?6 
R3 

(Rl) 

R1.R2 
6% 

*2.R1 
1$ 

R3 
*3$.(SP) 

«4 

#4.R0 
CJCVEC 
R3 
. ^4 

PC 



J SET BUSERR VECTOR. 

;rLAG. 

;TEST THE ADDRESSCES). 

;IF ANY TRAP, CONTINUE AT 2i 

(OTHERWISE. CONTINUE HERE. 

sBR ir FINISHED (NO NEXM'S). 

I SET NEXT ADDRESS. . . 

; . . .AND CONTINUE. 

;GOT ONE, SET FLAG. . . 

J... AND DISMISS INTERRUPT... 
;,..ANO GIVE BACK THE VECTOR 



jDID WE CATCH ONE ?? 

;N0, "C" » 0, SKIP NEXT. 

:YES. "C" = 1, (Rl) » NEXM ADDR 



.SBTTL TSTLOOP ~ CHECK ITERATION COUNT 

SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 

LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO. 



ITERATIONS INHIBITED? 
YES. 
NO. 
LOOPS DISALLOWED IN QUICK PASS. 
BUMP LOOP COUNTER. 

LOOP DISALLOWED, OR DONE. 

I LOOP ENABLED. 



.SBTTL TSTSETUP - PRINT TEST NA^>E AND INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 

INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
t IN THE CURRENT RUN SEQUENCE. 
t CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 

! INPUT : 

1 

; 



t CALL: l.OOPTO 


ARG 


TSTLOOP:: 




TST 


NOTTS 


BNE 


1$ 


TST 


QVP 


BMI 


1$ 


DEC 


LOOPCNT 


BNE 


2i 


1m CLC 




BR 


35 


2i: SEC 




3*: RT:. 


PC 



RO 



POINTER TO TEST ID ASCIZ STRING 



TSV? - GLOBAL ARtAS MACRO HlPOO c?3-MAR-84 09-44 PAGE 17-24 
TSTSETUP ■ PRINT TEST NAME AND INIT ERROR COUNTS 



Gb 



SEQ 0071 



2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2257 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



2256 
2257 
2258 



2259 
2260 



2261 

2262 
2263 
2264 

2265 
2266 

2267 
2268 



016600 
016600 
016602 
016606 
016612 
016616 
016622 
016626 
016630 
016634 
016636 
016640 
016646 
016646 
016650 
016652 
016654 
016656 
016660 
016666 
016666 
016670 
016672 
016674 
016676 
016704 
016704 
016710 
016712 
016712 
016714 

C16716 
016716 
016720 
016724 
016726 
016730 
016730 
016732 
016736 
016742 



010046 
005037 
005037 
005037 
105037 
015700 
006300 
005737 
001430 
100010 
052760 

104455 
000001 
003736 
005734 
000407 
052760 

10441;^ 

000002 
004335 
000000 
012737 

013700 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 



OUTPUT: 

R5 ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



003144 
017046 
005770 
016234 
002172 

003104 



160000 003166 



TSTSETUP:: 

MOV 



160001 003166 3$ 



177777 
002172 



003102 2$ 



4$: 



001000 



016/74 
000002 



CLR 

CLR 

CLR 

CLRe 

MOV 

ASL 

TST 

BEQ 

BPL 

BIS 

ERRDF 

TRAP 

• UORO 

.UOPO 

.WORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.UOPO 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

hOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 



RO.-CSP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNIIN.RO 

RO 

NODEV 

4$ 

3» 

*160000,ERTABLC 

l.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 

2i 

«160001.ERTABLC 

2.N0INIT 

C$ER0F 

2 

NOINIT 



♦-l.OUFLG 

UNITN 

UNITN.RO 

C$DODU 

C«DCLN 
5$ 

RO 

CIRFLA 

*PNT.t"^0 

1$ 

(SP),RO 

OTNAM.RO 

RO.-CSP) 

OTNAM. -CSP) 

<'2.-CSP) 

SP.RO 



(SAVE THE TEST ID MESSAGE 
I CLEAR "SOFT INIT" FLAG 
t CLEAR LOCAL ERROR COUNTER. 
J CLEAR ERROR EXTENSION FLAG. 
t CLEAR INTERRUPT MASK (CHECK ERROR) 
i GET THE UNIT NUMBER, 
: . . . ANO MAKE IT A WORD OFFSET. 
I DID STARTUP FIND THE DEVICE? 
; BR IF YE5 
I BR IF NOT IDLE 
RO) ; FLAG ERROR IN THE ERROR TABLE 
; NO DEVICE HERE -- PRINT IT 



RO) i FLAG ERROR IN THE ERROR TABLE 
J DEVICE NOT IDLE 



; DROP THE UNIT 



I ABORT THE PASS 



I GET THE OPERATOR FLAGS. 

I PRINT THE TEST NUMBERS? 

; BR IF NO 

iGET THE ID MESSAGE 

;DISPLAY THE TEST ID 



Hr, 



TSV? ai.OBAl. ARtAS MACRO Mi;»00 ^3-MAR.a4 09:44 PAGt 17-25 
TSTSHTUP ■ PRINT TEST NAHfc' AND INIT ERROR COUNTS 



SEQ 007a; 



2269 
2270 



?271 
?0 72 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 

2282 
2283 
2284 



2285 
2286 
22^7 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2501 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
3314 



016744 
016746 
016752 
016756 
016756 
016762 
016764 
016766 
016772 
016774 



017010 
017010 
017012 
017016 
017020 
017020 
017024 
017030 
017054 
017036 
017040 
017044 

017046 
017050 
017067 



017134 
017140 
017142 
017146 
017150 
017154 
017156 
017162 
017164 
017166 
017170 

017172 
017174 
017200 
017202 
017206 
017212 
017216 



104417 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



104421 
030027 
001412 

013746 
012746 
C12746 
010600 
104417 
062706 
000207 



045 
105 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 

016000 
042700 
020037 
105004 



000006 
002204 

002202 



002176 
123 



020000 



017046 
017050 
000002 



000006 



101 
122 



017046 
002172 
003166 
007777 



002172 

003166 
170000 
002164 



1$: 

5$: 
045 TNAH: 



TRAP 

ADD 

INC 

SETPRX 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 

.SBTTL 



C$PNTF 

ft6 , SP 

TSTCNT 

IPRI 

IPRI.RO 

C$SPRI 

CSP)* 

CSRADDR.R5 

PC 

'i<S*<Ti<A Test 



; BUMP TEST COUNTER. 
:PRIORITY THAT OF DEVICE 



[FIX UP THE STACK 

J ADDRESS OF TSV REGISTERS ON UNIBUS 



TSTEND 



PRINT ERRORS RECEIVED 



AT END or EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED CFLA:IER). 



TSTEND: RFLAGS 
TRAP 
BIT 
BEQ 
PRINTF 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

1$: RTS 

ERRK : 
040 ES'JH: .ASCIZ 
122 EMAXDU; ASCIZ 
.EVEN 



BR IF "lER" NOT SET. 
PRINT ERROR COUNT. 



RO 

CiRFLA 

RO.eiER 

li 

^SUM.ERRK 

ERRK, -(SP) 

*eSUM,-CSP) 

02,-CSP) 

SP.RO 

CIPNTF 

*6.SP 

PC 



: LOCAL ERROR COUNT. 
/^A #DitA ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 



INCERK: INC ERRK 

MOV RO.-CSP) 

MOV UNITN.RO 

ASL RO 

ADD ^RTABL.RO 

INC CRO) 

BIT 07777. (RO) 

BNE II 

DEC (RO) 

It: MOV (SP)*.RO 

RTS PC 

CKEMAXi MOV RO.-(SP) 

MOV UNITN.RO 

ASL RO 

MOV ERTABL(RO).RO 

BIC #1 70000, RO 

CMP RO.GERRMAX 

BHIS 1$ 



INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

...AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER, 

SAVE RO 

GET UNIT NUMBER 

...AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 



Te 



TSV5 ul OBAl. ARfcAS MACRO M1.?00 c?3-MAR-84 0*^:44 PAGt. 17-26 

INCtRK - INCREMENT LOCAL CRROR COUNT 



J 



SEQ 0073 



^315 
2316 

2317 

^>31S 
?319 
c'320 
?521 



;?322 



2323 

2324 
2325 
P326 
^^527 
c'328 
2329 
2330 
2331 
2332 

2333 
2334 
2335 
2336 
2337 



2338 

2339 
2340 
2341 
2342 
2543 
2344 
2545 
2346 
234 7 
2348 
2549 
2350 
2351 
2352 
2353 
2354 
2555 
2356 
2557 
2558 
23S9 



CI 7220 
017226 
017230 
017230 
017232 
017236 
017240 
017246 
017246 
017250 
017252 
017254 
017256 
017256 
017262 
017264 
017264 
017266 
017270 



017272 
017274 
017304 
017504 
017506 
017512 
017514 
017516 
017324 
017524 
017530 
017552 
017532 
017554 
017336 



017540 
017540 
017344 



017546 
017552 
017554 
017362 



023 737 
103417 



104421 
032700 
001010 
011600 
012737 

015700 
104451 

104444 
012600 
000207 



004757 
000207 



005757 
001403 
012757 
000207 



017046 



104421 

052700 000040 

001013 

012737 177777 

104455 
000004 
017067 
000000 

013700 002172 
104451 

104444 
012600 
000207 



010046 



003102 



000040 

177777 
002172 



003102 





CMP 


ERRK.LERRMAX 


I 


15 LOCAL LIMIT EXCEEDED 




BLO 


Z% 




I 


BR IV NO 


1$: 


PFLAGS 
TRAP 


RO 

CiRFLA 




f 


GET OPERATOR FLAGG 




BIT 


OIDU.RO 




* 


IS DROPPING INHIBITED? 




BNE 


2* 




( 


BR IF tES. 




MOV 


<>-1.0UFLG 




* 


NO -- DROP THE UNIT 




ERRDK 


4,EMAXDU 










TRAP 


CJERDF 










.WORD 


4 










.WORD 


EMAXOU 










.WORD 













DODU 


UNITN 










MOV 


UNITN.RO 










TRAP 


C$OODU 










DOCLN 












TRAP 


CJDCLN 








2$: 


MOV 


(SP)».RO 




t 


RESTORE RO 




RTS 


PC 




* 


RETURN TO CALLER 




.SBTTL 


CKDROP - 


CHECK 


IF UNIT SHOULD BE DROPPED 


! CHECK 


IF UNIT 


SHOULD BE 


DROPPED 




CKOROP: 


MOV 


ftO.-CSP') 










FORCERROR 11 


^NOTSSR 






RFLAGS 


RO 










TRAP 


C$RFLA 










BIT 


*IDU,RO 










BNE 


U 










MOV 


(SP).RO 










MOV 


l.DUFLG 










DOOU 


U^4ITN 










MOV 


UNITN.RO 










TRAP 


CiDOOU 










DOCLN 






tJ 


^BORT THE PASS 




TRAP 


CIDCLN 








1$: 


MOV 
RTS 


(SP)*,RO 
PC 









FOR THIS TEST? 



016064 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SISTEM 
SUBROUTINE - DETERMINE CONFIGURATION OF TSV05 SYiiTEM. 
CONFIG: 



JSR PC.SOFINIT 

RTS PC 

.SBTTL KTON.KTOi-^F 

SUBROUTINE - ENABLE MEM MGT . 



• ENABLE/DISABLE MEMORY MANAGEMENT 



003122 

000001 177572 



KTON: 


TST 


KTFLG 


t GOT KT? 




BEQ 


It 


i NO. 




MOV 


^l.SRO 


; YES. ENABLE Kill. 


1$: 


RTS 


PC 





.\y> 



TSV? ulOBAL AREAS MACRO Mh^OO f'^S-liAR-S^ 09:44 PAGK 1/^7 
KTON.KTOFF - ENABLE/OISABLt MEMORY MANAGEMENT 



'dEQ 00/4 



2560 
2361 
2362 
2363 
2564 
2365 
2366 
2567 
2368 
2569 
2370 
2371 
2372 
2573 
2374 
2575 
2576 
2377 
2378 
2579 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2587 
2388 
2589 
2390 
2591 
2392 
2595 
2594 
2395 
2396 
2397 
2598 
2599 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 



017364 
017370 
017572 
017374 
017576 
017404 



017406 
017406 
017412 
017416 
017420 



017452 
017456 
017462 
017464 
017470 
017474 
017500 
017502 
017504 
017506 
017510 



00573.' 
001405 
000240 
000240 
012757 
000207 



005757 
001453 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



003122 



000000 177572 



1$: 



SUBROUTINE ■ 


DISABLE 


MEM 


MGT. 




OFF: T<^T 


KTFLG 






I GOT KTll? 


BEQ 


1$ 






! NO. 


NOP 










NOP 










MOV 


00 , SRO 






J DISABIJ KT. 


: RTS 


PC 








.SBTTL 


bETMAP 


- 


SETUP 


PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 

Rl 



OUTPUTS: 



SETMAP: 



003122 



000177 
003122 

172554 
160000 
140000 



10> 

15J 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.FNOR 

BIG 

CMP 

BHIS 

MOV 

BIC 

AOO 

MOV 

SFC 

BR 

CLC 

RTS 

.SBTTL 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. 
SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



KTFLG 

10$ 

R1,R2 

6 

RO 

Rl 

*177.R1 

Rl. KTFLG 

lOi 

Rl.aOKIPAR6 
#160000, R2 
« 140000. R2 
R2.R0 

15$ 

PC 



iSAVE R1-R4 UNTIL NEXT RETURN 

i SYSTEM HAVE ABOVE 28K? 

tBR IF NO 

;SAVE LOW ORDER BITS 

; CONVERT WORD ADDRESS TO 52W BLOCKS 
J MAKE IT DOUBLE PRECISION 

; ALINE FOR LOWER 4K BOUNDARY 
jHICHER THAN EXISTING MEMORY? 
:BR IF YES 

I SETUP MAPPING REGISTER PAR6 
I SETUP DISPLACEMENT IN PAGE 
I ADD IN PAR6 BIAS 
t RE TURN IN RO 
tSET SUCCESS 

tSET FAILURE 

;RETURN 



FILLMEM FILL MEMORY WITH BACKGROUND PATTERN 



FILL MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO - BACKGROUND PATTERN 
FREE - FIRST LOCATION 
KTFLG » SET TO HIGHEST 



AVAIl.ABLt TO DIAGNOSTIC 
MEMORY LOCATION IF > 28K 



v^. 



TSV5 GLOBAL ARf AS MACRO MIPOO .73-MAR -«4 0'?:44 PAGK 17-28 

FlLl lifcM KILL MtMORY WITH BACKGROUND PAT TE.RN 



2419 
24i?0 

^4ai 

2422 
242S 
2424 
2425 
2426 
2427 
2428 
2429 
2450 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2445 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
24 70 
2471 
24 72 
2473 



017512 
017512 
017516 
017522 
017524 
017550 
017534 
017536 
017540 
017542 
017546 
017550 
017554 
017556 



017626 
017632 
017634 
017640 
C17642 
017646 
017654 
017662 
017664 
01 7670 
017672 
017676 
017702 
017706 
017710 
017714 
017716 
017724 
017726 
017730 
017756 
017742 
017746 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001477 
004737 
005000 
013701 
000006 



004 737 
010320 
020027 
103774 
162700 
062737 
023737 
001427 
005737 
001407 
013704 
042704 
022704 
001415 
005737 
001410 
023727 
103001 
000405 
012737 
000137 
004757 
000207 



017364 

0051! 4 
003116 



003122 
017546 
003142 



017406 

160000 

020000 
000200 
172554 

003134 

177572 
177761 
000016 

003136 

172354 



000020 
017632 
017364 



OUTPUTS: 

NONF. 



FILLMEH: 



10$ 



30$ 



172554 
003122 



007600 



172516 



35$ 



40$ 
451 
50$ 
55$ 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BtQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENOR 

JSR 

MOV 

CMP 

BLO 

sue 

ADD 

CMP 

BEQ 

TST 

BEQ 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

CMP 

BHIS 

BR 

MOV 

JMP 

JSR 

RTS 

.SBTTL 



PC.KTOFF 

R0.R3 

FREE.Rl 

KRF5I^.R2 

R3,(R1)* 

R2 

10$ 

KTFIG 

55$ 

PC.KTON 

RO 

PST32W,R1 

6 

Rl 
RO 



SEQ 00 75 



WORD 
FREE 



28K. 
SPACE? 



SAVE Rl R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 

STORc A BACKGROUND 

DONE ALL MEMORY IN 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
;GET >28K START ADDRESS (IN 32W BLOCKS) 

i CLEAR C BIT 

(CONVERT BLOCKS TO WORDS 

jMAKE IT DOUBLE PRECISION 



PCSETMAP 

R3,(R0)» 

RO. #160000 

30$ 

*200O0.R0 

«200.S*KIPAR6 

WM<IPAR6,KTFLG 

50$ 

T23A 

35$ 

SR0.R4 

«177761,R4 

#16. R4 

50$ 

T23B 

45$ 

8W<IPAR6,#7600 

40$ 

45$ 

#20,SR3 

30$ 

PC.KTOFF 

PC 

CMPMEM - COMPARE 



SETUP PAR6 MAPPING REGISTt.R 
STORE TEST PATTERN IN >28K ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >2eK. 
END OF MEMORY? 
BR IF YES 
11/23A? 
NO KEEP GOING 
GET SRO CONTENTS 
CLEAR ALL B. . PAGE NUMBER 
SEE IF PAGE 7 
EXIT IF THERE 
11/25B? 
NO KEEP GOING 
REACHED 18 BITS? 
YES 

NO KEEP GOING 
SET 22 BIT RELOCATION 
KEEP GOING ON ETC. 
DISABLE KT. 

MEMORY TO BACKGROUND PATTERN 



COMPARE MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG " SET TO HIGHEST MEMORY LOCATION IF > 28K 



1 y 



TSV.^ - oi.OBAl ARtAS MACRO M1?00 .:;-MAR -84 09;44 PAGh 1 V - if 9 

CMPMEM COMPARt ME:MOR> TU BACKGROUND PATTtRN 



SEQ 00/6 



^474 
24 r^ 

24 7/ 
24 78 
24 79 
2480 
2481 
2482 
248i 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2495 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 



017750 
017750 
017754 
017756 
017762 
017766 
017772 
017774 
017776 
020002 
020006 
020012 
020016 
020020 
020022 
020024 
020026 
020032 
020054 
020040 
020042 



020076 
020102 
020104 
020106 
020112 
020114 
020116 
020120 
020122 
020124 
020130 
020134 
020140 
020144 
020146 
010152 
020154 
020160 
020164 
020166 



010003 

004737 

013701 

013702 

020311 

001411 

010137 

005037 

01033" 

011137 

000474 

005721 

005302 

003362 

005737 

001472 

004737 

0050OO 

013701 

000006 



042701 
010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 
010037 
010137 
010337 
011437 
000421 
062701 
005500 
062704 
020427 
103755 
162704 



OUTPUTS: 



CARR1 - StT IJ- NO ERROR 
CARRf - CLR IF F.RROR 



IMPLICIT OUTPUTS: 



CMPMEM: 



017364 
003114 
003 U6 



002230 
002226 
002222 
002224 



003122 
017346 
003142 

000177 
017406 



10$: 



15S: 



30$: 



002226 
002230 
002222 
002224 

000002 

000002 
160000 

020000 



12S: 



ERRHI 
ERRl.O 
EXPO 
RF.CV 



SAVREG 

MOV 

JSR 

MOV 

MOV 

CMP 

BEQ 

MOV 

CLR 

MOV 

MOV 

BR 

TST 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.PERT 

ROL 

ROL 

.ENOR 

BIC 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

CMP 

BEQ 

MOV 

MOV 

MOV 

MOV 

BR 

ADD 

ADC 

ADO 

CMP 

BLO 

sue 



- ERROR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



R0.R3 

PC.KTOFF 

FREE.Rl 

FRESIZ.R2 

R3.(R1) 

15$ 

Rl.ERRLO 

ERRHI 

R3,EXPD 

(RD.RECV 

501 

CRD* 

R2 

101 

KTFLG 

55$ 

PC.KTON 

RO 

PST32W,R1 

6 

Rl 

RO 

«177,R1 

RO, -f SP) 

Rl.-CSP) 

PC.SETMAP 

R0,R4 

(SP)^.Rl 

CSP)*.R0 

R3,(R4) 

32$ 

RO, ERRHI 

Rl.ERRLO 

R3,EXPD 

(R4),RECV 

50$ 

#2.R1 

RO 

*2.R4 

R4, 0160000 

30$ 

V^20000.R4 



jSAVE R1-R5 UNTIL NEXT RETURN 

(COPY TEST PATTERN 

iDISABLE KT. 

;GET FIRST FREE LOCATION 

(SIZE OF FREE SPACE BELOW 28K. 

;FREE SPACE LOCATION EQUAL TO EXPDV 

jBR IF YES 

J SAVE ADDRESS IN ERROR 

I NO HIGH ADDRESS 



SAVE EXPO 
SAVE RECV 



FOR 
FOR 



ERROR 
ERROR 



REPORT 

REPORT 



POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS CIN 32W BLOCKS) 

(CONVERT BLOCKS TO WORDS 
iMAKE IT DOUBLE PRECISION 

jALINfc 4K BOUNDARY 

I SAVE HIGH ORDER 

iSAVE LOW ORDER 

(SETUP PAR6 MAPPING REGISTER 

;COPY ADDRESS BIASED TO PAR6 

rRESTORE LOW ORDER IN NON PAR6 FORMAT 

(RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 

SAVE LOW ORDER IN ERROR 
(SAVE EXPD FOR ERROR REPORT 
(SAVE RECV FOR ERROR REPORT 

I UPDATE NON PAR6 ADDRESS 
(MAKE IT DOUBLE PRECISION ADD 
(UPDATE PAR FORMAT ADDRESS 
(END OF PAR6 MAPPING AREA? 
(BR IF NO 
(BACKUP INTO PAR6 MAPPING BEGIN 



-1^. 



TSV5 ^ GLOBAL AREAS MACRO Mlc?0O c?5-MARa4 09:44 PAGt 17-30 

CMPMEM - COMPARE MEMORl TO BACKGROUND PATTERN 



'.J 



SEQ 007 7 



i?551 


020172 


062 73 7 


000200 


172354 


ADD 


0200,avmrPAR6 :P0INT TO NEXT 4K BLOCK >2QK 


25^<? 


020200 


023737 


172354 


003122 CMP 


am<IPAR6.KTFLG jEND OF MEMORY? 


2553 


020206 


101744 




BIOS 


30$ :BR IF NO 


2534 


020210 


004 737 


017364 


50$: JSR 


PCJ<T0FF ;TURN OFF MEMORY MAPPING 


2535 


020214 


000241 




CLC 


iSET FAILURE 


2536 


020216 


000403 




BR 


60$ : 


2537 


020220 


004 737 


017364 


55$: JSR 


PC. K TOFF I TURN OFF MEMORY MAPPING 


2538 


020224 


000261 




SEC 


•/M-J SUCCESS 


2539 


020226 


000207 




60$: RT5 


PC 


2540 








.SBTTL 


REGSAV - SAVE R1-R5 ON STACK 


2541 










t 




2542 














2543 










ROUTINE TO 




2544 










SAVE Rl THROUGH R5 ON THE STACK 


2545 














2546 










CALLING SEQUENCE: 


254 7 














2548 










JSR 


R5. REGSAV 


2549 














2550 










THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


2551 










THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE. 


2552 










THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


2553 










REGISTERS. 




2554 














2555 










THIS ROUTINE 


SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


2556 










CALLED VIA A 


JSR PC INSTRUCTION 


2558 














2559 












2560 


020230 






REGSAV : 




2561 


020230 


010446 




MOV 


R4 . - ( SP ) 


2562 


020232 


010346 




MOV 


R3.-(5P) 


2563 


020254 


010246 




MOV 


R2,-(SP) 


2564 


020236 


010146 




MOV 


Rl, -C5P) 


2565 


020240 


010546 




MOV 


R5, (SP) 


2566 


020242 


016605 


000012 


MOV 


10.CSP),R5 


2567 


020246 


004736 




JSR 


PC.a(SP)* 


2568 


020250 


012601 




MOV 


(SP)mRI 


2569 


020252 


012602 




MOV 


(SP)*.R2 


2570 


020254 


012603 




MOV 


(SP)*.R3 


^■"^71 


020256 


012604 




MOV 


(SP)* ,R4 


2572 


020260 


012605 




MOV 


(SP.)*,R5 


2573 


020262 


000207 




RTS 


PC 


2574 








.SBTTL 


GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


2575 








; ♦ 




2576 














2577 










ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


2578 














2579 










INPUTS: 




2580 














2561 










NONE. 




2582 














2583 










OUTPUTS: 




2584 














2585 
2S86 










RO 


OCTAL NUMBER FROM THE OPERATOR 


I— -'^^V 

2587 










CALLING SEQUENCE: 



Nb 



^SV? Gl,OP.Al. ARtAS MACRO M1?00 .'3-MAR-8n 09:^14 PACK lV-31 
G£TPAT GET 8 BIT PATTERN FROM OPERATOR 



SEQ 0076 



2591 
.^:595 



^>596 

2597 
2598 
2599 
2600 
2601 
2602 
2605 
2604 
2605 
2606 
260 7 
2600 
2609 
2610 
2611 
2612 
261?5 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 



020264 
0202o4 
020270 
020270 
020272 
0202 74 
020276 
020300 
020302 
020304 
020306 
020310 
020310 
C ^0310 
020312 
02031b 



020320 
020322 



020346 
02034 S 
020352 
020354 
020356 
020360 
020362 
020362 
020364 
0^0370 
020374 



104443 
000406 
020320 
000022 
020322 
000377 
000000 
000377 



103367 
013700 
000207 



000000 
105 



JSR 



PC.GETPAr 



GETPAT 
1$ : 



10000$ 



020320 



SAVREG 




GMANID 


DATASC.PA 


TRAP 


C$GMAN 


BR 


lOOOOJ 


.WORD 


PATOAT 


.WORD 


TJCODE 


. WORD 


DATASC 


.WORD 


377 


.WORD 


TJLOLIM 


.WORD 


TJHILIM 


BNCOMPLETE 1 


BCC 


1$ 


MOV 


PATDAT.RO 


RTS 


PC 



iGAVL THt GENERAL REGISTERS 



1 RE TRY IE ERROR 

;DATA PATTERN EROM OPERATOR 
i RETURN TO CALLER 



L OCAL DATA AREA 



116 



PATDAT: .WORD ;TtMPORARY STORAGE TOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 

.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

* 

ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 

Rl 

OUTPUTS: 
RO 



ADDRESS or ASCI7 STRING OK MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER or THE OPERATOR'S SELECTION 



GETSEL:: 



010002 
010203 
005713 
001412 

012346 

012/46 020532 
012746 000002 
010600 



2$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

r;ov 

MOV 



RO . R2 

r.2. R3 

CR3) 

3$ 

tfSELASC.CR3)* 

CR3)*, -CSP) 

^SELASC. -CSP) 

«2, (SP) 

SP.RO 



J SAVE GENERAL REGISTERS 

:SAVE THE MENU ADDRESS 

[START or MENU STRIhJG 

iENO or ASCII ? 

[BRANCH ir ALL LINES DISPLAfED 

iDISPLAY THE MENU 



> I 



TSV5 - GLOBAL AREAS MACRO MU^OO c^S-MAR HA 0'^;a4 PAGt. 1 7 3(? 
GETSEL XSSUE MENU AND f.CT UPhRATOR RF.SPUNSt 



'aEQ 00/9 



263^ 



2653 

^654 
2655 
2636 
2657 



2656 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
264 7 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
265d 
2659 
2660 
2661 
2662 
2663 
26f>4 
2665 
2666 
2667 
2668 
2669 



020376 
0204 OC' 
020404 
020406 
020406 
020410 
020412 
020414 
020416 
020420 
020422 
020424 
020426 
020426 
020426 
020430 
02043^ 
02O-136 
020440 
020440 
020444 
020450 
020452 
020454 
020460 
020462 
020464 
020532 
020537 



020570 
020570 
020574 
020574 



10441; 
062706 
000/64 

104443 
000406 
020566 

000042 
020537 

177777 

oooooo 

177777 



103352 
013700 
02C001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

C45 

105 



020566 OOOOOO 



000006 



5$i 



lOOOU 



020566 



020464 
000001 



000004 



116 
116 
156 



045 
045 
164 



51: 

MENE«R 
SELASC 
MENASC 

MENRES: 



THA^' 

ADD 

BR 

GMANIO 

TRAP 

BR 

.UORD 

.WORD 

.WORD 

.WORD 

.WORD 

■ WORD 

BNCOMPLE 
BCC 
MOV 
CMP 

BLOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

,EVEN 

.SBTTL 



c»p^lT^ 

»6,GP 

2t 

MtNASC.MENRES.O. -1.0. 

CIGMAN 

100011 

MENRE5 

TiCOOt 

MENA5C 

-1 

T»l 01. IM 

TIHILIM 



l.NO 



TE 

11 

MENRES.RO 

RO.Rl 

5» 

*MENERR 

•MENERR, • 

♦ l.-CSP) 

SP.RO 

C»PNTr 

04, SP 

1» 

PC 

■#f^A **• 

•#N*T' 



li 



(5P) 



iRETRY ir ERROR 

(GET THE OPERATOR'S REPL. ^ 
iCOMPARE TO MAXIMUM Au OWi.D 
(BRANCH IF OK 
(DISPLAY ERROR MESSAGE 



M*nt 



(RETRY 

(RETURN TO CALLER 
S«l«ctioo Too Large 



*** 



Ent«r M«nu Selection: 



,WOR0 
CHKMAN 



CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
INPUT: 

NONE. 



OUTPUT: 

CARRY 

SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED UARNING THAT TEST 10 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED, 



CHKMAN I ; 



104450 



SAVREG 
MANUAL 
TRAP 



C^MAWI 



if^Ave THE REGISTERS 

(SEE IF MANUAL INTERVENTION OK 



1„ ( 



TSV^ uUlBAl AHf A-; MACRO Hl.^00 .\^ MAM HA 0'J:44 PACK 17-55 

CHKMAN CHECK MANUAL INTCRVfcNTtON 'F.GAl.IT^ 

BCOMPl.ETF II 



''j^.Q OOMO 



J670 020576 






020576 


103411 




2671 020600 






020600 


012746 


020624 


020604 


012746 


000001 


020610 


010600 




020612 


104417 




020614 


062706 


000004 


26^2 020620 


000241 




:?673 020622 


000207 




2674 






2675 020624 


045 


116 


2676 






2677 






26 /fl 






2679 






2660 






2681 020720 






020720 


104431 




2682 020722 


010037 


003114 


2683 020726 


062737 


000002 


2684 020754 


011037 


005116 


2685 020740 


162737 


000004 


2686 020746 


013702 


002012 


2687 020752 


162737 


000007 


2688 020760 


005302 




2o89 020762 


001373 




2690 020764 


015700 


003114 


2691 020770 


063700 


005116 


2692 0207V4 


162700 


000002 


2693 021000 


010037 


005120 


2694 021004 


000240 




2695 021006 


012701 


17 7520 


2696 021012 


010102 




2697 021014 


062702 


000002 


2698 021020 


004737 


016466 


2699 021024 


105001 




2700 021026 


000445 




2701 021050 


015701 


177520 


2702 0210M 


062701 


OOOOOl 


2703 021040 


012702 


177520 


2704 021044 


005212 




2705 021046 


013703 


177520 


2706 021052 


020103 




2707 021054 


001017 




2708 021056 


005237 


005154 


2709 021062 


042737 


170000 


2710 021070 


000240 




2711 021072 






021072 


012746 


005552 


021076 


012746 


OOOOOl 


021102 


010600 




021104 


104417 




021106 


062706 


000004 


2712 021112 


000413 




2713 021114 


005237 


003156 


2714 021120 


000240 





1>: 



BCS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLC 

RTS 



li 

4>NUMAN 

*noman.-(sp:) 

01. (SP) 
SP.RO 

04. SP 

PC 



iBRANCH If AllOWfD 

I PRINT THE WARNING MH'jSAOt 



jCLfcAR CARRY FOR E-RROR 
iRETURN 



045 



NOMAN: .ASCI/ 
.evvn 
.SBTTL 



'#Ni<A *•♦ Monuiil Intervention not Allowed Test Aborted ♦** 
ENVIRN SETUP FRFE DIAGNOSTIC SPACE 



t 



SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



ENVIRN: 



003114 
003116 
003116 10$ 



15$ 



002120 



aQ$: 



MEMORY 

TRAP 

MOV 

ADO 

MOV 

SUB 

MOV 

sue 

DEC 

BNE 

MOV 

ADO 

SUB 

MOV 

NOP 

MOV 

MOV 

ADO 

JSR 

BCC 

BR 

MOV 

ADO 

MOV 

INC 

MOV 

CMP 

BNE 

INC 

BIC 

NOP 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

INC 

NOP 



RO 

CtMEM 

RO.FREE 

♦2, FREE 

CR0),FRESI2 

04.FRESIZ 

LIUNIT,R2 

♦7,FRESIZ 

R2 

101 

FREE.RO 

FRESIZ.RO 

♦2,R0 

RO.FREEHI 

♦BDVPCR.Rl 

R1.R2 

«2,R2 

PC.XNXH 

151 

401 

BOVPCR.Rl 

♦ l.Rl 

♦aOVPCR.R2 

(R2) 

BDVPCR,R3 

R1,R3 

201 

T23A 

tfl''OOO0,L$HIME 

«M8186 

•M8186,-(SP) 

01, -(SP) 

SP.RO 

CIPNTF 

04, SP 

401 

T25B 



GET 1ST FREE ADDRESS. .. 

.. .AND WORD COUNT. 

GET NUMBER OF UNITS 

TAKE AWAY 7 WORDS PER UNIT 



GET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRESS 
BACKUP 1 WORD 
STOPE LAST FREE ADDRESS 



GET BDVll PCR ADDRESS 

COPY TO R2 

SEl THE RANGE 

SEE IF WE HAVE ONE 

OK TO SET FLAGS 

RETURN WITH FLAGS CLEAR 

SAVE PCR CONTENTS 

ADO ONE TO IT 

GET BDVll PCR ADDRESS 

TRY TO WRITE TO IT 

GET RESULTS 

DID XT CHANGE? 

mJST BE 11/23B 

THE FLAG 
SUPERVISOR COULD BE WRONG 
BR 401 FOR RELEASE 
TELL THE SYSTEM TYPE 



NO. 
SET 



I RE TURN 

(SET THE FLAG 

iBR 40$ FOR RELEASE 



TSV."^ ■ ot OBAl. ARir'AS 



MACRO Ml.^00 .M-MAR-fl/i 09:44 PAfib l/JA 



ENVIRN 



. 719 
PJ?.0 
2721 
27ie^ 

?724 
?725 
27;e6 



27Se 
;''729 
2730 
2731 
2732 
2733 
2754 
27S5 
2736 
2757 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2 747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 



SETUP FRtE DIAGNOSTIC SPACF. 



,£Q OOfJl 



021122 
0.ni22 
021126 
021132 
021134 
021156 
021142 



021144 
021144 
021150 
021154 
021162 
021164 
021170 
021176 
021202 
021204 
021212 
021220 
021224 
C21226 
021232 
021240 
021242 
021246 
021252 
021254 
021260 

021262 
021266 

021270 

021274 



012746 
012746 
010600 
104417 
062706 
000207 



005037 
005057 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
0OO002 

010037 

000207 



005643 
000001 



000004 



003122 
003124 
002120 

000004 
021262 

177572 

002120 
000177 
000004 

172540 
077406 

000200 
002000 

177600 



021270 



000004 



PRINTF 


ftMei89 


MOV 


<^M8189. -CSP) 


MOV 


<>1. -CSP) 


HOV 


5P.R0 


TRAP 


C$PNTF 


ADD 


*4.SP 


RTS 


PC 


.5BTTL 


KTINIT SE 



iTEUl. THE Sr5TCM TYPE 



40$ 



ROUTINE TO INIT KT-11 



(RETURN 
SETUP KTU MEMORY MANAGEMENT REGISTERS 



KTINIT; 



001577 
000004 



005122 
003122 



177740 U 



2$ 



6( 

9i 



CLR 


KTFLG 


INIT >28K MEMORY FLAG 


CLR 


K TENABLE 


INIT TEST >28K FLAG 


CMP 


L$HIME.*1577 


GOT ENOUGH MEMORY (>2aK)? 


BLOS 


9( 


NO. 


MOV 


&«ERRVEC.RO 


SAVE OLD ERR VEC PTR. 


MOV 


«2$.0«€RRVEC 


SET ERR VEC PTR, 


TST 


9«SR0 


GOT KTll? 


NOP 




(TRAP IF NO). 


MOV 


LiHIME, KTFLG 


YES. SET KT FLAG. 


BIC 


#177, KTFLG 




MOV 


RO,S«ERRVEC 


RESTORE OLD ERR VEC PTR. 


CLR 


RO 


RO ■ AR DATA. 


MOV 


<M<IPAR0.R1 


Rl ■ KI REGS PTR. 


MOV 


♦77406. -40CR1) 


SET DESCRIPTOR REG. 


MOV 


RO.CRD* 


SET KIPAR REG. 


AOO 


*200,R0 


BUMP AR DATA BY "4K'-. 


CMP 


R0,#2000 


AT "I/O"? 


6NE 


1$ 


NO. 


MOV 


♦177600. -(Rl) 


YES. SET KTPAR7 FOR I/Q, 


BR 


9* 




MOV 


♦6»,CSP) 


SET UP RETURN 


RTI 




RTI TO NEXT LOCATION 


MOV 


RO,S«ERRVEC 


RESTORE OLD ERR VEC PTR. 


RTS 


PC 





SUBROUTINE TO SET EXTENDED FEATURES SWITCH 

Requires that SOFINIT and WRTCHR have been done previous to call. 



INPUTS: 

R5 
OUTPUTS: 

The Extended Features Switch is set. 



CURRENT UNIT NUMBER 



021276 



J 



INVERT;: 



rSV? ■■ GLOBAL ARBAS MACRO rll?00 ?3-MAR-84 0'):4a PAGt 17-35 
KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



SEO 0062 



2767 
/69 



') 



2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2^97 
2796 
2799 
2800 
2801 
2802 
2805 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
283 3 
2814 
2815 
2616 
2817 
2818 
2810 
2820 
2821 
2822 
2823 



021276 
021302 
021504 
021312 
021520 
021526 
021534 
021340 
021344 



021350 
021352 
021554 
021356 



021560 
021362 
021364 



021566 

021566 
021572 
021376 
021402 
021406 
021412 
021414 
021422 
021424 
021450 
021452 
021456 
021440 
021446 
021450 
021456 
021460 
021464 
021466 
021474 



005757 
001020 
012757 
012757 
012737 
012757 
012704 
004737 
000207 



021550 

000000 
OOuOOO 
OOCOOO 
000000 



000000 
000000 
000000 



005057 
005057 
005057 
005757 
001407 
023727 
105406 
004757 
000427 
005737 
001415 
025727 
101025 
025727 
105403 
004757 
000411 
025727 
103410 



002216 

100206 021350 

021360 021352 

000006 021556 

100010 021560 
021350 
010752 



1$: 
; 

CMDPKT 



TST EXTFEA 

BNE li 

MOV #100206. CMDPKT 

MOV #WSMBK. CMDPKT*? 

MOV #6.CMDPKT»b 

MOV #100010. WSMBK 

MOV #CM0PI<T.R4 

JSR PC.WRTCHR 

RTS PC 

COMMAND PACKET. 



t IS SWITCH SET? 



; YES, EXIT STAGE ( 


^IGHT 


Cor 


the 


next 


one 


outo 


town! 


) 


1 WRT SUB-SrS MEM 


CMD 
















t MSG Bur ADDR 


















t BYTE COUNT 


















I INVERT THE SWITCH 
















t SET CMDPKT INTO 


R4 
















I DO IT 


















» RETURN 



















<,*3>6177774 










I MUST BE ON MOD 4 BOUNORY. 

1 1ST WORD IS TS05 COMMAND. 

1 2ND WORD IS THE BUfFER LOW ADDRESS. 

(5RD WORD IS THE BUFFER HIGH ADDRESS. 

l4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



WRITE SU6-SY5TEM MEMORY CHARACTERISTIC BLOCK. 



WSM8K: 






.EVEN 



J 1ST WORD 
;2ND WORD 
i5RD WORD 



SEL 
SEL 2 
SEL 4 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS: 

The NXMFLG is set If we can test. 

The NXMLO and NXMHI ockfresses are setup. 



MEMCK: : 



005126 
003150 
005152 
003136 

002120 007777 

021542 

003154 

002120 005777 

002120 003777 

021542 

002120 001577 



1«: 
2$: 



4$: 



SAVREG 

CLR 

CLR 

CLR 

TST 

BEQ 

CMP 

BLO 

JSR 

3R 

TST 

BEQ 

CMP 

BHI 

CMP 

BLO 

JSR 

BR 

CMP 

BLO 



NXMFLG 

NXMLO 

NXMHI 

T23B 

1» 

LIHIME.#7777 

2i 

PC.NXMTST 

151 

T25A 

4$ 

LtHIME, 05777 

14« 

LIHIME,#5777 

4« 

PC.NXMTST 

15$ 

L$HIME.ftl577 

14$ 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS HI 

IS IT A 11/25B? 

NO 

GREATER THAN 128K 

NO 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
IS IT A 11/25A? 
NO 

GREATER THAN 96K 
YES,23A/25e WITH 128K MEMORY 
GREATER THAN 64K BUT LESS THAN 92K? 
NO. CHECK 24K 
SETUP THE ADDRESS 
SET THE FLAG ANO EXIT 
GREATER THAN 24K BUT LESS THAN 64K? 
NO. TELL THEM AND EXIT WITH FLAG CLEAR 



\" i 
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KTINIT SETUP KTll MEHORl MANAGEMENT REGISTERS 



SEQ 0063 



2824 
2625 
2826 
2827 
2828 
2829 



2830 
2831 
2832 
2833 
2634 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 



021476 
021502 
021510 
021514 
021516 
021520 
021520 
021524 
021530 
021532 
021534 
021540 



021542 
021546 
021552 
021556 



021574 



021624 
021630 
021634 



021636 



004737 
062737 
005237 
000411 
000410 

012746 
012746 
010600 
104417 
062706 
000207 



013701 
062701 
042701 
010102 
000006 



010137 
000012 



042702 
010237 
000207 



021542 

000077 003132 

003126 



005456 
000001 



000004 



002120 
000200 
000177 



003130 



177700 
003132 



13$ 
14$ 



15$ 



JSR 

ADD 

INC 

BR 

BR 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



PC.NXMTST 

*77.NXMHI 

NXMFLG 

15$ 

15$ 

W40MEM 

*NOMEM. -f!jP) 

<>1.-(SP) 

SP.RO 

C$PNTF 

04, SP 

PC 



J SETUP THE ADDRESS 

(FOOL THE 11/02 £ 11/03 

J SET THE FLAG 

lEXIT 

J NOP FOR PRINTOUT 

iTELL THEM C EXIT *++N0 PRINT***** 



i RETURN 



SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
OUTPUTS; NXMLQ,NXMHI jSETUP WITH NXM ADDRESS 



NXMTST: MOV 


L$HIMe.Rl 


ADD 


*200.R1 


BIC 


«177.R1 


MOV 


R1,R2 


.REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


Rl.NXMLO 


.REPT 


10. 


ASR 


R2 


.Eh40R 




BIC 


*177700,R2 


MOV 


R2,NXMHI 


RTS 


PC 



J GET TOP OF MEMORY 

J MAKE IT I/O BLOCK OR OTHER NXM 

jRESAVE RESULTS 

I PUT IN PLACE FOR XFER 

J SAVE TEST ADDRESS LOW 

:PUT IN PLACE FOR XFER 

lOON' T WANT ILA! 

iSAVE TEST ADDRESS HIGH 

(RETURN 



ENDMOD 
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KTINIT SETUP KTll MEMORY MANAGEMFNT REGISTERS ^^^ ^^^^ 

1 .TITl^E TSV4 - MISCELLANEOUS SECTIONS 

9 021636 BGNMOD TSV4 

021636 TSV4: : 

10 
16 



TSV4 HISCFl.L.ANLOUS SECTIONS 
PROTECTION TABLE 



l~l / 
MACRO M3.?00 :-^?- MAR -84 09:44 PAGE 19 



SEQ 0065 



18 

19 021636 
021636 

20 021636 

21 021646 
22 



177777 177777 



.SB! n. OrtOTECTION TABLE 
eCNPROT 
L$PROT:: 
177777 .WORD -1, -1, -1, -1 

ENOPROT 



jNO DEVICE PROTECTION REQUIRED. 



TSV4 M ret- U ANt 01 iS SECTIONS 
INlTIALIZt StCTlON 

r.b 

26 

27 
28 
29 
^0 
51 
^2 
33 
34 

36 

37 021646 
021646 

38 

39 021646 

021646 012746 000340 
021652 012746 170000 
021656 012746 000140 
021662 012746 000003 
021666 104437 
021670 062706 000010 

40 

41 021674 005037 002216 

42 021700 005037 003126 

43 021704 012737 006356 

44 021712 005037 003144 

45 021716 005037 003124 

46 021722 005037 002272 

47 021726 

021726 012700 000036 

0217S2 104447 

48 021754 
021734 103023 

49 021736 023737 002172 

50 021744 103070 

51 021746 005737 003102 

52 021752 100472 

53 021754 013701 002172 

54 021760 006301 

55 021762 005761 003166 

56 021766 001516 

57 021770 032761 040000 

58 021776 001060 

59 022000 
022000 104432 
022002 000416 

00 022004 

022004 012700 000035 
022010 104447 

61 022012 
022012 103052 

62 022014 

022014 012 700 000040 
022020 104447 

63 022022 
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.SBTTL INITIALIZE SECTION 



jTHt INITIALIZE SECTION CONTAINS THE CODING THAT 15 PERrORMED 
jAT THE BEGINNING OF EACH PASS. 

IF "START" OR "RESTART". SET QUICK PASS KLAG AND BUS-INIT. 
IF "CONTINUE", NOTHING IS REQUIRED. 



INSERT TEMPORARY JUMP TO ODT 
BGNINIT 

:ODT ROM ADDRESS 



SEQ 0086 



002170 



002012 



003166 



LJINITi: 




SETVEC 


0140, #170000. #340 


MOV 


#340. CSP) 


MOV 


#170000, -(SP) 


MOV 


#140. -(SP) 


MOV 


#3,-(SP) 


TRAP 


CISVEC 


ADO 


#10, SP 


40$! CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


#EPRT1,EPRTSW 


CLR 


5IFLAG 


CLR 


KTENABLC 


CLR 


RAMSIZ 


READEF 


#eF. CONTINUE 


MOV 


#EF. CONTINUE, RO 


TRAP 


CIREFG 


BNCOMPLETE li 


BCC 


U 


CMP 


UNITN.LJUNIT 


BHIS 


4i 


T5T 


DUFLG 


BMI 


NXTU 


MOV 


UNITN.Rl 


ASL 


Rl 


TST 


ERTABLCRl) 


BEQ 


SETU 


BIT 


#6IT14, ERTABLCRl) 


BNE 


NXTU 


EXIT 


INIT 


TRAP 


C$EXIT 


.W('iii^ 


L 10030 -, 


1$: READEF 


#EF. NEW 


MOV 


#€F.NEW.RO 


TRAP 


CIREFG 


BNCDMPLETE NXTU 


BCC 


NXTU 


READEF 


#EF. START 


MOV 


#EF. START, RO 


TRAP 


CIREFG 


BCQMPLETE 2 J 



;JB REV A-0 



(SET UP PRIMARY MESSAGE FOR REPL ACPMFiMT 

jCLEAR "SOFT INIT" FLAG 

:CLEAR TEST ABOVE 29K FLAG 

i CLEAR RAM SIZE FOR RAMERR ROUTINE 



;UNIT IN RANGE? 
jBR IF NO. 
(DROPPED UNIT? 
jBR IF YES 



(DROPPED? 

tOO NOTHING IF "CONTINUE" 



J TAKE NEXT UNIT IF NOT NEW PASS. 



TSV4 - MTSCELmNEOUS SECTIONS 
INITIAL.IZF SECTION 
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PAGE ,?0 1 



SEO 00^7 



022022 

64 022024 
022024 
022050 

65 022032 
022032 

66 022034 

67 022034 
022034 

68 022036 

69 022042 

70 022046 

71 022052 
72 

73 
74 

75 022056 

76 022062 
7 7 022062 

78 022070 

79 022074 

80 022100 

81 022104 

82 022106 

83 022112 

84 022114 

85 022116 

86 022122 
87 

88 022126 

89 022126 

90 022134 

91 022140 
022140 

92 022142 

93 022146 

94 022154 

95 022156 

96 022164 

97 022166 
022166 

98 022170 

99 022172 

100 022172 

101 022200 

102 022202 

103 022206 

104 022210 
022210 

105 022212 

106 022216 
107 

108 022220 
022220 

109 022222 

110 02aaa4 
111 



103404 

012700 
104447 

103031 



104433 
005057 
005057 
005037 
005037 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
0OO240 

023727 
101752 

005737 
001747 

104421 
032700 
001543 



104424 
000741 



000037 



002204 
002212 
003134 
003136 



005037 003370 



177777 
020720 
021144 
003166 

003366 



002174 
022172 



177777 
002210 



002172 
002172 

177777 



002012 
002210 

OOOIOO 



2$: 



002174 



20 J 



30$ 



31$ 



002172 

002012 
003102 



4$: 
NEWPAS; 

NXTU; 



OOOOOl 



11$: 
PASRPT: 



BCS 2$ 

READEF <^Fr.RE'3TART 

MOV #EF- . RESTART, RO 

TRAP CIREFG 

BNCOMPLETE 31$ 

BCC 31$ 



10$: 



BRESET 

TRAP 

CLR 

CUR 

CLR 

CLR 

MOV 

MOV 

JMP 

CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TPAP 

INC 

CW 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RELAGS 

TRAP 

BIT 

BNE 

DORPT 

TRAP 

BR 



C$RESfcT 

TSTCNT 

KATFLG 

T23A 

T23B 

#340, -CSP) 

*.^0$. -C5P) 

O.ODT 

SKIPT 

<>- 1,QVP 

PC.ENVIRN 

PC.KTINIT 

#ERTABL,RO 

CRO)* 

RO.OERTABE 

30$ 

4$ 

QVP 

PASRPT 



*-l,UNITN 
OEVCNT 

C$BRK 

LINITN 

UNITN,L$UNIT 

SETU 

l.DUFLG 

11$ 



t 1ST PASS. BU5-INIT. . . 
jBUS RESET. 

NUMBER Of TESTS RUN IN PASS 
CLEAR FATAL ERROR COUNT 
CLEAR 11/23A ELAG 
CLEAR il/23B ELAG 



iRETUHN TO DEBUGGER 
;:a3eNTER THE DEBUGGER 
jCLEAR THE SUBTEST "SKIPPER" 

i . . .QUICK VERIFY. . . 

;5ET ENVIRONMENT. 

(INITIALIZE KT MEMORY MANAGEMENT 

J CLEAR THE ERROR TABLE 



;G0 REPORT THE STATUS 



;INIT UNIT NUMBER. . . 

; CLEAR COUNT OF' DEVICES RUNNING 



;...AND SET NEXT UNIT NUMBER. 



CiDCLN 



L$UNIT,«1 

NEWPAS 

DEVCNT 

NEWPAS 

RO 

C$RrLA 

tflSR.RO 

NEWPAS 



C$DRPV 
NEWPAS 



I ABORT, NO MORE UNITS, 



iHOW MANY UNITS SELECTED? 
I BR IF ONLY 1 
I ARE ANf STILL RUNNING? 
iBR IF NO 



iSHO(A.U WE PRINT STATISTICS 
J BR IF NO 



i/ 



TSV4 Ml!Kt-"l.LANt.OUS SLCTlUNS 
INITIALIZE SEC ION 



112 



115 

114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
151 
132 
133 
154 
135 
156 
137 
138 
139 
140 

141 
142 
143 



144 

145 
1A6 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 



022224 
022224 
022230 
022232 
022232 
022254 
022240 
022244 
022246 



022254 
022260 
022264 

022270 



022270 
022274 
022276 
022304 
022310 
022316 
022320 
022320 
022322 
022326 
022330 
022330 
022334 
022340 
022344 
022346 
022350 
022354 
022354 
022360 
022564 
022366 
022372 
0223 76 
022400 
022404 
022412 



022412 
022412 



013700 
104442 

105542 
005037 
005237 
012001 
010137 



022252 012001 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 

013701 
010102 
062702 

004737 
105005 
010157 
012737 



002172 



003102 
002210 

002176 



002200 
016306 
002202 



002172 

100000 
005770 
002012 



001000 



002172 
022422 
000002 



000006 

003104 
002176 

000002 
016466 

003104 
177777 
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^.;rru 



'>f;o oofib 



1* 



GPHARD 


UNITN.RO 


MOV 


UNITN.RO 


TRAP 


CJGPHRD 


BNCOMPLtTE NXTU 


DCC 


NXTU 


CI R 


DUFLG 


INC 


DEVCNT 


MOV 


(R0)*.R1 


MOV 


Rl.CSRADDR 


MOV 


(.R0)».R1 


J MOV 


(R0),R2 


;MOV 


R2.IPRI 


MOV 


Rl.IVEC 


MOV 


<^INTR.(R1)* 


MOV 


IPRI.(Rl)* 


TST 


QVP 


BEQ 


5^ 



jGET UNIT N P-TABLt POINTER. 



;Bn IK UNIT NOT AVAILABLE. 

J CLEAR "DROPPED" .'-LAG. 

;GET 1ST REGISTER ADDRESS. 

; ADDRESS OF REGISTERS OF UNIT UNDER )EST 

(GET VECTOR ADDRESS. 

;GET INTERRUPT PRIORITY 

I SET INTERRUPT PRIORITY. 

:SET INTERRUPT VECTOR POINTER... 

; . . .VECTOR. . . 

; . . .AND PRIORITY. 



;1ST PASS ?? 

:N0. SKIP THE PASS 1 STUFF. 



1ST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



003166 
000001 



10$: 



003102 



2J: 



MOV 


UNITN.Rl 


ASL 


Rl 


BIS 


♦6IT15.ERTABLCR1) 


CLR 


EXTA 


CMP 


L$UNIT,01 


BLOS 


10$ 


RFLAGS 


RO 


TRAP 


CiRFLA 


BIT 


*PNT,RO 


BEQ 


10$ 


PRINTF 


OPUNIT.UNITN 


MOV 


UNITN,-(SP) 


MOV 


*PUNIT.-CSP) 


MOV 


*2,-(SP) 


MOV 


SP.RO 


TRAP 


C*PNTF 


ADO 


06, SP 


CLR 


NODEV 


MOV 


CSRADDR.Rl 


MOV 


R1.R2 


ADD 


0TSSR.R2 


JSR 


PC.XNXM 


BCC 


2i 


MOV 


Rl. NODEV 


MOV 


*-l. DUFLG 



J SAY DEVICE RL;:*UNG 

t CLEAR ERROR EXTENSION FLAG. 

iARE WE TESTING MULTIPLE UNITS? 

jBR IF NO. 

I YES -- GET OPERATOR FLAGS. 

I SHOULD UE PRINT UNIT #? 
;BR IF NOT. 
jPRINT THE UNIT 



jADORESS OF FIRST REGISTER 

i START OF" REGISTERS 

J ADDRESS OF TSSR REGISTER 

(TEST BOTH CONTROLLER REGISTERS 

t ... AND BR IF ALL OK . 

jFLAG DEVICE AS NON-EXISTENT 

;DROP THIS UNIT. 



FINALLY, SET CPU PRIORITY AND WE'RE DONE. 



012700 000000 



5$: SETPRI dPRIOO 

MOV tfPRIOO.RO 



itNABLE INTERRUPTS, 



TSV4 ■'^•V'.Ct^LL ANtOnS bt.CTlONS 

INITIALIZF SECTION 

02?41fe 104441 
158 02^420 
02?A20 
0P2420 104411 

loO 022422 045 116 

161 
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SEQ 00ft9 



L 100 JO: 



TRAf CiSPRI 
ENDINIT 



TRAP 



CJINIT 



045 PUNIT: .ASCI/ /9<NKN?(A***** TESTING UNIT *D2«A ****f/ 
.EVEN 



rsv4 .■^U';cti..i ANtiOus slctions 

ADD AND DROP UNITS SBCTION'J 



165 
164 
16*3 
16^, 
167 
168 
169 
170 
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I I 1 
PAGt. PI 



SEQ 0090 



171 
172 
173 
174 
175 



176 



177 
178 
179 
180 



181 
182 
185 
184 
18'j 
186 
187 
188 
189 
190 
191 
192 

195 
194 
195 
196 
197 
198 



199 



0224 70 
022470 
022470 
0224 72 
0224 74 
022502 
022510 
022510 
022512 
022516 
022522 
022524 
022526 
022552 
022532 
022554 
022536 



022564 
022564 
022564 



022566 
022566 
022566 
02.?574 
022576 
022600 
022606 
022614 
022614 
022616 
022622 
022626 
022630 
022632 
022636 
02.'636 
022640 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010001 
006301 
052761 
000240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 



.SBTTL. ADD AND DROP UNITS SECTIONS 



THt ADD UNI r SECTION CONTAINS 
TO BE (A) ADDED TO THE TEST I 



THE CODING 



THAT CAUSES A DEVICE 
T FOR THE riRST TIME. 
OR Cn) RE-INSERTED IF IT HAD BEEN PREVIOUbLY DROPPED. 



L$AU 



100000 
040000 



022536 
000002 



000006 



003166 
003166 



116 



045 1$; 



L10031: 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



RO.Hl 

Rl 

^l^':^':00,ERTABLCRn 

#'.0000,ERTA8LCR1) 

^1*.R0 

RO.-(SP) 

^U.-(SP) 

«2. -CSP) 

SP.RO 

CJPNTF 

#6,SP 

AU 

J$JMP 

I 10031-2- . 

/i»-N5<A UNIT iKDitA ADDED/ 



GET UNIT TO BE 
MAKE IT A WORD 



ADDED (RO) 
INDEX 



SET THE "ACTIVE" BIT 
CLEAR THE "DROPPED" BIT 



UNUSED. 



CJAU 



; THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "mDD" 
I COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS. AND THE P-TABIES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED, 



9G?^U 



177777 003102 



L$DU: : 



140000 
000240 



022642 
000002 



000006 



003166 
000240 



MOV 


«-l,DUF'LG 


MOV 


RO.Rl 


ASL 


Rl 


BIS 


0140000, ERTABL(Rl) 


240,240 


,240 


PRINTF 


*M,RO 


MOV 


RO. -(SP^ 


MOV 


*li.-CSP) 


MOV 


02. -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


06, SP 


EXIT 


DU 


.WORD 


J$JMP 


.WORD 


L 10032 -2-. 



SAY DROPPED 
????????? 



TSV4 MlSCt-L.l.ANt;OUS SKCTTONS 
ADD AND DROP UNITS SFCTION';, 



N/ 
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SEGl 0091 



?00 
t?01 
c^02 



r^05 

J06 

207 
208 
209 
210 
211 



tile'. 

213 
2ia 
215 
21b 



022642 

022672 
022672 
022672 



022674 
022674 
022674 
022V00 
022704 
022710 
022712 
022712 
022716 
022720 
022 724 
022726 
022732 
022734 
022740 
022742 
022744 
022746 
022752 
022752 
022752 
022752 



045 



104455 



013705 
012703 
004737 
103420 

012727 
OOCOOO 
013727 
000000 
005367 
00137J, 
005367 
001367 
005303 
001357 
004737 



104461 



116 



045 1$: 



002176 
000550 
016340 



000372 
002116 
1/77/2 
177756 

017272 



L 10032: 



.ASCI/ /^mf\ UNIT 9«D»<A DROPPED/ 

.EVtN 

ENDDU 



TRAP 



C$DU 



AUTO-DROP CODF. SECTION. 





BGNAUTO 




L$AUT0: 


J 






MOV 


CSRADDR.R5 




MOV 


^360. .R3 


10$: 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250. 




MOV 


^^250. .(PC)* 




.WORD 







MOV 


LSDLY.CPO* 




.WORD 







DEC 


-6CPC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


. -20 




DEC 


R5 




BNE 


105 




JSR 


PC.CKDROP 


20$: 


ENOAUTO 




L10033: 







POINT TO DEVICE REGISTER 

ENOUGH TIME FOR 2400' REEL TO REWIND 

WATT FOR SSR TO SET 

LEAVE WHEN SSR IS SET 

WAIT FOR .25 SECONDS 



BUMP COUNTER DOWN 

KEEP GOING 

TRr AND DROP UNIT 



UNUSED, 



TRAP 



C$AUTU 



~1 w 
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'ihQ 0092 



^26 

228 
229 
230 
231 
232 
235 
234 



255 
2 56 
257 
233 
239 

240 



241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 



253 
254 

255 
256 



022754 
022754 
022760 



^.'c'. 



022766 
022774 
023000 
025000 
023000 
023000 



023002 
023002 
023002 
023002 
023006 
023012 
023014 
025016 
023022 
025024 
025026 
025050 
023054 
025056 
025040 
025042 
025044 
025050 
025052 
025056 
025056 
025060 
025062 
025066 
025072 
025074 
025076 
023102 
025104 
025110 
023112 
025112 
023114 



012746 
012746 
010600 
104416 
062706 
010246 
010546 
010446 
012704 
005005 
011402 
001467 
100066 
052702 
001015 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010546 
012746 



.SBTTl CI FAN-UP AND RF.PORT COOING SECTIONS 



THE CLEANUP COOING SECTION CONTAINS 
EXECUTED AT THE END OF EACH PA'jS (OR 
USE TO RETL«N DEVICE UNDER TEST TO A 



THE CODING THAT 
SUB PASS). 
NEUTRAL STATF. 



IS 



013705 002176 
005737 003102 
10O405 



012765 000000 000002 
004737 016340 



104412 



I - - 



LfCLEANj 



023244 

000001 



000004 
003166 

040000 
170000 



023501 
000005 



000010 
160000 

025351 



0GNCLN 

MOV 
TST 
BMI 



MOV 
JSR 

U: 

2i: ENOCLN 

L 10034; 

TRAP 



CSRAD0R.R5 

Duri.G 

1» 



00,TSSR(R5) 
PC.WAITF 



CICLEAN 



iPOINT TO DEVICt RFGISTFR 
r DROPPED" FLAG r. SET ON... 
I... AND GROSS CONTROLLER HMxT... 
I... DON'T TRY TO XCT CLEANUP COOt 



iDU 



SOFT 



INIT 



( THE REPORT COOING SECTION CONTAINS THE 

I "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



L$RPT: 



BGNRPT 



1* 



2lt 



PRINTS 


♦OEVSUM 




MOV 


♦OEVSUM. -(SP) 




MOV 


•1,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTS 




ADD 


♦4,SP 




MOV 


R2.-C5P) 




MOV 


R3,-(SP) 




MOV 


R4 , - ( SP ) 




MOV 


«RTABL,R4 


I GET START OF ERROR TAB 


CLR 


R3 


1 CLEAR UNIT NUMBER 


MOV 


(R4J,R2 


1 GET ERROR TABLE ENTRi 


BEQ 


49 


1 ZERO IF UNIT NOT RUN 


BPL 


41 




BIT 


♦eiT14.R2 


1 WAS UNIT DROPPED? 


BNE 


21 


1 BR IF YES 


SIC 


OtC7777.R2 


1 GET ERROR COUNT FIEUD 


PRINTS 


♦OEV0NL,R3.R2 


1 PRINT 


MOV 


R2, -(SP) 




MOV 


R5. (SP) 




MOV 


♦OEVONL.-CSP) 




MOV 


♦5,-(SP) 




MOV 


SP.RO 




TRAP 


C«PNTS 




ADO 


*10.SP 




BR 


41 




CMP 


R2,# 160000 


J WAS L^IT NON-EXISTENT? 


BNE 


31 


J m If NO 


PRINTS 


♦0EVNXR.R3 




MOV 


R3. (SP) 




MOV 


<?DeVNXR..(SP) 





L TEST IT 



I I 



TSV4 MISCH i ANtOUS StCTlONS HrtCWU Mlc^OO .»^ MAH 84 09-44 PAGE i^? I 
CLEAN-UP AND REPORT COOINC. '^f-dlONS 



StQ 00'-^5 



023120 
0P5124 
025126 
023130 
257 025134 
256 0251 5t 

259 023142 

260 023144 
023144 
025146 
025152 
023156 
023160 
023162 

261 025166 

262 025170 

263 023174 
023174 
023176 
023200 
023204 
023210 
023212 
023214 

264 023220 

265 025224 

266 023226 

267 0232S2 

268 023234 

269 023236 

270 023240 

271 023242 

023242 
023242 

273 

274 023244 

275 023301 

276 023351 

277 025433 

278 025514 
279 

280 

281 023564 

282 

283 



012 746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 

045 
045 
045 
045 



000002 

000006 
160001 



025453 
000002 



000006 
170000 



023514 
000003 



000010 
000002 

003366 



^% 



30$: 



4$: 



116 
101 
101 
101 
101 



L 10035: 



045 DEVSUM 

040 DEVONL 

040 DEVNXR 

040 OEVNRD 

040 DEVDRO 



MOV 


«;>, CSP) 


MOV 


SP.RO 


TRAP 


C»PNTS 


ADD 


*6.SP 


DR 


4« 


CMP 


R2» 0160001 J 


BNE 


301 t 


PRINTS 


O0EVNR0.R5 


MOV 


R3, (SP) 


MOV 


*OEVNRD. -CSP) 


MOV 


^2» (SP) 


MOV 


SP.RO 


TRAP 


CtPNTS 


ADD 


06. SP 


BR 


41 


BIC 


OtC7777,R2 


PRINTS 


00EVDR0.R3,R2 


MOV 


R2. -(SP) 


MOV 


R3. (SP) 


MOV 


♦0EV0R0,-(SP) 


MOV 


#3, (SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


010, SP 


ADO 


02, R4 


INC 


R3 


CMP 


R4,0€RTABE 


BLO 


1$ 


MOV 


(5P)».R4 


MOV 


(SP)*.R3 


MOV 


(SP)»,R2 


ENORPT 


1 UNUSED. 



TRAP 



,ASCI7 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.EVEN 

ENOMOD 



J WAS UNIT NOT READ^ AT bFARTLiPy 
\ BR IF NO. 



CIRPT 



/^NiAAOEVICE STATUS SUrt1ARYt*N/ 

/tfA UNIT #03«A ONLINE. ERRORS - #0#N/ 

/HA UNIT #03#A DROPPED, NON-EXISTENT REGISTER*N/ 

/*A LNir ii03i*A DROPPED, NOT READY AT STARTUPKN/ 

/HA UNIT f*D3t«A DROPPED, ERRORS ■ KCWN/ 



)^; 
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CLEAN -L'P AND REPORT CODING SECTIONS 

1 .TIUE TbV7 - HARDWARE TEST^ 18 



SEQ 0094 



10 023564 
023564 
16 
24 



TSV7: : 



0GNMOD TSV7 



012737 006356 002170 



TSVr . HAROWARt Tf.STS 1-8 
TEST 1: INITIALIZE *4 TLST 
26 



28 
29 
30 
31 
32 
33 
34 

35 023564 
023564 

36 023564 
37 

36 
39 
40 
41 
42 
43 
44 

49 023572 

50 023576 

51 023602 

52 023606 

53 023614 

54 023614 

55 023620 
56 

57 
58 
59 
60 
61 
62 

63 023624 

64 023632 

65 025636 

66 023640 
023640 
025644 
025646 
023652 
023654 
023660 
023662 
023666 

67 023670 

68 025674 

69 025676 

73 023702 

74 023704 
023704 
023706 
023710 
023712 

75 023714 

76 023714 



po 



' } 



012700 
004737 
012737 

004737 
004737 



016274 
024524 
016600 
000005 

024546 
024636 



012737 
004737 
103426 

012727 
000000 
013727 
000000 
005567 
001375 
005367 
001567 
005337 
001356 
005237 
010001 

104455 
000145 
003650 
012124 



012704 024160 



176750 
016064 



000250 
002116 
177772 
177756 
024202 
002212 
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002206 



024202 



.SBTTL TEST 1: INITIALIZE V>4 TEST 



;THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
iCONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
;(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
jEXTENDED FEATURES SWITCH. ETC.) 



i - 



BGNTST 

MOV ^EPRTl.EPRTSW 



Tl: : 
J SET UP PRIMARY ERROR MESSAGE 



I TEST 1 



jDISABLE INTERRUPTS 
(ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
jPERFORM 5 ITERATIONS 

;SET COMMAND PACKET 

(SET UP OTHER COMMAND PACKET 

t 

(ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
« 



11$: 



JSR 


PC.DSBINT 


MOV 


«TST21ID.R0 


JSR 


PCTSTSETUP 


MOV 


*5.L00PCNT 


T21L00P1 




JSR 


PC.T21REST 


JSR 


PC,T21RT2 



SEQ 0O95 



20Jt 



MOV 


♦65000. 


.T21DLY 


(SET DiiLAY ROUTINE 




JSR 


PC.SOFINIT 




3 DO INITIALIZE ON CONTROLLER 




BCS 


201 






J BR IP- INIT WAS OK 




DELAY 


250 






(DELAY FOR A REWIND TO FINISH 

MOV 

.WORD 
MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


♦250. (PC)* 



LJDLY.CPOf 



-6(PC) 

. -4 

-22(PC) 

.-20 


DEC 


T210LY 






(BUMP COUNTER DOWN 




BNE 


Ui 






(BR. IF MORE TIME TO GO 




INC 


FATFLG 






(BUMP COUNT 




MOV 


RO.Rl 






(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR, 


.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 












TRAP 


CiERDF 










.WORD 


101 










.WORD 


SFIERR 










.WORD 


SFIMSG 



MOV 



♦T21PACKET,R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



TSV7 - HARDWARE TESTS 1-6 
TEST 1: INITIALIZE ^^4 TEST 

77 
76 
79 
80 
81 
82 
83 

84 025720 013737 

85 023726 004737 010752 

86 023732 103407 

87 023734 005237 002212 

91 023740 010001 

92 023742 
023742 104456 
023744 000146 
023746 005054 
023750 012124 

93 023752 
023752 10440^ 

94 023754 112737 000200 

95 023762 112737 000010 

96 023770 

97 023770 0127O4 024270 

98 023774 010465 000000 

99 024000 004737 016426 

100 024004 103407 

101 024006 010001 

102 024010 0C5237 002212 

106 024014 
024014 104456 
024016 000147 
024020 024 306 
024022 012136 

107 024024 
024024 104406 

108 024026 012765 000000 

109 024034 004737 016340 

110 024040 016501 000002 

111 024044 010102 

112 024046 042702 176377 

113 024052 052702 002200 

114 024056 Oi2701 000100 

115 024062 001012 

116 024064 020102 

117 024066 001406 

118 024070 005237 002212 

122 024074 
024074 104456 
024076 000150 
024100 024403 
024102 015564 

123 024104 
024104 104406 

124 024106 000406 

125 024110 
129 024110 

0241X0 104455 
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SEQ 0096 



1 WRITE CHARACTERISTICS COMMAND CCAl.L TO WRTCHR) 

• 4t 4k4(* * 4i4«*** j«> 4i4jt[4i A**** ***'t'****4iA4i«4t4i*4i4>*4>4i** 4*4 ****** « 4**41*4* 41*441* *« 



024200 



024300 
024301 



23J 



25? 



MOV 


UNITN.T210SW 


J SET UP DRIVE NUMBER 




JSR 


PC. WRTCHR 


J ISSUE WRITE CHARACTERISTICS 




BCS 


25$ 


;BR. IF COMMAND ISSUED OK 




INC 


F-ATFLG 


;BUMP COUNT 




MOV 


RO.Rl 


;SAVE CONTENTS OF ISSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


;WRITE CHARACTERISTISC FAILED 








TRAP 


C*ERHRD 






.WORD 


102 






.WORD 


WRTM5G 






.WORD 


SFIHSG 



CKLOOP 



30$ 



000002 



35$ 



37$: 
36$: 



TRAP C$CLP1 



MOVE 


#200»T21BS0 


(WRITE MISCELLANEOUS CONT/REAO STATUS 


MOVB 


*10,T21BS1 


(FUNCTION SELECTION BIT 


MOV 


*T21PK2.R4 


J WRITE SUeSYS MEM PACKET 


MOV 


R4,TSDBCR5) 


(ISSUE COMMAND 


JSR 


PC.CHKTSSR 


(WAIT FOR SSR 


BCS 


30$ 


(BR. IF NO ERROR 


MOV 


RO.Rl 


(ERROR, SAVE TSSR 


INC 


FATFLG 


(BUMP COUNT 


ERRHRD 


ERRN0,T21SSR,PKTSSR 


(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
.WORD 103 
.WORD T21SSR 
.WORD PKTSSR 


CKLOOP 




(SCOPE LOOP 

TRAP C$CLP1 


MOV 


<K).TSSR(R5) 


(ISSUE A SOFT INITIALIZE 


JSR 


PC.WAITF 


(WAIT FOR JUST THE SSR BIT TO SET 


MOV 


TSSRCR5).R1 


(READ THE TSSR BACK 


MOV 


R1.R2 


(WORK REGISTER 


BIC 


#tC<HlA0DR>,R2 


(CLEAR OUT OTHER BITS 


BIS 


#SSR!NeA.R2 


(SOME OF THE BITS THAT SHOULD BE SET 


BIT 


*0FL,R1 


(IS OFF LINE BIT SET 


BNE 


38$ 


(BR. IF DRIVE IS OFF LINE 


CMP 


R1.R2 


(EXPECTED CR2) • RECEIVED CRD 


BEQ 


37$ 


I BR. IF THEY ARE EQUAL COK) 


INC 


FATFLG 


(BUMF COUNT 


ERRHRD 


ERRN0.T21AM3,EXPREC 


("ERROR TRYING TO INIT AFTER WRITE MISC. 

TRAP C$ERHRO 
. WORD 104 
.WORD T21AM3 
.WORD EXPREC 


CKLOOP 




(LOOP IF SELECTED 

TRAP C$CLP1 


BR 


40$ 


(SKIP OVER OFF-LINE STUFF 



ERRDF ERRNO . T210FL . EXPREC 



I DRIVE IS OFF LINE 



TRAP 



C$ERDF 



TSV7 - HARDWARE TESTS 1-9 
TEST 1; INITIALIZE *4 TEST 
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024112 
024114 
024116 

130 024120 

131 024124 

132 024126 

133 024132 

134 024134 
024134 

135 02413b 

136 024142 

137 024144 

138 024150 
024150 
024152 



000151 
024503 
01556'! 
00473? 
000241 
10603 7 
001316 



017272 
024301 



104406 

004737 016546 

103002 

000137 023614 

104432 
000526 





JSR 


PC.CKDROP 


40$! 


CLC 






RORB 


T21BS1 




BNE 


25$ 


50$: 


CKLOOP 






JSR 


PC.TSTLOOP 




BCC 


63$ 




JliP 


T21L00P 


63S: 


EXIT 


TST 



SEQ 0097 



.WORD 
.WORD 
.WORD 



IN 

POSITION 
BITS TESTED 



TRY AND DROP UNIT 
DON' T LET CARRY 5NEAK 
TRY NEXT "LOWEST" BIT 
LOOP UNTIL ALL EIGHT 
SCOPE LOOP 

TRAP 
;00 WE NEED TQ ITERATE TEST 
J BR. IF NO LOOP REQUIRED 
I EXECUTE AGAIN 
I ALL DONE THIS TEST 

TRAP 
.WORD 



T210FL 
EXPREC 



C$CLP1 



C$EXIT 
L10036- 



TSV7 - HARDWARE TF.STS 1-8 
TEST 1: INITIALIZE #4 TEf.T 



140 
141 
142 
144 

146 024160 

147 024160 

148 024162 

149 024164 

150 024166 

151 024170 

152 024170 

153 024172 

154 024174 

155 024176 

156 024200 

157 024202 
156 024204 
159 

160 
161 
163 

165 024270 

166 024270 

167 024272 

168 024274 

169 024276 
170 

171 

172 024300 

173 024300 

174 024301 

175 024302 

176 024304 
177 

178 
179 



024160 

100004 
024170 
000000 
000012 

024204 
000000 
000024 
000000 
000000 
000000 



024270 

100206 
024300 
000000 
000006 



000 

000 

000000 

000000 



MACRO M1200 23 -MAR -84 


09:44 P 


! LOCAL STORAGE 


FOR THIS 


.-<.*10>£177770 


T21PACKET: 




.WORD 


100004 


.WORD 


T21DATA 


.WORD 





.WORD 


10. 


T21DATA: 




.WORD 


T21BFR 


.WORD 





.WORD 


20. 


.WORD 





T21DSWt .WORD 





T21DLY: .WORD 





T21BFR: .BLKW 


25. 
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WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.•<.*10>6177770 



T21PK2: 








.WORD 


100206 




.WORD 


T21BF2 




.WOPO 







.WORD 


6. 




.EVEN 




T21Br2: 






T21BS0: 


.BYTE 





T21BS1: 


.BYTE 





T21S2: 


.WORD 





T21S3: 


.WORD 






SEQ 0098 



COMMAND PACKET FOR TF.ST 

WRITE CHARACTERISTICS COMMAND. WITH. ACK 

ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SIZE 
; CHARACTERISTICS DATA BLOCK 
i ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

iDRIVE SELECT WORD 
(DELAY COUNTER 
(MESSAGE BUFFER 



(WRITr. SUB SYS MEM COMMAND, IE AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

(SIZE OF DATA PACKET 



BSELO AREA 
BSELl AREA 
SEL 2 AREA 
DATA AREA 



"COMMAND" BYTE 



0^4506 
024403 
024503 
054524 



127 
124 
104 

111 



TSV/' HARDWARE TE'.STS IS 
ThST 1: INITIALIZE M Tt^.T 



181 

iac> 

105 
184 
185 
18b 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
21c 
213 
214 
215 
216 
217 
216 
219 
220 
221 
222 
223 
224 
225 
226 
227 
226 
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024S46 
024546 
024552 
024556 
024562 
024566 
024570 
024574 
024600 
024602 
024606 
024610 
024612 
024616 
024624 
024626 
024632 
024634 

024636 
024636 
024642 
024646 
024652 
024656 
024660 
024664 
024666 
024672 
024674 
024676 
021700 
024 700 
024700 



005021 
005011 
000207 



104401 



122 
123 
16? 
156 



012701 


024160 


012721 


100004 


012721 


024170 


005021 




012721 


OOOOIO 


012721 


024204 


005021 




012721 


000024 


005021 




005011 




012702 


(*00020 


012762 


177777 


005742 




020227 


000000 


001371 




00020V 




012701 


024270 


012721 


100206 


012721 


024300 


005021 




012721 


000006 


005021 




012701 


024300 



SEQ 0099 



LOCAL TEXT MESSAGES FOR TEST 



111 
123 
151 
151 



121SSR 
T21AM3 
T210rL 
TST21ID: 

I * 



.ASCI7 
.ASCIZ 
.ASCIZ 

.EVEN 



'WRITE MISCELLANEOUS CONTROL/READ ST-^TuS Command Not Accepted" 

' TSSR Inlt. Failed After WRITE MISCELLANEOUS CONRTQL/READ STATUS' 

'Drive is QfTL INE ' 

.ASCIZ 'Initialization 0^' 



iRO'JTINE TO RESTORE COMMAND PACKET TO START-UP CDEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T21REST: 



024204 64$; 



TaiRT2: 



SAVREG 

MOV 

■^ov 

MOV 
CLR 
MOV 
MOV 
CLR 
MOV 
CLR 
CLR 
MOV 
MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

MOV 
MOV 
MOV 
CLR 
MOV 
CLR 
MOV 
CLR 
CLR 

pre 

ENOTST 



0T21PACKET.R1 

♦ 100004, CRD* 

*T210ATA,(Ri:f 

CRD* 

«8. ,(R1)» 

0T21BFR.(R1)^ 

(RD* 

*20. .CRD* 

CRD* 

(Rl) 

♦20. R2 

«177777,T21BFR(R2) 

-(R2) 

R2,#0 

64$ 

PC 



#T21PK2,R1 

*100206.(R1)» 

♦T21BF2.CR1)* 

(Rl)» 

#6. .CRD* 

(RD* 

0T218K2,Rl 

(Rl)f 

CRU 

PC 



(save the registers 

i start op the packet 

jwrite subsystem mem. with ack , 

(address of charaistics data block 

iEaTEnoed address 

;si7e of data block in bytes 

i address of message buffer 

jlength of message buffer 



I NUMBER OF LOCATIONS TO BE CLEARED 

;ALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

; CHECK R2 FOR ZERO 

;BR. IF NOT AT ZERO YEV 

jRETURN 



I SAVE THE REGISTERS 

J START OF THE PACKET 

jURITE SUBSYSTEM MEM. WITH ACK . It 

1 ADDRESS OF CAT A BLOCK 

(EXTENDED ADDRESS 

J SIZE OF DATA BLOCK IN BYTES 

I ADDRESS or DATA FOR WRT SUB SYS MEM 



J RE TURN 



L 10036: 



TRAP 



CJEThT 



TSVr - HARDWARt TE:ST5 13 



MACRO M1?00 .e? HAR-a4 09; 44 PAGt L'9 



TEST ?: OFF-LINE AND RtJE-CT REWIND 



?.5l 
?.^^' 

254 
^Z5 
,?36 

c^38 
^39 
^40 
241 
242 
245 
244 



2'*5 
250 
251 
252 
253 
254 
255 
256 
257 
256 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 



269 
270 
271 
272 
273 
274 
275 
276 
277 
27a 
279 
280 
284 
285 



286 
287 



024702 
024702 
024702 
024710 
024714 
024720 
024724 



024752 
024732 
024732 
024732 
024734 
024740 



024744 
024750 
024752 
024756 
024760 
024760 
024762 
024764 
024766 
024770 
024770 



012737 
004 737 
012700 
004737 
012737 



104402 
004/37 
004737 



006356 002170 

016274 

027167 

016600 

000005 002206 



027222 
027314 



016064 
002212 



004737 
105407 
005237 
010001 

104455 
000311 
003650 
012124 



012704 026250 



StQ 0100 



.SBTTL TEST 2: OFF-LINE ANO REJECT REWIND 

THIS TEST VERIFIES BASIC TAPE -MOTION COMMAND DECODING AND BASIC 
(OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
TYPICALLY REWIND THE TAPE IN THE NORMAL COl..>HSE OF THEIR TEST 
SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 



BGNTST 



MOV 


<^EPRT1.EPRTSW 


JSR 


PC.OSBINT 


MOV 


*TST22ID,R0 


JSR 


PCTSTSETUP 


MOV 


05.L00PCNT 



T2: : 
I SET UP PRIMARY ERROR MESSAGE 
(DISABLE INTERRUPTS 
jASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
J PERFORM 5 ITERATIONS 



TEST 2. SUBTEST 1 



VERIFIES THAT ALL TAPE-MOTION COMMANDS (WITH VALID 
MODE CODES) TERMINATE WITH FUNCTION REJECT AND 
OFF-LINE STATUS WHEN THE TAPE TRANSPORT IS OFF-LINE. 
J THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO 
(EXTENDED MODE, SELECTING UNIT 7, AND ISSUING EACH 
» TAPE -MOTION COMMAND, CHECKING. AFTER EACH COMMAND, 
(THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED. 



T22L00P: 



BGNSUB 



JSR 
JSR 



PC,T22REST 
PC.T22HT2 



;>>>>>>>>>>>> BEGIN SUBTEST >>>i > > > > > ^ ■>> 

T2.1: 

TRAP C$BSUB 
I SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



ISStJE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20$ 1 



JSR 


PC.SOFINIT 


jOO INITIALIZE ON CONTROLLER 




BC5 


201 


iBR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO. SFIERR , SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.wotm 


201 






. WORD 


SFIERR 






. WORD 


SFIMSG 



MOV 



^T22PACKET,R4 



i SUBROUTINE NEEDS PACKET ADDRESS 






Ttsr 



MAROWARt. U.STS I -3 



MACRO M1200 a? MAR -84 09:44 PAGE. ^9 1 



2: 

288 

«?90 
.?91 
<^9i^ 
c?93 
?94 
.^95 

::96 

297 
301 
302 



OFF-LiNt: AND REJrCT RtWIND 



SEQ 0X01 



303 

304 
30S 
306 
307 
311 



31? 

315 

314 
315 
316 
317 
316 
319 
320 
321 
322 
323 
327 



328 

329 
330 
331 
332 
353 
354 
335 
356 
337 



024 774 
025000 
025002 
025006 
025010 
025010 
025012 
025014 
025016 
025020 
025020 
025022 
025026 
025032 
025034 
025040 
025040 
025042 
025044 
025046 
025050 
025050 
025052 
025052 
025054 
025060 
025062 
025070 
025076 
025102 
025106 
025112 
025114 
025116 
025122 
025122 
025124 
025126 
025130 
025132 
025152 
025134 



004737 
103407 
005237 
010001 

104456 
000312 
005054 
012124 

104406 
013701 
032701 
001407 
005237 

104455 
000313 
027102 
012^24 

104444 

104406 
005737 
001041 
112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000314 
026410 

012136 

101406 
012704 



010752 
002212 



026300 
000004 

002212 



002216 

000200 
000010 
026560 
000000 
016426 



002212 



026250 



WRITE CHARACTF.RISTICS COMMAND (CALL. lU WRTCHR) 



23$ 



24 J 



026371 
026370 



50$ 



JSR PC.WRrCHR 

BCS 23$ 

INC TATKLG 

MOV HO.Rl 

ERRHRP ERRNO . WRTMSG , SFIMSG 



; ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
J BUMP COUNT 

J SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISUSC FAILED 







TRAP 


C$ERHRD 






.WORD 


202 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


CKLOOP 












TRAP 


C$CLP1 


MOV 


T22BFR»6.R1 


iPICK UP XTSO 




BIT 


A4.R1 


lis UNIT WRITt-LOCKEO? 




BEQ 


24$ 


;N0. PROCEED WITH TESTING 




INC 


FATFLG 


jBUMP COUNT 




ERROF 


ERRNO, T22WLK, SFIMSG 


J TAPE IS WRITE LOCKED 








TRAP 


C$ERDF 






.WORD 


203 






.WORD 


T22WLK 






.WORD 


SFIMSG 



DOCLN 




CKLOOP 




TST 


EXTFEA 


BNE 


50$ 


MOVB 


*200.T22BS1 


MOVB 


*10.T22BS0 


MOV 


«T22PK2.R4 


MOV 


R4.T5De(R5) 


JSR 


PC.CHKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


INC 


FATFLG 



TRAP 



C$DCL-N 



ERRHRO ERRNO , T22SSR , PKTSSR 



CKLOOP 

MOV 



0T22PACKET,R4 



TRAP C$CLP1 

i CHECK FOR EXTENDED FEATURES SW SWITCH 

jBR if SWITCH IS ON 

iWRlTE MISCELLANEOUS CONT/REAO STATUS 

;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

iWRITE SUBSYS MEM PACKET 

i ISSUE COMMAND 

I WAIT FOR SSR 

J BR, IF NO ERROR 

; ERROR, SAVE TSSR 

;BUMP COUNT 

jTSSR NOT CORRECT AFTFR WRT. MISCELLANEOUS 

TRAP C$ERHRD 
. WORD 204 
.WORD T22SSR 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLP1 
; SUBROUTINE NEEDS PACKET ADDRESS 



I 

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR.) 



025140 00^' 



010752 



JSR 



PC, WRTCHR 



i ISSUE WRITE CHARACTERISTICS 



LM 



TSV^ - HAROWARt; Tr.STS 1-6 MACRO M1?00 ^?-MAR-64 09t44 PAGt 29 2 
TtST 2: OFF-LINE AND REJfCT REWIND 



SEQ 0102 



3?8 025144 


103407 




359 025146 


005237 


002212 


345 025152 


010001 




344 025154 






025154 


104456 




025156 


000315 




025160 


005054 




025162 


012124 




345 025164 






025164 


104/^06 




346 025166 


016501 


000002 


34 7 025172 


032701 


000100 


348 025176 


001006 




349 025200 


005237 


002212 


353 025204 






025204 


104455 




025206 


000316 




025210 


026605 




025212 


012124 




354 025214 






025214 


104406 




355 025216 


012703 


026376 


356 025222 


011337 


026360 


357 025226 


012704 


026360 


358 025232 


010465 


000000 


359 025236 


004737 


016340 


360 025242 


016501 


000002 


361 025246 


012702 


100306 


362 025252 


020102 




363 025254 


001406 




364 025256 


005237 


002212 


368 025262 






025262 


1.X456 




025264 


OtX)317 




025266 


0i?6660 




025270 


015564 




369 0252/2 






025272 


104406 




370 025274 


005723 




371 025276 


022713 


177777 


372 0253C2 


001401 




373 025304 


000746 




374 025306 






375 025306 






025306 






025306 


104403 




3/6 025310 


023727 


002212 000017 


3/7 025316 


103402 




3/8 t?25i20 


00473V 


017272 


379 025324 







50$ 



60$: 



65$: 



80$: 



90$: 



999$ 



CKLOOP 

TST 
CliP 
BEQ 
BR 

ENDSUB 



CMP 
BLO 
JSR 



BCS 


50$ 




BR. ir COMMAND ISSUED OK 




INC 


FATFLG 




BUMP COUNT 




MOV 


RO.Rl 




SAVE CONrF.NTS UF TSSR 




ERRHRD 


ERRNO.WRTMSG 


.3FIMSG 


WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
205 

WRTM5G 
SFIMSG 


CKLOOP 






^COPE LOOP 

TRAP 


C$CLP1 


MUV 


ISSR(R5),R1 




GET TSSR CONTENTS 




BIT 


tfOFL.Rl 




CHECK FOR THE OFFLINE BIT SET 




BNE 


60$ 




BR. IF OFFLINE (GOOD) 




INC 


FATFLG 




BUMP COLfNT 




ERRDF 


ERRN0,T220FL 


.SFIMSG 


OFF LINE SHOULD HAVE BEEN SET 

TRAP 
.WORD 
.WORD 
.WORD 


(BAD) 
C$ERDF 

206 

T220FL 
SFIMSG 


CKLOOP 






LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


tfl22RD.R3 




POINTER FOR COMMANDS 




MOV 


CR3).T22PK2 




TAPE MOTION COMMAND IN PLACE 




MOV 


0T22PK2,R4 




R4 - POINTER TO PACKET 




MOV 


R4.TS0BCR5) 




ISSUE COMMAND 




JSR 


PC.WAITF 




WAIT FOR SSR TO SET 




MOV 


TSSRCR5).R1 




GET TSSR CONTENTS 




MOV 


*SSR!SC!OFL! 


BIT1!BIT2,R2 


SET yjP EXPECTED 




CMF 


R1,R2 




ARE THEY EQUAL 




BEQ 


60$ 




BR. IF OK ESP. FLINCTION REJECT 




INC 


FATFLG 




BUMP COUNT 




ERRHRD 


ERRN0.T22TM, 


EXPREC 


TSSR INCORRECT AFTER TAPE MOTION CMO 








TRAP 


C$ERHRD 








.WORD 


207 








.WORD 


;22:m 








.WORD 


EXPREC 



(R3)> 

#177777. CR3) 
90$ 
65$ 



FATFLG. ftl5, 

999$ 

PC.CKDROP 



;LOOP IF SELECTED 

POINT 10 NEXT COMMAND 
END 0^ THE COMMANDS YET 
BR, IF DONE 
MORE COMMAND(S) TO GO 



>>>>>>>>>>>> 



TRAP 



C$CLP1 



END SUBTEST 
I 10040: 

TRAP 
J IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
iTRY TO DROP THE UNIT 



>>>i>^v >■>>-.> 



C$ESUB 



l^u 



TSV7 HARDWARE 


TESTfi 1 


-3 MACRO 


TEST 2 


OFF-LINE AND REJECT REWIND 


361 








38;^ 








365 








384 








385 








386 








387 








388 








389 








390 








391 


025324 

025324 








025324 


104402 




392 


025326 


004737 


02/222 


393 


025332 


004737 


027314 


394 








395 








396 








397 








398 








399 








400 








401 


025336 


004737 


016064 


402 


025342 


10340 7 




403 


025344 


005237 


002212 


407 


025350 


010001 




408 


025352 








025352 


104455 






025354 


000320 






025556 


003650 






025360 


012124 




409 


025362 






410 


025362 


012704 


026250 


411 








412 








413 








414 








415 








4ie 








417 








418 


025366 


004737 


010752 


419 


025372 


103407 




420 


025374 


005237 


002212 


424 


025400 


010001 




425 


025402 








025402 


104456 






025404 


000321 






025406 


005054 






025410 


012124 




426 


025412 


005737 


002216 


427 


025416 


001041 




428 








429 


025420 


112^37 


000200 026371 


430 


025426 


112737 


000010 026370 


431 


025434 


012704 


026360 


432 


025440 


010465 


000000 


453 


025444 


004737 


016426 



23 MAR -84 09:44 



PAGE 30 



SEQ 01O3 



TEST 2, SUBTEST 2 

VERIFIES THAT A REWIND COMMAND, WITH THh CI FAR VOLUME 
CHECK (CVC) BIT CLEAR. IS REJECTED IF THE VOLUME CHECK 
(VCK) FLAG IS SET. 



BGN5UB 



JSR 
JSR 



PC.T22REST 
PC.T22RT2 



;>>>>>>>>>>>> BEGIN SUBTEST >>>> ^ >>..>>> > 

T2.2: 

TRAP C$BSUH 
iSET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

DO INITIALIZE ON CONTROLLER 
BR IF TNIT WAS OK 
BUMP COUNT 

CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



JSR 


PC.SOFINIT 


BCS 


20* 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$: 



CJERDF 

208 

5FIFRR 

SFIMSG 



MOV 



: SUBROUTINE NEEDS PACKET ADDRESS 



#T22PACKET,R4 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

****4**44**********************************4******44**444*44444*** 



23$ 



JSR 


PC, WRTCHR 


J ISSUE WRITE CHARACTERISTICS 




BCS 


23$ 


I BR. IF COMMAND ISSUED OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




ERRHRD 


bRRNO.WRTMSG, SFIMSG 


i WRITE CHARACTERISTISC FAILED 








TRAP 


C$ERHRD 






.WORD 


209 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


TST 


EXTFEA 


jCHECK FOR EXTENDED FEATl ' "S SW 


swncH 


BNE 


50$ 


»DR IF SWITCH IS ON 





MOVB *200.T22BS1 

MOVB «10,T22BSO 

MOV 0T22PK2.R4 

MOV R4.T5DBCR5) 

JSR PC.CHKTSSR 



WRITE MISCELLANEOUS CONT/READ SIAIUS 

FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

WRITE SUOSYS MEM PACKET 

ISSUE COMMAND 

WAIT FOR SSR 



N^^. 



TSV7 - HARDWARF IF.STS 18 MACRO M1200 ^?-MAR-84 09!44 PAGf. 30-1 
TEST 2: OFF -LINE AND RtJF.CT REWIND 



SEQ 0104 



434 
4-15 
456 
440 



441 

442 
445 
444 
445 
446 
447 
448 
449 
450 
451 
452 
456 
457 



45a 

459 
460 
461 
462 
466 



467 

46« 
469 
470 
471 
472 
473 
4 74 
4 75 
4 76 
480 



481 
482 



025450 
025452 
025454 
0254e0 
025460 
02546? 
025464 
025466 
025470 
025470 
0254 72 



025476 
025502 
025504 
025510 
025512 
025512 
025514 
C25516 
025520 
025522 
025522 
025524 
025530 
025534 
025536 
025542 
025542 
025544 
025546 
025550 
025552 
025552 
025554 
025562 
025566 
025572 
025576 
025602 
025606 
025610 
025612 
025616 
025616 
025620 
025622 
025624 
025626 
025626 
025630 



103407 
010001 
005237 002212 

104456 
000322 
026410 
012136 

104406 

012704 026250 



004737 
103407 
005237 
010001 

104456 
000323 
005054 
012124 

104406 
016501 
032701 
001006 
005237 

104455 
000324 
026605 
012124 

104406 
012737 
012704 
010465 
0047 57 
016501 
012702 
020102 
001406 
005?37 

104456 
000325 
026754 
015564 

104406 



RCS 30$ 

MOV RO.Rl 

INC FAirLii 

ERRHRU ERRNO , T22SSR . PKTSSR 



30$: 



J BR. ir NO tRROR 

I ERROR. SAVE TSSR 

;BUMP COUNT 

I TSSR NOT CORRECT AFTER WRT. MISCEl.l ANFOUS 

TRAP C^ERHRO 
.WORD 210 
.WORD T22S3R 
.WORD PKT5SR 

;LOOP IF SELECTED 

TRAP C $CL Pi 

; SUBROUTINE NEEDS PACKET ADDRESS 



CKLOOP 

MOV <^T22PACl<eT.R4 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



010752 
002212 



JSR PC. WRTCHR 

BCS 50$ 

INC FATFL.G 

MOV RO.Rl 

ER'Wk'^ ERRNO . WRTMSG . SF IMSG 



50$ 



000002 
000100 

002212 



CKLOOP 

MOV 
BIT 
BNE 
INC 
ERROr 



TSSRCR5).R1 

^OTL.Rl 

60$ 

FAirLG 

ERRNO, T220FL.SFIMSG 



102210 
026360 
000000 
016340 
0OO002 
100306 



002212 



60$ 
026360 63$ 



80$ 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD ERRNO , T22RWJ , EXPREC 

CKLOOP 
ENOSUB 



«102210,T22PK2 

<>T22PK2,R4 

R4,TSDB(R5) 

PC.WAITF 

TSSRCR5).R1 

<»SSR!5C!0FL!BIT1!BIT2,R2 

R1,R2 

80$ 

FATFLG 



ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSUED OK 

BUMP COUNT 

SAVE CONTENTS OF TSSR 

WRITE CHARAriERlSTISC FAILED 

TRAP C$ERHRD 
.IIORO 211 
.WORD WRTMSG 
.WORD SFIMSG 

SCOPE l-OOP 

TRAP C$CLP1 

GET TSSR CONTENTS 

CHECK FOR THE OFFLINE BIT SET 

BR. IF OFFLINE CGOOD) 
J BUMP COUNT 
jOFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP C$ERDF 
.WORD 212 
.WORD T220FL 
.WORD SFIMSG 
iLOOP IF SELECTED 

TRAP C$CLP1 
(POSITION COMMAND (REWIND MODE) 
;R4 - POINTER TO PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK ESP. FUNCTION REJECT 

BUMP COUNT 

TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP C$tRHRD 
.WORD 213 
.WORD T22RWJ 
.WORD EXPREC 
iLOOP IF SELECTED 

TRAP C$CLP1 
;>>>>>>>>>>>> fND SUBTEST >>>>>>>>>>>> 



TSV; H^^nOWARK TKSTS l S macro MI^OO ,M MAR.a4 04144 PAtit "10 ,' 

TtST ^l Orr-i.lf^ and RfJFCT RtWIND 



0^5630 

025<>50 104405 

483 0?5652 0^57^; OO^cM.'^ 000017 

4B4 025640 10540^^* 

485 02564.^ 004737 Ol7a72 

486 025646 



999$: 



CMP FAUl C.OIS 

(U U 9491 

JbR PC.CKOROP 



I 10041: 

TRAP 
I r. FRROR CO'JNT AT ?'j 
iflR, If LT'iS THAN ^'^ 
jTRr TO DROP THE UNIT 



C$tiUB 



'atO 010!:. 



TEST 



HAROW/Un riSTS 1 .M 



MACno Mli?00 ,-»?; MAR efl Of)!4n PAue M 



^: orr-LlNF AND RLjrCT Rf.WlNP 



488 
489 
490 
491 
492 
49? 
494 
495 
496 
497 



498 
499 
500 
501 
503 
503 
504 
505 
506 
507 
508 
509 
515 
514 



515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
530 
531 



532 
533 
534 

535 

556 
537 
538 
539 
540 



SfQ OlOf. 



025646 
025646 
025646 
025650 
025654 



025660 
025664 
025666 
025672 
025674 
025674 
025676 
025700 
025702 
025704 
025704 



025710 
025714 
025716 
025722 
025724 
025724 
025726 
025730 
025732 
025754 
025740 

025742 
025750 
025756 
025762 
025766 
0a^772 



TfcST 2. SUBTFST 5 

VtRIHt.S THAT A REWIND COMMAND WITH CvC I CLKARf. VCK 
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 



104402 

004757 02/222 

004737 027314 



BGNSUB 



JSR 
JSR 



PC.T22REST 
PC,T22RT2 



!>>>>)>>>>>>> BEGIN SUBTEST >>>>>>>•>»>> 

T2.5: 

TRAP CifJSUB 
I SET COMMAND PACKET 
iStT UP OTHER COMMAND PACKET 



I ISSUE CONTROLLER "SOTT" INiriALl7E - CARRY BIT CLEAR IF ERROP 



I**- 



004757 016064 

105407 

005257 002212 

OlOOOl 

104455 
000526 
005650 

012124 

012704 026250 



20$: 



JSR 


PC.SOFINIT 


(00 INITIALIZE ON CONTROLLER 




BC5 


201 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


OEROF 






.WORD 


214 






.WOP'" 


SFIERR 






.WO*.- 


SFIMSG 


MOV 


#T22PACKfcT,R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



(«4«< 



004737 010752 

105407 

005237 002212 

010001 

104456 

000527 

005054 

012124 

005757 002216 

001041 

112737 000200 026371 

112757 000010 Q26370 

012704 026560 

010465 000000 

004737 016426 
103407 



JSR 


PC. WRTCHR 


BCS 


25t 


INC 


FATFLG 


MOV 


RO.Hl 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



23li 



TST 


EXTFEA 


6NE 


50 ♦ 


MOVB 


♦200.T22eSl 


MOVB 


•10.T22eS0 


MOV 


0T22PK2.R4 


MOV 


R4,TSDeCR5) 


JSR 


PC.CHKTSSR 


BCS 


30* 



(issue WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
lBl^*> COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
FEATURES 



(CHECK 
(BR IF 



FOR EXTENDED 
SWITCH IS ON 



SW 



CIERHRD 
215 

WRTMSG 
SFIMSG 

SWITCH 



(WRITE MISCELLANEOUS CONT/REAO STATUS 

(FL^TION SELECTION BIT (TURN QN EXTFfA HW SWITCH) 

(WRITE SueSYS MEM PACKET 

(issue COMMAND 

(WAIT FOR S5R 

iBR. IF NO £RRQR 



TSV: - HAROWARF- 


Tf.STS I 


S 


TEST 2; 


E Orr-LINF. AND RF.vJFCT Rl 


541 


025774 


010001 




54^ 


025776 


005237 


002212 


546 


026002 








026002 


104456 






026004 


000330 






026006 


026410 






026010 


012156 




547 


026012 








026012 


104406 




548 


026014 


012704 


026250 


549 








550 








551 








552 








553 








554 








555 








556 


026020 


004737 


010752 


557 


026024 


103407 




558 


026026 


005237 


002212 


562 


026052 


010001 




563 


026034 








026034 


104456 






026036 


000331 






026040 


005054 






026042 


012124 




564 


026044 








026044 


104406 




565 


026046 


016501 


000002 


566 


026052 


032701 


000100 


567 


026056 


001006 




568 


026060 


005237 


002212 


572 


026064 








026064 


104455 






026066 


000332 






026070 


026605 






026072 


012124 




573 


026074 








026074 


104406 




574 


026076 


012737 


142010 


575 


026104 


012704 


026360 


576 


026110 


010465 


000000 


577 


026114 


004737 


016340 


578 


026120 


016501 


000002 


579 


026124 


012702 


100306 


580 


026130 


020102 




581 


026132 


001406 




582 


026134 


005237 


002212 


586 


026140 








026140 


104456 






026142 


000333 






026144 


026754 






026146 


015564 




587 


026150 








026150 


104406 




588 


026152 


012703 


026272 


589 


026156 


016301 


000006 



MACRO M1200 ..'.^ MAH-84 09:40 PAtit: 51 1 



•^iEQ 0107 



30$ 



MOV 
INC 
ERRHRD 



CKLOOP 
MOV 



RO.Rl 

TATFLG 

ERRN0.T22SSR,PI<TSSR 



0T22PACKET.R4 



itRROR, SAVK TSSR 

I BUMP COUNT 

I TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP CtERHRD 
.WORD 216 
.WORD T225SR 
.WORD PKTS3R 

iUOOP IF SELECTED 

TRAP CJCLPl 

jSUBROUTINE NEEDS PACKET ADDRESS 



t 

iWRlTE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



50»: 



026360 



60$: 
65$: 



JSR 


PC, WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




BCS 


501 


jBR. IF COMMAND ISSUED OK 




INC 


FATFL& 


(BUMP COUNT 




MOV 


RO.Rl 


;SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO . WRTMSG , SFIMSG 


(WRITE CHARACTERISTISC FAILED 








TRAP 


CIERHRD 






.WORD 


217 






.WORD 


WRTMSG 






.WORD 


SriMSG 


CKLOOP 




(SCOPE LOOP 








TRAP 


CICLPl 


MOV 


TSSR(R5),R1 


(Gf.T TSSR CONTENTS 




BIT 


*0FL.R1 


(CHECK FOR THE OFFLINE BIT SET 




BNE 


601 


(BR, IF OFFLINE (GOOD) 




INC 


FATFLG 


(BUKP COUNT 




ERRDF 


ERRNO. T220FL, SFIMSG 


(OFF LINE SHOULD HAVE BEEN SET 


(BAD) 






TRAP 


CIERDF 






• WORD 


216 






.WORD 


T220FL 






.WORD 


SFIMSG 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


*142010.T22PK2 


(POSITIO^; COMMAND (REWIND MODE) 


CVC-1 


MOV 


*T22PK2,R4 


(R4 - POINTER TO PACKET 




MOV 


R4.TS0e(R5) 


(ISSUE COMMAND 




JSR 


PC.UAITF 


(WAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 


(GET TSSR CONTENTS 





60*1 



MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



«SSR!0FL!SC!BITl!BIT2,R2iSET UP EXPECTED 



Rl,Rc 
801 

FATFLG 

ERRNO, T22RWJ,EXPREC 



MOV 
MOV 



«T22BFR.R3 
XST0(R3),Rl 



(ARE THEY EQUAL 

(BR, IF OK ESP. FUNCTION REJECT 

(BUMP COUNT 

(TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP CIERHRO 
.WORD 219 
. WORD T22RWJ 
.WORD EXPREC 

(LOOP IF SELECTED 

TRAP C$CLPl 

(POINTER TO MESSAGE BUFFER 

(PICK UP XSTO FROM MESSAGE BUFFER 



l- ■ ' 



TSV7 - HARDWARE TESTS 1-6 MACRO M1200 ^?MAR-84 09:4^ PAGE 51 2 
TEST 2: OFF-LINE AND REJFCT REWIND 



SE'i 0108 



590 026162 

591 026164 

592 026170 

593 026172 

594 026174 

598 026200 
026200 
026202 
026204 
026206 

599 026210 

600 026210 
026210 
026210 

601 026212 

602 026220 

603 026222 

604 026226 

605 026226 

606 026232 

607 026234 

608 026240 
026240 
026242 



010102 

042702 000020 

020102 

001406 

005237 002212 

104456 
000334 
027027 
015564 



104403 

023727 002212 000017 

103402 

004737 017272 

004737 016546 

103002 

000137 024732 

104432 
001116 



90$ 



MOV 


Rl.fi2 


;5ET UP EXPECTED 




BIC 


#BIT4.R2 


jVCK SHOULD BE CLEAR 




CMP 


R1,R2 


I ARE THEY EQUAL 




BEQ 


90* 


(BR. IF OK (GOOD) 




INC 


FATFLG 


;BUMP COUNT 




ERRHRD 


ERRN0,T22VCI<.EXPREC 


;VCK WASN'T CLEAR (BAD) 








TRAP 


CiERHRD 






.WORD 


220 






.WORD 


T22VCK 






.WORD 


EXPREC 



999J: 



163$; 



ENDSUe 



CMP 
BLO 
JSR 

JSR 
BCC 
JMP 
EXIT 



FATFLG, <?15. 

999$ 

PC»CK0R0P 

PC.TSTLOOP 
163$ 
T22L00P 
TST 



;>>>>>>>>>>>> END SUBTEST >>^>>>>>>>>> 

L 10042: 

TRAP C$ESUB 
J IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 

iDO WE NEED TO ITERATE TEST 

jBR. IF NO LOOP REQUIRED 

(EXECUTE AGAIN 

;ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10037- 



i 
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TEST ?: OFF-LINE AND REJFCT REWIND 



SEQ 0109 



610 
611 
612 
614 
616 
617 
618 
019 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
632 
634 
635 
636 
637 
638 
639 
640 

641 026370 

642 026370 

643 026371 

644 026372 

645 026374 
646 

647 
648 
649 

650 026376 

651 026400 

652 026402 

653 026404 

654 026406 



026250 
026250 
026252 
026254 
026256 
026260 
026260 
026262 
026264 
026266 
026270 
026272 



026360 
026360 
026362 
026364 
026366 



026250 

100204 
026260 
000000 
000012 

026272 
000000 
000024 
000000 
000007 



026360 

100206 
026370 
000000 
000006 



000 

000 

000000 

000000 



100201 
100205 
100210 
100211 
177777 



•LOCAL 


STORAGE 


FOR THIS TEST 




. *< . *10 


>ei77770 


T22PACKET: 






.WORD 


100204 




.WORD 


T22DATA 




.WORD 







.WORD 


10. 


T22DATA! 






.WORD 


T22BFR 




.WORD 







.WORD 


20. 




.WORD 







.WORD 


7 


T22eFR 


.BLKW 


25. 


i WRITE 


SUBSYSTEM MEMORY COMMAND PA 




.»<.*10 


>5177770 


T22PK2 








.WORD 


100206 




.WORD 


T22BF2 




.WORD 







.WORD 


6. 




.EVEN 




T22eF2 






T22BS0 


.BYTE 





T22BS1 


.BYTE 





T22S2: 


.WORD 





T22S3; 


.WORD 





* 


.EVEN 




I TAPE MOTION PACKET COMMAND VALUES 


r22RD; 


.WORD 


100201 


T22WRT 


.WORD 


100205 


T22P0S 


.WORD 


100210 


T22F0R 


.WORD 


100211 




.WORD 


177777 



iCOMMAND PACKET TOR TEST 

jWRlTE CHARACTERISTICS COMMAND, WITH IE. ACK 

i ADDRESS OF CHARACTERISTICS BLOCK 

i STARTING VALUE OF BLOCK SIZE 
I CHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 

SELECT DRIVE 7 
(MESSAGE BUFFER 



J WRITE SUB SYS MEM COMMAND. IE AND ACK 
(ADDRESS OF SELECT BLOCK DATA 

;SI2E OF DATA PACKET 



(BSELO AREA 
iBSELl AREA 
;SEL 2 AREA 
;OATA AREA 



(READ TAPE FORWARD 
(WRITE TAPE FORWARD 
(POSITION TAPE 
(FORMAT TAPE 
(END OF DATA 



656 
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TEST 2: OFF-LINE AND REJECT REWIND 



SEQ 0110 



658 
6S9 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
660 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
6>9 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 



711 



026410 
026505 
026605 
026660 
026754 
027027 
027102 
027167 



027222 
027222 
027226 
0272S2 
027256 
027242 
027244 
027250 
027254 
0^7256 
027262 
027264 
027270 
027274 
027302 
C27304 
027310 
027312 

027314 
027314 
027320 
027324 
027330 
027334 
027336 
027342 
027344 
027350 
027352 
027354 
027356 
027360 
027360 
027360 



127 
124 
104 
124 
124 
103 
052 
117 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
005011 
000207 



104401 



LOCAL TEXT MESSAGES FOR TEST 



122 
123 
162 
123 
123 
126 
052 
146 



111 
123 
151 
123 
123 
103 
052 
146 



T22SSR 
T22AM3 
T220FL 
T22TM; 
T22RWJ : 
T22VCK: 
T22WLK : 
TST22ID 



.ASCIZ 'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted' 

.ASCIZ ' TSSR Ini^. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS 

.ASCIZ 'Drive 7 Select Foiled To Set "OFL" In TSSR' 

.ASCIZ 'TSSR Incorrect AFter Tape Motion Command To QFf-LIne Device' 

.ASCIZ 'TSSR Not Correct After REWIN.^ With VCK Set' 

.ASCIZ 'CVC Set, Dldn'-t Reset VCK In Mesoaoe Buffer' 

.ASCIZ •♦****TAPE IS WRITE -LOCKED AND WILL CAUSE ERRORS*****' 

.ASCIZ 'Off-Line And Reject Rewind' 
.EVEN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T22REST: 



026250 
100204 
026260 

000012 
026272 

000024 

000007 
00O020 
177777 

000000 



026272 64$: 



T22RT2: 



026360 
100206 
026370 

000006 

026370 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

MOV 

MOV 

TST 

CMP 

BNE 

RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 

ENDTST 



*T22PACKEt.Rl 

*100204,(R1)* 

*T22DATA,CR1)* 

CRD* 

*10. .(Rl)» 

#T22eFR,CRl)* 

CRD* 

*20,,(R1> 

CRD* 

«7.CR1) 

*20,R2 

<H77777.T22BFRCR2) 

-CR2) 

R2,#0 

64$ 

PC 



#T22PK2.H1 

«100206.(Rl)f 

*T22BF2.(R1)* 

(Rl)» 

ff6.,(Rl)f 

(RD* 

#T22BF2,R1 

(RD* 

CRD 

CRD 

PC 



I SAVE THE REGISTERS 
; START or THE PACKET 
iWRITE SUBSYSTEM MEM. 
jAODRES; or rLiiiDflTCTT 



IE 



iWKiit bUObTbitn ntn. WITH ACK. it 
jAODRES: or CHARAISTICS DATA BLOCK 
(EXTENDEU ADDRESS 
I SIZE OF DATA BLOCK IN BYTES 
(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 



TO BE CLEARED 
BUFFER 



(SELECT DRIVE SEVEN 

(NUMBER OF LXATIONS 

(ALL ONES TO MESSAGE 

(BUMP R2 DOWN 

(IS R2 AT ZERO YET 

(KEEP GOING UNTIL DONE 

(RETURN 

(SAVE THE REGISTERS 

(START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK. IE 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



(I AST LOC 
,kETURN 



TO BE CLEARED 



L10037: 



TRAP 



C$ETST 



TSV7 HAf-^nwARL irSTS 1 8 
TEST 3: BASIC WRITB. DATA 



7V5 
■-■14 
715 
716 
717 
715 
719 

722 
7^3 
7?4 
725 
726 
727 
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SF.Q 01 U 



728 
729 
730 
735 
736 
737 
738 
739 
■^40 
741 
742 
743 
744 
745 
746 
74 7 
748 
749 
750 
731 
752 



753 
754 
755 
756 
75? 
758 
759 
760 
761 
762 
763 
764 
763 
769 



027362 
027562 
027362 
027370 
027374 
027400 
027404 
027410 
027414 
027420 



027426 
027426 
02V426 
027426 
0274 30 
027434 



027A40 
027444 
027446 
027452 
027454 
027454 
027456 
027460 
027462 



012737 
005037 
004757 
004757 
012700 
004737 
004737 
012737 



.SBTTL TEST 3j BASIC WRITE DATA 



THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
PROPERLY. UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUAL. LV 
WRITTEN ONTO TH^ TAPE CORRECTLr. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 

THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 



BGNTST 



006556 
003124 
017564 
016274 
053766 
016600 
021566 
000005 



002170 



002206 



MOV 


*F.PRT1.EPRTSW 


CLR 


KTENABLE 


JSR 


PC.KTOFF 


JSR 


PC.OSBINT 


MOV 


0TST23I0,R0 


JSR 


PCTSTSFTUP 


JSR 


PC.MEMCK 


MOV 


«.L00PCNT 



T3: : 
; SET UP PRIMARY ERROR MESSAGE 

iTURN OFF KTll 

(TURN OFF Kill 
(DISABLE INTERRUPTS 
jASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
J CHECK FOR MEMORY 
jPERFORM 5 ITERATIONS 



TEST 3. SUBTEST 1 

VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 
WITH THE CLEAR VOLUME CHECK CCVC) BIT CLEAR IS 
REJECTED IF THE. VOLUME CHECK CVCK) FLAG IS SET. ALL 
VALID MODE CODES ARE CHECKED (WRITE DATA, WRITE 
RETRY). 



T23L00P: 



104402 

004737 034002 

004737 034074 



BGNSUB 



JSR 
JSR 



PC.T25REST 
PC.T23RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.I: 

TRAP C$BSUB 
I SET COMMAND PACKET 
tSET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016064 

105407 

005237 002312 

010001 

104455 
000455 
003650 
0X2124 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


201 


tBR IF INIT WAS OK 




INC 


FATFLG 


;BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT QK 








TRAP 


C$ERDF 






.WORD 


301 






.WORD 


SFIERR 






.WORD 


SFIMSG 



Tsv: hardware: tests i 8 

TtST 3: BASIC WRITE DATA 



770 0.?7464 

771 027464 

772 027472 
773 

774 
77S 
^76 
'77 
7 78 
779 

780 027476 

781 027502 

782 027504 

786 027510 

787 027512 
027512 
027514 
027516 
027520 
027522 
02752O 

027550 
027536 
027544 
027550 
02/554 
027560 
027562 
027564 
027570 
027570 
027572 
027574 
027576 

803 027600 
027600 

804 027602 

805 027610 
806 

607 
808 
809 
810 
811 
812 

813 027614 

814 027620 

815 027622 

819 027626 

820 027630 
027630 
027632 
027654 
027636 
027640 
027640 



788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
802 



012737 
012704 



004737 
103407 
005257 
010001 

104456 
OOC456 
005054 
012124 
005737 
001044 

112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000457 
052644 

012136 

104406 
012737 
012704 



Q21 



004737 
103407 
005237 
010001 

104456 
000460 
005054 
012124 

104406 



000007 
032470 



010 752 
002212 



002216 



000200 
000010 
032600 
000000 
016426 



002212 



00O007 
032470 



01075? 
002212 
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SEQ 0112 



032510 



20$: 



MOV ^'>7.T23DSW 

MOV flT23PACI<ET.R4 



(SET DRIVE NUMBER IN PACKFT 
(SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 

. WORD 302 
.WORD WRTi-tSG 
.WORD SFIMSG 
I CHECK FOR EXTENDED FEATURES SW SWITCH 
jBR IF SWITCH IS ON 



JSR 


PC.WRTCHR 


BCS 


23$ 


INC 


FATFLG 


MOV 


RO.Ri 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



23$ 



032623 
032622 



30* 



TST 
BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRD 



CKLOOP 



EXTFEA 
50$ 

*200,T25BS1 

*10.T23BS0 

*T23PK2.R4 

R4.TSDB(R5) 

PC.CHKTSSR 

30$ 

RO.Rl 

FATFLG 

ERRN0,T23SSR»PKTSSR 



032510 



MOV 
MOV 



<^7.T230SW 
*T23PACKET,R4 



;WRITE MISCELLANEOUS CONT/REAO STATUS 

jFUNCriON SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

J WRITE SU6SYS MEM PACKET 

J ISSUE COMMAND 

(WA" FOR SSR 

;BR» IF NO ERROR 

lERROR, SAVE TSSR 

;BUMP COUNT 

J TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 

. WORD 303 
.WORD T23SSR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(SET DRIVE NUMBER IN PACKET 

i SUBROUTINE NEEDS PACKET ADDRESS 



• 4**** **«*«* ****«*4t««**«* ********************** *4i««**«*4i4i***«*****4i 
I 

;WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 

J ♦^^^^A^A^^^^^'*** «♦***«*******« *4i**4i***A«*4i ************ A A**«****4** 

(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
50$: CKLOOP (SCOPE LOOP 

TRAP 



JSR 


PC.WRTCHR 


BCS 


50$ 


INC 


FATFLG 


MOV 


RO.RI 


ERRHRD 


ERRNO , WRTMSG . SFIMSG 



C$ERHRD 
304 

WRTMSG 
5FIMSG 

C$CLP1 
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TEST 5: BASIC WRITE DATA 



MACRO Ml^OO ^5 MAR -84 09:44 PAGt 54 <? 



5EQ 0115 



&22 
QP.5 
824 
825 
829 



830 

831 
832 
833 
834 
835 
836 
637 
838 
839 
840 
844 



845 

846 
347 
848 
849 
850 
651 



852 
853 
854 
855 



027642 
027646 
027652 
027654 
027660 
027660 
027652 
027664 
027666 
027670 
027670 
027672 
027676 
027702 
027706 
027712 
027716 
027722 
027726 
027730 
027732 
027736 
027736 
027740 
027742 
027744 
027746 
027746 
027750 
027752 
027756 
027760 
02/762 
027762 
027762 
027762 
027764 
027772 
027774 
030000 



016501 
032701 
001006 
005237 

104455 
000461 
033306 
012124 

104406 
012703 
011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000462 
033042 
015564 

104406 
005723 
022713 
001401 
000746 



104403 
023727 
103402 
004737 



000002 
000100 

002212 



032634 
032600 
032600 
000000 
016340 
000002 
100306 



002H12 



60$: 
65$: 



80$; 



177777 



90$: 



002212 
017272 



000017 



999$ 



MOV 
BIT 
BNE 
INC 
ERRDF 



OKI. OOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

TST 
CMP 
BEQ 
BR 

ENDSUB 



CMP 
BLO 
JSR 



TSSR(R5'),Ri 

^>0KL,R1 

60$ 

FATFLG 

ERRN0.T230FL.SF IMSG 



<M23WD,R3 

(R3).T23PI<2 

0T23PK2,R4 

R4,TSD0(R5) 

PC.UAITF 

TSSRCR5).R1 

*SSR!SC!0FL!BIT1!BIT2 

R1.R2 

80$ 

FATFLG 

ERRN0,T23TM.EXPREC 



(R3)f 

0177777, (R3) 
90$ 
65$ 



FATFLG, #15, 

999$ 

PC.CKDROP 



iGET TGSR CONTENTS 

; CHECK FOR THE OFFLINE BIT SET 

J BR, I(- OFFLINE (GOOD) 

:BUMP COUNT 

;OFK LINE SHOULD HAVE BEEN SET (BAD) 

TRAP C$ERDF- 
. WORD 305 
.WORD T230F1 
.WORD SFIMSG 

(LOOP IF SELECTED 

TRAP C$CLP1 

J POINTER FOR COMMANDS 

(TAPE MOTION COMMAND IN PLACE 

jR4 - POINTER TO PACKET 

; ISSUE COMMAND 

J WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 
,R2jSET UP EXPECTED 

:ARE THEY EQUAL 

;BR, IF OK ESP. FUNCTION REJECT 

jBUMP COUNT 

I TSSR INCORRECT AFTER TAPE MOTION CMO 



(LOOP IF SELECTED 

[POINT T:1 next COMMAND 
;ENO OF THE COMMANDS YET 
;BR. IF DONE 
J MORE COMMAND(S) TO GO 



>>>>>>>>>>>> 



TRAP 


C$ERHRD 


.WORD 


306 


.WORD 


T25TM 


.WORD 


EXPREC 



TRAP 



C$CLP1 



END SUBTEST 
L 10044: 

TRAP 
;IS ERROR COUNT AT 25 



>>>>>>•*>%>>> 



c$Esue 



iBR. 
;TRY 



IF LESS 
TO DROP 



THAN 25 
THE UNIT 



TSV." HARDWARf. Tt STS 1 9 
TtST 3: BASIC WRITE DATA 



85; 

flSO 
860 
861 
66^- 
86 i 

866 
867 
868 
86^ 
8/0 
871 
872 
873 
874 
875 
876 
877 



873 
8 79 
880 
861 
88? 
883 
864 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
898 
899 



9O0 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 



030000 
030000 
030000 
03000^ 
030006 
030010 
030012 
030016 
030022 
030026 



104402 
0X3701 
000241 
006101 
010137 
004 737 
004 737 
004737 



030032 
030036 
030040 
030044 
030046 
030046 
030050 
030052 
030054 
030056 
030056 
030064 



004737 
103407 
005237 
OlOOCl 

104455 
000463 
003650 
012124 

013737 
012704 



003116 



032620 
034002 
034136 
034074 



016C64 
002212 



002172 
032470 



MACRO M1?."»0 
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032510 



SEQ 0114 



TEST 3. SUBTEST 2 

VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 AND THE 
SWAP BYTES CSkB) BIT CLEAR OPERATES PROPERLY. THE 
BYTE COUNT (RECORD SIZE:) VARIES FROM 20 THROUGH 64K 
IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT 
THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
MODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 
WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 
IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN. THE 
ISSR AND TSiBA REGISTERS, THE MESSAGE BUFFER, AND THE 
RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 
USING THE WRITE SUBSYSTEM MEMORY COMMAND. 



BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3,2: 

TRAP CJBSUB 
iGET SIZE OF AVAILIABLE hCMORY 
CLEAR THE CARRY BIT 
MAKE INTO BYTES 
STORE IN TEST FOR USE LATER 
SET COMMAND PACKET 
(RESTORE PACKET 
;SET UP OTHER COMMAND PACKET 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



MOV 


FRESIZ.Rl 


CLC 




ROL 


Rl 


MOV 


R1.T23RSZ 


JSR 


PC.r23REST 


JSR 


PC,T23RT3 


JSR 


PC.T23RT2 



JSR 
BCS 
INC 
MOV 
ERRDF 



PC.SOFINIT 

20$ 

FATFLG 

RO.Rl 

ERRNO. SFIERR , SFIMSG 



?0$: 



MOV 
MOV 



UNITN.T230SW 
<>T23PACKET.R4 



iDO INITIALIZE ON CONTROLLER 
BR IF TNIT WAS OK 
BUMP COUNT 

CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 307 
.WORD SFIERR 
.WORD SFIMSG 

jLOAD UP SELECTED UNIT NUMBER 
J SUBROUTINE NEEDS PACKET ADDRESS 



(**********««**««*4**4,«4i«i^«^««4,*«4,«*4,h««444«4,4,A44^44,44^4,4,4,4,4,4,^4,4, 4^4, 4,4,4, 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

****.-X*)f******4^*************4**4*****4i********4,**«*4L**«******«****f 



030070 004737 010752 



JSR 



PC.WRrCHR 



I ISSUE WRITE CHARACTERISTICS 



' ) 



TSV-' - HAROWARt TtSTS 18 
TEST 3: BASIC WRITE DATA 



911 

91i^ 
916 
917 



918 

919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
956 
937 
936 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 

951 
952 
953 
954 
955 
956 
957 
958 
959 
963 



030074 
030076 
030102 
030104 
030104 
030106 
030110 
030112 
030114 
030114 



030116 
030122 
030126 



030134 
030142 
030150 
03C156 
030162 
030164 
030170 
030174 
030200 
030204 
030210 
030214 
030216 
030220 
030224 
030224 
030226 
030232 
030236 
030242 
030246 
030250 
030254 
030256 
030260 
030264 
030264 
03C266 
030270 
030272 



103407 
005237 
010001 

104456 
000464 
005054 
012124 

104406 



004737 
012703 
013737 



012737 
012737 
052737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001402 
004737 

104406 
016501 
012702 
062702 
005737 
001402 
062702 
020102 
001406 
005237 

104456 
000465 
035625 
015564 



002212 
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BC5 23$ 

INC FATFLG 

MOV R0,R1 

ERR! iRU ERRNO , WRTMSG , SF IMSG 



SEQ 0115 



23$ 



CKLOOP 



iBR. IF COMMAND ISSUED OK 

J BUMP COUNT 

J SAVE CONTENTS Of TSSR 

[WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



CiERHRD 
308 

WRTMSG 
SFIMSG 

C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

***♦****♦* *+**♦♦*♦♦♦******+*♦***♦♦*+♦♦++♦»♦♦♦♦♦♦**♦♦♦♦♦**♦ ♦♦*+♦♦♦+ 



011104 
000024 
003114 



JSR PC, REWIND 
MOV #20., R3 
MOV FREE,T23WB 



J CALL THE TAPE REWIND 
iSTARTING RECORD SIZE 
; STARTING WRITE BUFFER ADDRESS 



032612 65$; 

WRITE DATA.CVC-l.ACK COMMAND 



140005 
140005 
004000 
032610 

017512 
032616 
000000 
016340 
000002 
000200 



034162 



000000 
032512 
000016 
002216 

000002 



002212 



032610 
032632 
032632 



80 5 



85$: 



MOV 


#140005, T23PK3 


MOV 


#140005. T23WRT 


BIS 


#4000,T23WRT 


MOV 


#T23PK3.R4 


MOV 


R3.R0 


JSR 


PC.FILLHEM 


MOV 


R3.T23SZ 


HOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


#5SR.R2 


CMP 


R1,R2 


BEQ 


80 J 


JSR 


PC.T23CHK 


CKLOOP 




MOV 


TSBA(R5),Rl 


MOV 


#T23BFR,R2 


ADD 


#16. R2 


TST 


EXTFEA 


BEQ 


85$ 


ADD 


#2.R2 


CMP 


H1.R2 


BEQ 


90$ 


INC 


FATFLG 



ERRHRD ERRNO , T23BA , EXPREC 



WRITE DATA.CVC-l.ACK COMMAND 

SETUP FOR RETRY COMMAND 

MAKE IT A RETRY 

SET UP R4 WITH PACKET ADDRESS 

SET PATTERN IN CORRECT REGISTER 

FILL MEMORY WITH RECORD SIZE 

SET UP RECOftD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

CHECK SPECIAL CONDITION 

LOOP IF SELECTED 

T'^AP C$CLP1 

GET TSBA CONTENTS 

SET UP EXPECTED 

SET TO END OF MESSAGE BUFFER 

CHECK FOR EXTENDED FEATURES SW SET 

BR. IF IT NOT SET 

BUMP R2 fOR EXTRA DATA 

ARE THEY EQUAL 

BR. IF TSBA IS CORRECT 

BUMP COUNT 

iTSBA WAS NOT CORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
. WORD 309 
.WORD T23BA 
.WORD EXPREC 



TSV7 - HARDWARE TKSTS 18 
TEST 3: BASIC WRITE DATA 
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SEQ 0116 



964 


030274 








030274 


104406 




965 


030276 


020327 


007376 


966 


030302 


002114 




967 


030304 


004737 


034074 


968 


030310 


012737 


000400 032624 


969 


030316 


112737 


000000 032622 


970 


030324 


112737 


000000 032623 


971 


030332 


012704 


032600 


972 


030336 


010465 


000000 


^73 


030342 


004737 


016426 


974 


030346 


103407 




975 


030350 


010001 




976 


030352 


005237 


002212 


980 


030356 








030356 


104456 






030360 


00C466 






030362 


033677 






030364 


012136 




981 


030366 








030366 


104406 




982 


030370 


004737 


034074 


983 


030374 


012737 


000400 052624 


984 


030402 


112737 


000001 032^22 


985 


030410 


112737 


000002 032623 


986 


030416 


012704 


032600 


987 


030422 


010465 


000000 


988 


030426 


004737 


016426 


989 


030432 


103407 




990 


030434 


010001 




991 


030436 


005237 


002212 


995 


030442 








030442 


104456 






030444 


000467 






030446 


033677 






030450 


012136 




996 


030452 








C30452 


104406 




997 


030454 


005001 




998 


ObMSe 


005002 




999 


030*: '.0 


013701 


032532 


1000 


0304 1>4 


010502 




1001 


030466 


020102 




1002 


030470 


001406 




1003 


030472 


005237 


002212 


1007 


030476 








030476 


104456 






030500 


000470 






030502 


033165 






030504 


015564 




1008 


030506 








030506 


104406 




lOOS 


030510 


005237 


032624 


1010 


■*30514 


005237 


032624 


1011 


0.^0520 


010301 




1012 


03052*.' 


062701 


000400 


10X3 


030:; 26 


023701 


032624 



90$ 



92$ 



CKLOOP 

CMP 

BGE 

JSR 

MOV 

MOVB 

MOVB 

MOV 

MOV 

JfJR 

BCS 

MOV 

INC 

ERRHRD 



CKLOOP 



95$ 



100$: CKLOOP 



110$: 



CKLOOP 



R3,#7376 

115$ 

PC.T23RT2 

V>256. .T23S2 

^>0,T23BS0 

#0.T23BS1 

*T23PK2,R4 

R4,TSDB(R5) 

PC.CHKTSSR 

92$ 

RO.Rl 

FATFLG 

ERRN0,T23WSS,PKTSSR 



JSR 


PC»T23RT2 


MOV 


<?256..T23S2 


MOVB 


#1.T23BS0 


MOVB 


*?,T23BS1 


MOV 


«T23PK2.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


100$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T23WSS»PKTSSR 



CLR 


Rl 


CLR 


R2 


MOV 


T23&FRf20,Rl 


MOV 


R5,R2 


CMP 


R1,H2 


BEG 


110$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T23RNC.EXPREC 



INC 


T23S2 


INC 


T23G2 


MOV 


R3.R1 


ADD 


<>256. .Rl 


CMP 


T23S2.R] 



jLOOP IF StLECTtO 

TRAP rJCLPl 
;ONLY CHECK RAM UNTIL ITS FULL 

IT WRAPS AROUND ETC. 

MAKE SURE PACKET AND DATA ARE CLEAN 

STARTJ'.J RAM ADDRESS 

STOP INTERNAL TSV05 DIAGNOSTICS 

SIZE OF RAM READ 

SET R4 WITH PACKET ADDRESS 

ISSUE WRITE SUB SYS MEM COMMAND 

CHECK TSSfi AND WAIT FOR SSR TO SET 

BR. IF NO ERRORS IN TSSR 

SAVE TSSR 
tBUMP COUNT 
jTSSR BAD AFTER WRXTE SUB SYS 



LOOP IF SELECTED 



AND 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
DATA ARE 



MEM 

C$ERHRD 
310 

T23WSS 
PCTSSR 

C$CLP1 
CLEAN 



iMAKE SURE PACKET 
; STARTING RAM 
jREAD RAM COMMAND FOR WRITE SUB SYS M. 
iSIZE OF RAM READ 
(SET R4 WITH PACKET ADDRESS 
; ISSUE WRITE SUB SYS MEM COMMAND 
; CHECK TSSR AND WAIT FOR SSR TO SET 
J BR, IF NO ERRORS IN TSSR 
;SAVE TSSR 
I BUMP COUNT 

;TSSR BAD AFTER WRITE SUB SYS 

TRAP 



LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



MEM 

C$ERHRO 
311 

T25WSS 
PKTSSR 



C$CLP1 



CLEAR REGISTER 

CLEAR REGISTER 

PICK UP BYTE READ FROM PAM 

SET UP EXPECTED 

IS RAM DATA CORRECT 

BR. IF OK (EQUAL) 

BUMP COUNT 

RNC-RAM NOT CORRECT 







TRAP 


C$ERHRD 






.WORD 


312 






.WORD 


T23RNC 






.WORD 


EXPRKC 


SELECTED 












TRAP 


C$CLPl 


ADDRESS 


TO BE 


CHECKED 




ADDRESS 


TO BE 


CHECKED 





:LOOP IF 

;BUMP RAM 
HUMP RAM 
GET SIZE OF RECORD 
^*IGURF OUT END RECORD ADDRESS 
AT END OF RAM CHECK lET 



TSV7 - HARDWARB TESTS 1-6 
TEST 3: BASIC WRITE DATA 



1C14 


030532 


001333 




1015 


030534 


062703 


001750 


1016 


030540 


020337 


032620 


1017 


030544 


002005 




1018 


030546 


02032? 


177776 


1019 


030552 


001402 




1020 


030554 


000137 


030126 


1021 


030560 






1022 


030560 


004737 


034136 


1023 


030564 


004737 


034074 


1024 


030570 


012737 


102010 


1025 


030576 


012704 


032600 


1026 


030602 


010465 


000000 


1027 


030606 


004737 


016426 


1028 


030612 


103407 




1029 


030614 


010001 




1030 


030616 


005237 


002212 


1034 


030622 








030622 


104456 






030624 


000471 






030626 


033116 






030630 


012136 




1035 


030632 






1036 


030632 
030632 








030632 


104403 




1037 


030634 


023727 


002212 


1038 


030642 


103402 




1039 


030644 


004737 


017272 


1040 


050650 
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115$: 



120$: 



032600 



DNE 
ADO 
CMP 
BGE 
CMP 
BF.Q 
JMP 

JSR 
JSR 
MOV 
MOV 
MOV 
JSR 
8CS 
MOV 
INC 
ERRHRD 



130$ 



ENOSUB 



000017 



95$ 

.'^1000. .R3 

R3.T23RSZ 

120$ 

R3.V>65534. 

120$ 

65$ 

PC,T23RT3 

PC,T23RT2 

<M02CiO,T23PK2 

«T23PK2,R4 

R4.TSDeCR5) 

PC.CHKTSSR 

130$ 

RO.Rl 

FATFLG 

ERRN0.T23RWN.PKTSSR 



999$ 



CMP 


KATKLG.fllS 


BLO 


999$ 


JSR 


PC.CKDROP 



SEQ 0117 



I BR. ir MORE TO CHECK 

{NEXT RECORD SIZE/DATA PATTERN 

J IS R3 OVER MAX RECORD SIZE 

(IF RECORD SIZE IS TOO BIG QUIT 

:END Of SUBTEST MAX RECORD SIZt 

;BR, IF COMPLETED 

iDO MORE RECORDS 

I RES TORE PACKET 

: CLEAN UP PACKET 

iREWIND CPOSITION) COMMAND 

J LOAD R4 WITH PACKET ADDRESS 

I ISSUE REWIND COMMAND 

(WAIT FOR SSR TO SET 

BR. IF TSSR IS OK (GOOD) 

SAVE TSSR CONTENTS 

BUMP COUNT 
J TSSR IS INCORRECT AFTER REWIND 



TRAP 


CJERHRD 


.WORD 


313 


.WORD 


T23RUN 


.WORD 


pktssr 


>>>> END SUBTEST >>>>>>>>>>>■. 


L 10045: 




TRAP 


C$ESUB 


IS ERROR COUNT AT 25 




BR, IF LESS THAN 25 




TRY TO DROP THE UNIT 





TSV: HAROWrtRK Tf.STS I 8 
TEST %i BASIC WRITE DATA 

104 5 
1044 
104S 
1046 
104; 
1048 
1049 

rose 

10!)1 
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56 



SF^J 0118 



10!^3 

iori4 



1.05S 

ior»6 

105 r 

1058 
1059 

1060 

icwa 

10^.' 

106?; 

1064 
1065 

1066 
10/0 
1071 



1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1060 
1081 
1062 
1065 
1064 
1066 
1089 



1090 
1091 
1092 
1093 
1094 



030650 
050650 
050650 
030652 
030656 



050662 
050666 
050670 
050674 
030676 
050676 
050700 
050702 
050704 
050706 
050706 
050714 



050720 
050724 
050726 
050752 
050754 
050754 
050756 
050740 
050742 
050744 
050744 
030750 



104402 
004 757 
004737 



0O4757 
105407 
005237 
010001 

104455 
0004 72 
005650 
012124 

013737 
012704 



004737 
105407 
005257 
010001 

104456 
000475 
005054 
012124 

012705 
0X3737 



TEST 3, SUBTtST 3 

VFRIFIF.S THAT WRITE DATA COMMANDS WITH CVC-1 ^HO THf 
SWAP BYTES (SWB) BIT SET OPERATF'i PROPERLY. Jht TE^.T 
SEOUESCF IS IDf-NTICAL TO THAT USED IN SiJBTEST 2. 
THE RESULTS. EXCEPT EUR RAM CONTENTS. SHOULD BE THE SAMF 



034002 
034074 



BGNSUe 



JSR 
JSR 



PC,T23REST 
PC,T23RT2 



I >>>>>>>>>> ^> BEGIN SUBTEST *«>*»>....»> 

T3.3i 

TRAP CJBSUB 
(SET COMMAND PACKET 
I SET UP 0THt:R COMMAND PAC»^ET 



ISSUE CONTROLLER "SOET" INITIALIZE - CARRY BIT CLEAR TE ERROR 



016064 
002212 



002172 
052470 



032510 



20» 



JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




BCS 


201 


:BR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


iFATAL ERRO« TbSR WAS NOT QK 








TRAP 


CIERDf 






.WORD 


514 






.WORD 


SF ItRR 






.WORD 


5FIM5G 



MOV Uf:iTN.T250SW 
MOV #T25PACKET,R4 



»SET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 



010752 
002212 



JSR PC. WRTCHR 

BCS 231 

INC FATFLG 

MOV RO.Pl 

ERRHRD ERRNO . WRTMSG , SF IMSG 



(issue WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COU^^T 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACrtRlSTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



000024 
003114 



23»: 
053613 65 »: 



CIERHRD 
315 

WRTMSG 
SFIMSG 



MOV 
MOV 



020. .R3 

FREE.T25we 



iSTARTING RECORD SIZE 
iSTARTING WRITE BUFFrw ADDRESS 



TSV/ H/UvOwAMt H.STS I y 
TtST 5: BASIC WRITE DATA 
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56 1 



SFQ 0119 



1095 








109^ 








109; 








1098 








1099 








UOO 


030756 


012757 


150005 052610 


1101 


030764 


012737 


150005 032652 


U02 


030772 


052737 


004000 032632 


1103 


031000 


012704 


032610 


1104 


031004 


010300 




1105 


031006 


004737 


017512 


1106 


051012 


010337 


032616 


1107 


031016 


010465 


000000 


1108 


051022 


0047^7 


016540 


1109 


031026 


016501 


00OOC2 


1110 


031032 


012702 


000200 


1111 


031036 


02C102 




1112 


031040 


001402 




1113 


031042 


004737 


034162 


1114 


031046 








031046 


104406 




1115 


031050 


016501 


000000 


1116 


031054 


012702 


032512 


1117 


051060 


062702 


000016 


1118 


031064 


005737 


002216 


1119 


031070 


001402 




1120 


031072 


062702 


000002 


1121 


031076 


020102 




1122 


031100 


001406 




1123 


031102 


005237 


002212 


H27 


031106 








031106 


104456 






031110 


000474 






031112 


033625 






031114 


015564 




1128 


031116 








031116 


104406 




1129 


031120 


020527 


007376 


1130 


031124 


002115 




1131 


031126 


004737 


034074 


1132 


031132 


012737 


000400 052624 


1133 


031140 


112737 


000000 032622 


1134 


051146 


112737 


000000 032623 


1135 


031154 


012704 


032600 


1136 


031160 


01046b 


OOOOOC 


1137 


031164 


004737 


016426 


1136 


031170 


105407 




1139 


031172 


010001 




1140 


031174 


005237 


002212 


1144 


031200 








031200 


104456 






031202 


000475 






031204 


033677 






031206 


0121J6 




1145 


031210 








031210 


104406 




1146 


051212 


004737 


034074 



jWRITt. DATA. even. ACK.SWB COMMAND 
i 

1 *********** «*************4i***4>«*«44i4t««4»**«*4*«««4«**********«i«**** 

WRITE DATA.CVC-l.ACK.SWB COMMAND 
StTUF FOR RtTRt COMMAND 
MAKE IT A RETRY 
SET UP R4 WITH PACKET AD0RF5S 
SET PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZi 
SET LP RECORD SI?E IN PACKET 
IS*^UE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE TMEY EQUAL 
BR, IF OK 
.CHECK SPECIAL CONDITION 

00$: CKLOOP iLOOP IF SELECTED 

TRAP C4CLPi 
GET TSBA CONTENTS 
SET UP EXPECTED 
SET TO END OF MESSAGE BUFFER 
CHECK FOR EXTENDED FEATURES SW SET 
BR, IF IT NOT SET 
.BUMP R2 FOR EXTRA DATA 

85*! CMP R1.R2 lARE THEY EQUAL 

BR. IF TSBA IS CORRECT 

BUMP COUNT 

TSBA WAS NOT CORRECT AFTER WRITE DATA 



MOV 


#150005, T23PK? 


MOV 


0150005. T25WRr 


BIS 


«4000.T23WRT 


MOV 


#T25PK5,R4 


MOV 


R5,R0 


JSR 


PCFILLMEM 


MOV 


R3,T25SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


CMP 


R1,R2 


BEO 


80$ 


JSR 


PC,12?CHK 


CKLOOP 




MOV 


TSBA(R5).R1 


MOV 


#T25BFR.R2 


ADD 


#16. R2 


TST 


EXTFEA 


BEQ 


85$ 


ADO 


#2.R2 


CMP 


R1.R2 


BEQ 


V0$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T23BA,EXPREC 



90$: 



CKLOOP 



TRAP 


CtERHRD 


.WORD 


316 


.WORD 


T25BA 


.WORD 


EXPREC 



CMP 


R5,a7576 


BGE 


115$ 


JSR 


PC,T25RT2 


MOV 


«256. ,T23S2 


MOVB 


*O.T25BSO 


MOVB 


♦O.T23BS1 


MOV 


#T25PK2,R4 


MOV 


R4,TbD6(R5) 


JSR 


PC.CHKTSSR 


BCS 


92$ 


MOV 


R0,R1 


INC 


FATFLG 


ERRHRD 


ERRN0,T23WS5,PKTSSR 



iLOOP IF SELECTED 

TRAP C$CLP1 
lONLY CHECK RAM UNTIL ITS FULL 
(IT WRAPS AROUND ETC. 
J MAKE SURE PACKET AND DATA ARE CLEAN 
(STARTING RAM ADDRESS 
iSrOP INTERNAL TSV05 DIAGNOSTICS 
I SIZE OF RAM READ 
I SET R4 WITH PACKET ADDRESS 
(ISSUE WRITE SUB SYS MEM COMMAND 
iCHECK TSSR AND WAIT FOR SSR TO SET 
iBR, IF NO ERRORS IN TSSR 
I SAVE TSSR 
I BUMP COUNT 
I TSSR BAD AFTER WRITE SUB SYS MEM 



92»i 



CKLOOP 
JSR 



jLOOP IF SELECTED 



PC.T23RT2 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
317 

T25WSS 
PKTSSR 

C$CLPl 



(MAKE SURE PACKET AND DATA ARE CLEAN 



TSV/ - HARDWARfc- Tr.STS 1 8 
T£ST 3: BASIC WRITE DATA 



I) i 
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SFQ OIP^O 



1147 


031216 


012737 


000400 


032624 


1148 


031224 


112737 


000001 


032622 


1149 


031232 


112737 


000002 


032623 


1150 


031240 


012704 


032600 




1151 


031244 


010465 


000000 




1152 


031250 


004737 


016A26 




1153 


031254 


103407 






1154 


031256 


010001 






il55 


031260 


005237 


002212 




1159 


031264 
031264 
031266 
031270 
031272 


104456 
0004 76 
033677 
012136 






1160 


031274 
031274 


104406 






1161 


031276 


005001 






1162 


031300 


005002 






1163 


031302 


013701 


032532 




1164 


031306 


010302 






1165 


031310 


000302 






1166 


031312 


020102 






1167 


031314 


001406 






1168 


031516 


005237 


002212 




1172 


031322 
031322 
031324 
031326 

031330 


104456 

000477 
033165 
015564 






1173 


C31332 
C31332 


104406 






1174 


(.31334 


005237 


032624 




1175 


031340 


005237 


032624 




1176 


031344 


010301 






1177 


031346 


062701 


000400 




- ^8 


031352 


023701 


032624 




11V5 


031356 


001332 






1180 


031360 


062703 


001750 




1181 


031564 


020337 


032620 




1162 


031370 


002005 






1183 


031372 


020327 


177776 




1184 


031376 


001402 






1185 


031400 


000137 


030750 




1186 


031404 








1187 


031404 


0O4737 


034074 




1188 


031410 


012737 


102010 


032600 


1189 


031416 


012704 


032600 




1190 


031422 


010465 


000000 




1191 


031426 


004737 


016426 




1192 


031432 


103407 






1193 


031434 


010001 






1194 


031436 


005237 


002212 




1198 


031442 
031442 
031444 
0314*:6 
031450 


104456 
000500 
033116 
012136 







MOV 
MOVB 
MOVB 
MOV 
95$: MOV 
JSR 
BCS 
MOV 
INC 
ERRHRD 



100$! CKLOOP 



110 J: CKLOOP 



115$: 



120 i: 



*256..T23S2 

«1,T23BS0 

*2.T23BS1 

#T23PK2,R4 

R4,TSDBCR5) 

PC.CHKT5SR 

100$ 

RO.Rl 

FATFLG 

ERRN0.T23WSS.PI<T^j5R 



CLR 


Rl 


CLR 


R2 


MOV 


T23BFR»20.R1 


MOV 


R3.R2 


SUA8 


R2 


CMP 


R1»R2 


BbQ 


110$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T23RNC,EXPREC 



I STARTING RAM ADDRESS 

jREAD RAM COMMAND FOR WRITE S'JB SYS M. 

J SIZE OF RAM READ 

I SET R4 WT^M PACKET ADORHSr. 

J ISSUE WRITE SIJB SfS MEM CMD (RfcAD RAM) 

(CHECK TSSR AND WAIT FOR SSR TO SET 

(BR. IF NO ERRORS IN TSSR 

(SAVE TSSR 

I BUMP COUNT 

jTSSR BAD AFTER WRITE SUi3 SYS 'rEM 

TRAP CIERHRD 
.WORD 318 
.WORD T23WSS 
.WORD PKTSSR 

J LOOP IF SELECTED 

TRAP C$CLP1 

(CLEAR REGISTERS 

(CLEAR REGISTERS 

(PICK UP BYTE READ FROM RAM 

(SET UP EXPECTED 

(SWAP BYTES 

(IS RAM DATA CORRECT 

(BR, IF OK (EQUAL) 

(BUMP COUNT 

jRNC-RAM NOT CORRECT 



r^AP 


C$ERHRD 


.WORD 


319 


.iJORO 


T23RNC 


.WORD 


EXPREC 



(LOOP IF SELECTED 

TRAP CiCLPl 



INC 


T23S2 


iBlWP RAM ADDRESS TO BE CHECKED 




INC 


T2352 


(BUMP RAM ADDRESS TO BE CHECKED 




MOV 


R3.RI 


iGET SI7E OF RECORD 




ADD 


*256. .Rl 


(FIGURE OUT END RECORD ADDRESS 




CMP 


T23S2,R1 


(AT END OF RAM CHECK YET 




BNE 


95$ 


iBR. IF MORE TO CHECK 




ADO 


«1000.,R3 


(NEXT RECORD SIZE/DATA PATTERN 




CMP 


R3,T23RSZ 


;IS R3 OVER MAX RECORD SIZE 




BGE 


120$ 


;IF RECORD SIZE IS TOO BIG QUIT 




CMP 


R3.*65534. 


lENO OF SUBTEST MAX RECORD SIZE 




BEQ 


120$ 


J BR, IF COMPLETED 




JMP 


65$ 


(DO MORE RECORDS 




JSR 


PC,T23RT2 


(CLEAN UP PACKET 




MOV 


*10?010.T23PK2 


(REWIND (POSITION) COMMAND 




MOV 


*T23PK2.R4 


(LOAD R4 WITH PACKET ADDRESS 




MOV 


R4,TSDB(R5) 


(ISSUE REWIND COMMAND 




JSR 


PC.CHKTSSR 


(WAIT FOR SSR TO SET 




BCS 


130$ 


(BR, IF TSSR IS OK (GOOD) 




MOV 


RO.Rl 


(SAVE TSSR CONTENTS 




INC 


FATFLG 


(Bl.^1P COUNT 




ERRHRD 


ERRN0,T23RWN, PKTSSR 


(TSSR IS INCORRECT AFTER REWIND 








TRAP 


cserkrd 






.WORD 


320 






.WORD 


T23RWN 






.WORD 


PKTSSR 



TSV7 - HARDWARE TESTS 1 ti 
TEST 3: BASIC WRITE DATA 



1199 031452 






1200 031452 






031452 






031452 


104403 




1201 031454 


023727 


002212 


1202 031462 


103402 




1203 031464 


004737 


017272 


1204 031470 
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130$: 



000017 



999$: 



ENOSUB 



CMP 
BIO 
JSR 



FATKLG./^15 

999$ 

PCCKDROP 



SEQ 0121 



{>>>>>>>>>>>> END S'JBTEST >>^>>>^>>>>> 

L 10046: 

TRAP CiESiJB 
lis ERROR COUNT AT 25 
jBR, ir LESS THAN 25 
J TRY TO DROP THE UNIT 



TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 



1206 
1207 
1208 
1209 
1210 
1211 
12?.2 
1.^15 
1214 
1215 
1216 
1217 



no 
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1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1234 
1235 



1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1252 
1253 



1254 
1255 
1256 
1257 
1256 



031470 
031470 
031470 
031472 
031476 
031502 



031506 
031512 
031514 
031520 
031522 
031522 
031524 
031326 
031530 
031532 
051532 
031540 



031544 
031550 
031552 
031556 
031560 
031560 
031562 
031564 
031566 



104402 
004737 
004737 
004737 



004737 
103407 
005237 
010001 

104455 
000501 
003650 
012124 

013737 
012704 



0O4737 
103407 
005237 
010001 

104456 
000502 
005054 
012124 



03A002 
034136 
034074 



016064 
002212 



002172 
032470 



032510 



010752 
002212 



SEQ 0122 



TEST 3. SUBTEST 4 

VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
FIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 



BGNSUB 



JSR 
JSR 
JSR 



PC.T23REST 

PC,T23RT3 

PC.T23RT2 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.4; 

TRAP C$BSUB 
;SET COMMAND PACKET 
jRESTDRE PACKET 
i SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20$: 



JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


;BR IF INIT WAS OK 




INC 


FATFLG 


;BUMP COUNT 




MOV 


RO.Rl 


; CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO , SFIERR , SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


321 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN,T23DSW 
MOV #T23PACKET.R4 



;SET DRIVE NUMBER IN PACKET 

J SUBROUTINE NEEDS PACKET ADDRESS 



IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
! 



J«^t PC. WRTCHR 

BCS 231 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG » SFIMSG 



I ISSUE WRITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

««*«««**«*4t****«****4(4i4i4 4i4i4,««««4,jtt4i44i4t4iA**4t*4i A************** ******* 

WRITE DATA, ACK, ILLEGAL BITS 



C$ERHRD 
322 

WRTMSG 
SFIMSG 



TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 



1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1276 



1277 
1278 



1279 
1280 
1281 
1282 



031570 
031576 
031604 
031612 
031620 
031624 
031630 
031634 
031640 
031644 
031646 
031650 
031654 
031654 
031656 
031660 
031662 
031664 
031664 
031666 
031666 
031666 
031670 
031676 
031700 
031704 



012737 
013737 
062737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
00C503 
033042 
012136 

104406 



104403 
023727 
103402 
004737 



104405 
003114 
000001 
000400 
032610 
000000 
016340 
000002 
100206 



002212 
017272 



MACRO M1200 2? -MAR -84 09:44 



GIG 

PAGE 37-1 



SEQ 0123 



;****** At***** A********* **♦*♦*♦♦♦ + + + **♦*+ **** + * + *** + *i,t + fc4,#*4,^*t4(j»^^ 



032610 

032612 
032612 
032616 



23$: 



MOV 


#104405. T23PK3 


MOV 


FREE.T23WB 


ADD 


<?1,T23WB 


MOV 


#256. .T23SZ 


MOV 


#T23PI<3,R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR!SC!BITliBIT2,R2 


CMP 


R1.R2 


BEQ 


80$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T23TM.PKTSSR 



80$ 



000017 



999$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



FATFLG.#15. 

999$ 

PCCKDROP 



iWRITE DATA, ACK , ILLEGAL BITS 

;SET UP WRITE BUFFER ADDRESS 

iMAKE ADDRESS ODD (ILLEGAL) 

J SET UP BUFFER SIZE 

lR4 • POINTER TO PACKET 

; ISSUE COMMAND 

jUAIT FOR SSR TO SET 

[GET TSSR CONTENTS 

[SET UP EXPECTED 

[ARE THEY EQUAL 

;BR, IF OK ESP. FUNCTION REJECT 

[BUMP COUNT 

[TSSR INCORRECT AFTER WRITE COMMAND 

TRAP C$ERHRO 
. WORD 323 
.i^ORO T23TM 
.WORD PKTSSR 
[LOOP IF SELECTED 

TRAP C$CLP1 
;>>>>>>>>>>>> END SUBTEST >>>>>>■>>>>>> 

L 1004 7: 

TRAP C$ESUa 
ilS ERROR COUNT AT 25 
[BR, IF LESS THAN 25 
[TRY TO DROP THE UNIT 



TSV7 - HARDWrtRE TtSTS I -8 
TEST 3: BASIC WRITE DATA 



MACRO M1200 ?,^ MAR-84 09;44 



HIO 

PAGE 38 



SEQ 0i;^4 



1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1500 
1301 
1302 



1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1322 
1323 



1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1352 
1353 
1354 
1335 
1336 
1340 



031704 
031704 
031704 
031706 
0317:2 
051714 
031720 
031724 
031730 



051734 
051740 
051742 
031746 
031750 
051750 
051752 
051754 
031756 
031760 
031760 
051766 



0317V2 
051776 
052000 
032004 



104402 
005737 
001002 
000137 
004737 
004737 
004737 



003126 

032120 
034002 
054156 
034074 



004757 016064 

105407 

005237 00221^ 

010001 

104455 
000504 
003650 
012124 

013737 002172 
012704 032470 



004737 010752 

103407 

005237 002212 

010001 



032510 



TEST 3. SUBTEST 5 

VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

CAUTION 

The LSI BUS drivers for all available address lmesCl6-21) 
are only checked when running on o 11/238 system with more than 
128K words of memory! 



BGNSUB 



10$: 



TST 


NXMFLG 


BNE 


lOi 


JMP 


901 


JSR 


PC.T23REST 


JSR 


PC.T23RT5 


JSR 


PC,T23RT2 



j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.5i 

TRAP CJBSUB 
J DO WE HAVE IT? 
J BR, IF ENOUGH 
J SKIP THIS TEST IF NOT 
tSET COMMAND PACKET 
iRESTORE PACKET 
;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20$ 



JSR 


PC.SOFINIT 


tOO INITIALIZE ON CONTROLLER 




BCS 


20* 


iBR IF INIT WAS OK 




INC 


FATFLG 


I BUMP COUNT 




MOV 


RO.Rl 


tCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


; FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


524 






.WORD 


SFIEWR 






.WORD 


SFIMSG 



MOV UNITN,1230SW 
MOV *T23PACKET.R4 



(SET DRIVE NUMBER UP 

i SUBROUTINE NEEDS PACKET ADDRESS 



; *** 4*************************************4* ************** ********* 

IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 

* ************************ **A***********4>* ********** *********«4,**4 4, « 

; ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
tBUMP COUNT 
J SAVE CONTENTS OF TSSR 



JSR 


PC. WRTCHR 


BCS 


23* 


INC 


FATFLG 


MOV 


RO.Rl 



TSV7 - HARDWARF TESTS 1 S 
TEST 3; BASIC WRITE DATA 



1341 



1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1352 
1553 
1354 
1355 
1556 
1357 
155S 
1359 
1360 
1361 
1362 
1366 



1367 

1368 
1369 



1370 
1371 
137? 
1373 



032006 
032006 
032010 
032012 
032014 



032016 
032016 
032022 
032030 
032056 
032044 
032052 
032056 
032062 
032066 
032072 
032076 
032100 
032102 
032106 
032106 
032110 
032112 
032114 
032116 
032116 
032120 
032120 
032120 
032120 
032122 
032130 
032132 
032136 



104456 
000505 
005054 
012124 



004737 
012737 
013737 
013737 
012/37 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000506 
033042 
012136 

104406 



104403 
023727 
103402 
004737 



021276 
140005 
003130 
003132 
000100 
032610 
000000 
016340 
000002 
104210 



002212 



002212 
017272 



1 !^ 

HACRO M1200 .'5MAR-84 09:44 PAGE. 58-1 



ERRHRD ERRNO , WRTMSG , SF IMSG 







SEQ 0125 


;WRITE CHARACTERISTIISC FAILED 






TRAP 


CIERHRD 




.WORD 


52="; 




. WORD 


WRTMSG 




.WORD 


SFIMSG 





032610 
032612 
032614 
032616 



WRITE DATA. ACK. CVC-1 

23$: 

J INVERT THE EXTENDED FEATURES SWITCH 
jWRITE DATA, ACK. CVC-1 
;SET UP WRITE BUFFER ADDRESS 
J HIGH ORDER ADDRESS BITS 
iSET UP BUFFER SIZE 
;R4 - POINTER TO PACKET 
; ISSUE COMMAND 
iWAIT rOR SSR TO SET 
iGET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 

BR, IF OK ESP. FUNCTION REJECT 
BI^IP COUNT 
TSSR INCORRECT AFTER WRITE COMMAND 

TRAP CIERHRD 

.WORD 326 
.WORD T23TM 
.WORD PKTSSR 
J LOOP IF SELECTED 

TRAP C$CLP1 



JSR 


PC, INVERT 


MOV 


«140005.T23PK3 


MOV 


NXML0,T23WB 


MOV 


NXMHI,T23We*2 


MOV 


#64. ,T23SZ 


MOV 


#T23PK3.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


*SC!NXM!SSR!BIT3,R2 


CMP 


R1.R2 


BEQ 


80$ 


INC 


FATFLG 



80$ 
90$ 



ERRHRD ERRNO. T25TM, PKTSSR 

CKLOOP 
ENOSUB 



000017 



999$ 



CMP FATFLG, 015, 

BLO 999$ 

JSR PC.CKDROP 



■ >>>>>>>>>>>> END SUBTEST >>>>>>>>■»>>> 

L 10050: 

TRAP C$ESUe 
:IS ERROR COUNT AT 25 
tBR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



rsv: HARDWARE-: Te:sTs i 3 

TE.ST 5: BASIC WRITE DATA 
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SEQ 01^6 



1376 
137: 
137a 
1379 
1360 
1381 
158? 
1583 
1384 
1365 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 



1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1413 
1414 



1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1431 



032136 
032136 
052136 
032140 
032144 
032146 
032152 
032156 
032162 



032166 
032172 
032174 
032200 
U32202 
032202 
032204 
032206 
032210 
032212 
052212 
032220 



104402 
005737 
001002 
000137 
004737 
004737 
004737 



004737 
103407 
005237 
010001 

104455 
000507 
003650 
012124 

013737 
012704 



032224 
032230 
032232 
032236 



004737 
103407 
005237 
010001 



003126 

032432 
034136 
034002 
034074 



016064 
002212 



002172 
032470 



010752 
002212 



032510 



TEST 3. SUBTEST 6 

VERIFIES THAT A WRITE DATA COMMrtND SPECIFYING A DATA 
BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
NONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 

CAUTION 

The LSI BUS drivers for all available address lIncsC16-21) 
are only checked when running on a 11/23B system with more than 
128K woi^ds of memory! 

***4i*jtt4i**4t*4ij4L*4i****«*jtL4i4i4ij|i4i4i4i4i«4,A*********** ******** *************** 



BGNSUB 



10$: 



TST 


NXMFLG 


BNE 


10$ 


JMP 


130i 


JSR 


PC,T23RT3 


JSR 


PC.T23R( ST 


JSR 


PC.T23RV2 



. >>>>i>>>>vv> BEGIN SUBTEST >>>>>>>>>>■•> 

T3.6: 

TRAP C$BSL6 
DO WE HAVE IT? 
BR, IF ENOUGH 
SKIP THIS TEST IF NOT 
RESTORE PACKET 
SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



********************* ******************************************** 
ISSUE CONTROLLER "SOFT" INITIALIZE ■ CARRY BIT CLEAR IF ERROR 

***************************************** ***********«***4i***4***^ 4 



20$: 



JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


iSR IF INIT WAS OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


^CONTENTS or TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


J FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


32 7 






.WORD 


sriERR 






.WORD 


SFIMSG 



MOV UNITN.T23DSU 
MOV *T23PACKET.R4 



J SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



• ****************************************************************** 

i WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 

;*i **************************************************************** 

I ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
I BUMP COUNT 
;SAVE CONTENTS OF TSSR 



JSR 


PC. WRTCHR 


BCS 


23$ 


INC 


FATFLG 


MOV 


RO.Rl 



TSV7 - HARDWARt TESTS 1 ■» 
TEST 3: BASIC WRITE DATA 
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1432 



1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1459 



1460 

1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1473 



1474 
1475 



1476 
1477 
1478 
1479 



032240 
032240 
032242 
032244 
032246 



032250 
052250 
032254 
032262 
032266 
032272 
032276 
032304 
032312 
032316 
032322 
032326 
032332 
032336 
032340 
032342 
032346 
032346 
032350 
032352 
032354 
032356 
032356 
032560 
032364 
032370 
032376 
032402 
032406 
032412 
03243 4 
032416 
032422 
032422 
032424 
032426 
032430 
032432 
032432 
032432 
032432 
032434 
032442 
032444 
032450 



104456 
000510 
005054 
012124 



0C4737 
012737 
013701 
162701 
010137 
013737 
012757 
012704 
010465 
004737 
0165C1 
012702 
020102 
001406 
005237 

104456 
000511 
033042 
012136 

104406 
004737 
004737 
012737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000512 
033116 
012136 



104403 
023727 
10340? 
004737 



021276 
140005 
003130 
001000 
032612 
003132 
000000 
032610 
000000 
016340 
000002 
104P10 



002212 



034074 
034136 
102010 
052600 
000000 
016426 



002212 



002212 
017272 



5EQ 0127 



ERRHRD ERRNG.WRTMSG.SriMSG ;WRITE CHARACTERISTTJC BAILED 

TRAP 
.WORD 
.WORD 
• WORD 

WRITE DATA. ACK.CVC-l 
23$: 



C$ERHRD 
328 

WRThSG 
SFIMSG 



032610 



032614 
032616 



JSR PC. INVERT 

MOV *140005,T23PK3 

MOV NXMLO.Rl 

SUB 01000. Rl 

MOV R1.T23WB 

MOV NXMHI.T23WBf2 

MOV *0. .T23SZ 

MOV «T23PK3.R4 

MOV R4.TS0B(R5) 

JSR PC.WAITF 

MOV TSSRCR5).R1 

MOV *SC ! NXM ! SSR ! BIT3 , R2 

CMP R1.R2 

BEQ 80$ 

INC FATFLG 

ERRHRD ERRNO . T23TM , PKTSSR 



60$: 



032600 



130J: 



EN05UB 



000017 



; INVERT EXT'D FEATURES 

iWRITE DATA. ACK.CVC-1 

iHIGHEST MEMORY ADDRESS LOW BITS 

jSET ADDRESS A LITTLE LOUER 

iLOAO INTO THE PACKET 

;HIGHEST MEM ADDRESS HI BITS 

iSET UP BUFFER SIZE C64K BYTES) 

;R4 ■ POINTER TO PACKET 

; ISSUE C0^t1A^C) 

J WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP :XPFCTEL) 

I ARE THE.' EQUAL. 

iBR. IF OK ESP. F'JNCTION REJECT 

;BUMP COtJNT 

;TSSR INCORRECT AFTER WRITE COMMAND 







TRAP 


CIERHRO 






.WORD 


329 






.WORD 


T23TM 






.WORD 


PKTSSR 


CKLOOP 




I LOOP IF ri.LECTEO 








TRAP 


C$CLP1 


JSR 


PC,T23RT2 


; CLEAN UP PACKET 




JSR 


PC.T23WT5 


jRESTORE PACKET 




MOV 


*102010,T23PK2 


(REWIND (POSITION) COMMAND 




MOV 


*T23PK2,R4 


iLOAD R4 WITH PACKET ADDRESS 




MOV 


R4,TSDB(R5'» 


J ISSUE REWIND COMMAND 




JSR 


PC.CHKTSSR 


tWAIT FOR SSR TO SET 




BCS 


130$ 


I BR, IF TSSR IS OK (KOOO) 




MOV 


RO.Rl 


I SAVE TSSR CONTENTS 




J.NC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRNO , T23RWN . PKTSSR 


;TSSR IS INCORRECT AFTER REWIND 








TRAP 


C$tRHRD 






.WORD 


330 






.WORD 


T23RWN 






.WORD 


PKTSSR 



999$: 



CMP 


FATFLG,*15. 


BLO 


999$ 


JSR 


PC.CKDROP 



;>>>>>>>>>>>> END SUBTEST > 5>> >>>>>>•» > 

L1O051: 

TRAP C$ESUB 

;XS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TSV; - HARDWARt TCSTS 18 
TEST 3: BASIC WRITE DATA 

1480 032450 004757 016546 

1481 032454 103002 

148? 03P456 000137 027426 

1483 032462 

1484 032462 
032462 104452 
032464 001664 



■I . 
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163$: 



JSR PC.TSTLOOP 

BCC 163$ 

JMP T23L00P 

EXIT TST 



SEQ OlkQ 



00 WE NEED TO ITERATE TEST 
m, IF NO LOOP REQUIRED 
EXECUTE AGAIN 



jALL DONE THIS TEST 



TRAP 
.UQRD 



C5EXII 
H0043 



TSV/ - HAPDWARF: TtSTS 1-8 
TtST 3: BASIC WRITE DATA 



MACRO lil^OO y? MAR -84 09:44 



Mi.U 

PAGE 40 



1486 
1487 
1488 
1490 
149? 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1505 
1504 
1505 
1506 
1508 
1^)10 
1511 
1512 
1513 
1514 
1515 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1333 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1S42 
1543 
1544 
1545 
1546 
1547 



032470 
0324 70 
0324 72 
032474 
032476 
032500 
032500 
032502 
032504 
032506 
032510 
032512 



032600 
032600 
032602 
032604 
032606 

032610 
032610 
032612 
032614 
032616 



032622 
032622 
032623 
032624 
032626 



032630 
032632 



032634 
032636 
032640 
032642 



032470 

100004 
032500 
000000 
000010 

032512 
000000 
000012 
000000 
000000 



032600 

100006 
032622 
000000 
000006 



100005 
000000 
000000 
000000 



032620 000000 



010 

200 

000000 

000000 



000000 
000000 



100005 
100405 
102005 
177777 



LOCAL STORAGE TOR THIS TEST 

. ~-< , *l0>ei77770 
T23PACK&T: 

.WORD 100004 

.WORD T23DATA 

. WORD 

.WORD 0. 
T23DATA: 

.WORD r23BFR 

. WORD 

,W0RD 10. 

. WORD 

T23DSW: .WORD 

T23BFR: .BLKW 25, 

WRITE SUBSYSTEM MEMORY COMMAND PACKET 

."<. flO>£l77770 



T23PK2: 



T23PK3: 

T25WB: 

T23S2: 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 

.WORD 
.EVEN 



100006 

T23BF2 



6. 



100005 









T23RSZ: .WORD 



T23BF2 
T23BS0 
T23BS1 
T23S2: 
T23S3I 



3YTE 
BYTE 
WORD 
WORD 



T23TMP: .WORD 
T23WRT; .WORD 



10 
200 










.EVEN 
jTAPE MOTION PACKET COMMAND VALUES 



T23WD: 


.WORD 


100005 


T23WDR: 


.WORD 


100405 


T23C0N: 


.WORD 


102005 




.WORD 


177777 



SEQ 0129 



; COMMAND PACKET FOR TEST 

;WRITL CHARACTERISTICS COMMAND. WITH ACK 

; ADDRESS OF CHARACTERISTICS BLOCK 

J STARTING VALUE OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
; ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 

I SELECT DRIVE 
; MESSAGE BUFFER 



; WRITE SUB SYS MEM COMMAND, AND ACK 
; ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 



; WRITE COMMAND, AND ACK 
I ADDRESS OF WRITE BUFFER 

;SIZE OF BUFFER (EXTENT) 



; LARGEST TAPE RECORD IN BYTES 



iBSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
I DATA AREA 



; TEMPORARY REGISTER 
; RETRY COMMAND 



; WRITE DATA (NEXT) 
(WRITE DATA RETRY 
jUriTE CONTINOUS 
I END OF DATA 



TSV/ - HARDWARE TtSTS 1-8 

TtST 3: BASIC WRITE DATA 

1!349 
1550 
1551 
1552 
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NIC 

PAGt 41 



SEQ 0130 



1553 
1554 
1555 
1d56 
1557 
1558 
1559 
1560 
1561 
1562 
1S63 
1564 
1565 
1566 
1567 
1568 
1569 
15/0 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1563 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 



032644 
032677 
032764 
033042 
033116 
033165 
033240 
033306 
033361 
033450 
033552 
033625 
033677 
033766 



034002 
034002 
054006 
034012 
034016 
054022 
034024 
034030 
054054 
054056 
034042 
054044 
054050 
054054 
034062 
054064 
054070 
034072 



054074 
054074 
054100 
054104 
054110 
C34114 
054116 
034122 
054126 
034130 



127 
105 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
102 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
0057^2 
020227 
001571 
000207 



C12701 
012721 
012721 
005021 
012721 
012701 
005021 
005021 



122 
117 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
141 



111 
124 
111 
123 
167 
115 
123 
151 
123 
125 
105 
102 
111 
163 



0324 70 
100004 
052500 

000012 
032512 

000024 

000000 
000030 
177777 

000000 



032600 
100006 
032622 

000006 
032622 



LOCAL TEXT MESSAGES FOR TEST 



T23SSR: 

T23ET: 

T23E0TJ 

T23TM: 

T23RWN: 

T23RNC: 

T25AM3: 

T230n.: 

T23WD0: 

T25WDC: 

T23VCK: 

T23BA: 

T23WSS: 

TST23IU 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



WRITE Command Not Accepted' 

EOT Not Found In 12000 4k Writes, CUse Shorter Tope)' 

WRITE DATA OVER EOT GAVE NO TAPE STATUS Al ERT' 

TSSR Not Correct After WRITE Command Reject' 

Rewind CPOSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After WRITE Command' 

Drive 7 Select Failed To Set "OFL" In TSSR' 



TSSR Not Correct After 
TSSR Not Correct After 
CVC Set, Didn' ' t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
ASCIZ 'Basic Write' 



t Set' 
For Tape 



WRITE DATA Command, SWB 8 

WRITE DATA Command. Check 

VCK In Message Buffer' 

WRITE DATA Command' 

Command Not Accepted (RAM Read) 



Offline 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T23REST: 



032512 64$: 



T23RT2: 



SAVREG 

MOV *T23PACKET,R1 

MOV #100004. (RD* 

MOV *T23DATA.(R1)* 

CLR CRl)^ 

MOV #10. ,(R1)» 

MOV #T23BFR,(R1)* 

CLR (RD* 

MOV #20. ,(Rl)f 

CLR (RD* 

MOV #0.(R1) 

MOV #24., R2 

MOV #177777. T23BFR(R2) 

TST (R?) 

CMP R2.#0 

BNE 64 $ 

RTS PC 



SAVREG 

MOV #T23PK2,R1 

MOV #100006. (Rl)» 

MOV #T23BF2,CRl)f 

CLR CRD* 

MOV #6. ,(R1)* 

MOV #T23BF2,R1 

CLR (Rl)» 

CLR (RD* 



SAVE THE REGISTERS 

START OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK 

ADDRESS OF CHARAISTICS DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 

ADDRESS OF MESSAGE BUF*^ER 

LENGTH OF MESSAGE BUFFER 

1 SELECT DRIVE ZERO 

i NUMBER OF LOCATlONf TO BE CLEARED 

iALL ONES TO MESSAGE BUFFER 

I BUMP DOWN TO NEXT LOCATION 

;R2 AT ZERO YET 

jKEEP GOING UNTIL DONE 

j:^ETURN 



;SAVE THE REGISTERS 

t START OF THE PACKET 

; WRITE SUBSYSTEM MEM. WITH ACK 

J ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

J SIZE OF DATA BLOCK IN BYTES 

i POINT TO DATA SEL AREA 



TSV.* 



V'l 1 



HAROWrtRL TKSTS 1 ^ 
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TtST 5: BASIC WRIT^ DATA 



160tj 
160^ 
1606 
1609 
1610 
1611 
U.V 

lbl4 
161S 
1616 
161.' 
1618 
161^* 
16?0 
16cU 
16cV 
1625 
1624 
1625 
1626 
1627 
1626 
1629 
1650 
1651 
1652 
1655 
1654 
1655 
1656 
1657 
1656 
1659 
1640 
1641 
1642 
1645 
1644 
1645 
1646 
1647 
1646 
1649 
1650 
1651 
1652 
1655 
1654 
1655 
1656 
1660 
1661 



054152 
054154 
054156 
054156 
054142 
054146 
054152 
054154 
C54156 
054160 



054162 
054162 
054166 
054172 
054176 
054200 
054204 
054210 
054212 
054214 
054220 
054222 
054224 

054226 
054226 
054252 
054240 
054246 
054252 
054254 
054260 
054264 
054270 
054274 
054500 
054504 
054506 
054510 
054514 
054522 
054524 
054550 
054554 
054554 
054556 
054 540 
034342 



005011 
000207 



012701 
012721 
005021 
005021 
005011 
000207 



005057 
052701 
001452 
015702 
052702 
001401 
000405 
052702 
001002 
000440 
000207 



012705 
015757 
012757 
012704 
010500 
004757 
010557 
010465 
004757 
016'>01 
012702 
020102 
001746 
005257 
022757 
001541 
005237 
015702 

104456 
000515 
0052 /6 
01^200 



052610 
100005 



032630 
100000 

052522 
000002 



020000 



000024 
005114 
052653 
052610 

017512 
052616 
000000 
016540 
000002 
000200 



052650 
C00005 

002212 
032512 



StO 0151 



T23Rr3! 



CLR 


(Rl) 


RTS 


PC 


SAVRKG 




MOV 


0T23PK5.R1 


Mnv 


#100005, (Rl). 


ClR 


(RIU 


CLR 


(RD* 


CLR 


(Rl) 



RTfi 



PC 



ROUTINL TO RETRY WRITF 
5.SLIBTE5^T 2 6 5 



iReTUHN 

iSAVt THt RtGI'iTER'. 
I START or THF PACKh T 
I WRITE TAPE. WITH ACK 
I ADDRESS Of DATA Bl OCI' 
I EXTENDED AODRF^'. 
iSI/E Oh DATA BLOCK 
I RE TURN 



DATA IN CASE OF BAD TAPE EUR TEST 



INPUTS: 



T25CHK: 



052612 
032610 



It 



EXIT: 

RETRY: 
2$! 



032630 



FATAL i 



SAVREG 

CLR 

BIT 

BEQ 

MOV 

BIT 

BEQ 

BR 

BIT 

BNE 

BR 

RTS 



MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
B£Q 
INC 
CMP 
BNE 
INC 
MOV 
ERRHRO 



Rl-TSSR 

SUBROUTINE SETS UP T23WRT FOR RETRr 



T25TMP 
•SC.Rl 
FATAL 

T25BFR.10.R2 
OXI .l»«:.R2 

II 

RETRY 

•Xl.C0R.R2 
RETRY 

FATAL 
PC 



♦20. .R5 

FREE.T23we 

#T23URT,T25PK5 

#T25PK5,R4 

R5.R0 

PC.FILLMEM 

R3, 12352 

R4,TS0fl(R5) 

PC.WAITF 

TSSR(R5),R1 

♦SSR,R2 

Rl,R2 

EXIT 

T25TMP 

*5.T25TMP 

21 

FATFLG 

T25BFR.R2 

ERRNOiSCHERR.PKTMES 



SAVE THE REGISTERS 

CLEAR LOCAL REGISTER 

IS SC SET IN TSSP? 

NO. YOU GOT PROBLEMS! 

YES, GET XSTATl 

IS UNC SET IN XSTATl? 

NO. CHECK COR 

YES, DO WRITE DATA RETRY 

IS COP SET IN XSTATl THEN? 

YES SO RETRY 

NO, YOU GOT PROBLEMS 

RETURN 



STARTING RECOftD SI/E 

STARTING WRITE BUFFER ADDRESS 

WRITE DATA RETRY COMMAND SETUP BT SUBROUTINE 

SET UP R4 WITH PACKET ADDRESS 

SET PATTERN IN CORRECT REGISTER 

FILL MEMORY WITH RECORD SUE 

SET UP RECORD SI/E IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

TRY FIVE TIMES THEN EXIT 

DONE FIVE YET7 

NO GO AGAIN 

BUMP COUNT 

LOW ORDER MSGBUF 

TSSR INCORRECT AFT&R WRITE DATA 

TRAP CIERHRD 
.WORD 551 
.WORD SCHtMR 
.WORD PKTMES 



ISV ■ f-'Ar*[)wAHf T( SIS I 8 
TEST 3: BASIC WRITf DATA 

166? 054344 004 757 Ol7i?7c' 
1663 034 350 

034 3 SO 

0343bO 104401 



MACRO Hlt>00 ,^^ HAR 84 0'>!44 PAtif 41 c? 

J'M PC.CKOROP 

tNDTSr 



'.fCj 01 V 



I DROP THt UNIT 



H0O43; 



TRAP 



CJ^-T',r 



TSV7 HARDWARE TLSIS I 8 MACRO MIPOO .'^ MAR -84 09;44 
TtST 4: BASIC RtAD DATA (fORWAHt) AND RKVhRSt) 



I) i 1. 

PAGf. 4? 



-.?rj 015? 



1665 

166 7 

1668 
1669 

1670 

i6ri 

lb73 
1674 
1675 
1676 
16"' 7 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 

1686 
1687 
1688 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1705 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 



1715 
1716 

1717 
1718 
1719 
1720 
1721 
1722 



054352 
034552 
034352 
034360 
054364 
034370 
034374 
034400 
034404 



034412 
034412 
034412 
034412 
034414 
034420 
034424 
034430 



012737 
005037 
004737 
012700 
004737 
00*; 73? 
012/37 



006350 002170 

003124 

017364 

046232 

016600 

021566 

000005 002206 



104402 
004737 
004737 
004737 
012737 



046300 
046434 

046372 

176750 043766 



.SBTTL TEST 4: BASIC RtAD DATA (FORWARD AND REVERGt ) 

THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND FVFN 
DATA BUFFER OOUNOARIES. RECORD SIZES (UP TO 64K STIES IF MEMOflr 
SPACE IS AVAILIABLE). AND BYTE -SWAP CONTROL ARE USED. THIS TEST 
OF COURSE. FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLr 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG. RECORD LEN(;rH SHORT, READ REVERSE AT BOT . ILLEGAL DATA 
BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD UF THE BASIC 
READ COMMAND. AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 

THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 



i ' 



BGNTST 



MOV 


OEPRTl.EPRTSW 


CLR 


KTENABLE 


JSR 


PC.KTOFF 


MOV 


*TST24I0.R0 


JSR 


PC.T5TSETUP 


JSR 


PC.MEMCK 


MOV 


*5,L00PCNT 



T4: : 
I SET UP PRIMARY ERROR MESSAGE 
(TURN OFF KTll 
jTURN KTll OfF 

I ASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
I CHECK FOR MEMORY 
(PERFORM 5 ITERATIONS 



TEST 4. SUBTEST 1 



VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 
VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
VOLUME CHECK (VCK) IS SET. ALL LEGAL 
COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED 
(I.E.. IT IS VERIFIED THAT THE COMMAND IS REJECTED 
DUE TO VCK BEING SET RATHER? THAN ERRONEOUS DECODING 
or THE MODE FIELD. 



( - 

T24LG0PI 



BGNSUB 



JSR 
JSR 
JSR 
MOV 



PC,T24REST 
PC.T24RT3 
PC.T24RT2 
♦65000.. T24DLY 



j>>>>^>>>>>>> BEGIN SUBTEST ■>>>>>>>>>>>> 

T4.1: 

TRAP CJBSUB 
I SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
iLOAD UP DELAY ROUTINE 



I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



TSV7 - HrtRDUAHE TESTS 1-6 

TEST 4: BASIC READ DATA (fORWARO AND REVERSE) 



r i 1 

MACRO M1?00 ::'?-MAR-a4 09:44 PAGE 4? 1 



'dEQ 0154 



1725 
1724 
1725 
1726 
1727 
1728 



1729 
1730 
1731 

1735 
1736 



1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1753 
1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1769 



034436 
034442 
054444 
034444 
034450 
034452 
034456 
034460 
034464 
034466 
034472 
034474 
034500 
034502 
034506 
034510 
034510 
034512 
034514 
034516 
034520 
034520 
034526 



034532 
034536 
034540 
054544 
054546 
034546 
034550 
034552 
054554 
034556 
034562 

034564 
054572 
054600 
054604 
034610 
034614 
054616 
054620 
054624 
034624 
034626 
034630 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000621 
003650 
012124 

012737 
012704 



004737 
105407 
005257 
010001 

104456 
000622 
005054 
012124 
005757 
001044 

1^ .*57 
li2757 
012704 
010465 
004737 
105407 
010001 
005237 

104456 
000623 
044507 



016064 

000250 
002116 
177772 
177756 
043766 
002212 



010752 
002212 



002212 



5%: 



000007 043640 
043620 



20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


jBR IF INIT WAS OK 






DELAY 


250 


I DELAY AWHILE 


MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


#250.(PC)» 



LJDL f.CPO- 



-6CPC) 

. -4 

-22CPC) 

. -20 


DEC 


T24DLY 


I BUMP DELAY COUNTER 






BNE 


5$ 


iBR. IF MORE DELAY REQUIRED 




INC 


FATFI.G 


;BUMP COUNT 






MOV 


RO.Rl 


;CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO. SFIERR , SFIMSG 


; FATAL ERROR TSSR WAS 


NOT OK 
TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
401 

SFIERR 
SFIMSG 



MOV *7,T240SW 
MOV #T24PACKET.R4 



:SET DRIVE NUMBER IN PACKET 

i SUBROUTINE NEEDS PACKET ADDRESS 



002216 



000200 043751 
000010 043750 
043730 
000000 
016426 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

I ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
J BUMP CO*^T 

jSAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
24*j TST EXTFEA iCHECK FOR EXTENDED FEATURES SW SWITCH 

iBR IF SWITCH IS ON 



JSR 


PC. WRTCHR 


BCS 


24$ 


INC 


FATFLG 


MOV 


RO.Rl 



ERRHRD ERRNO , WRTMSG . SFIMSG 



CiERHRD 
402 
WRTMSG 
SFIMSG 



TST 


EXTFEA 


BNE 


50$ 


MOVB 


0200,T24BS1 


MOVB 


*10,T24BS0 


MOV 


#T24PK2.R4 


MOV 


R4,TSDB(R5) 


JSR 


PCCHKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


INC 


FATFLG 



ERRHRD EHRN0.T24SSR.PKTSSR 



I WRITE MISCELLANEOUS CONT/REAO STATUS 

jFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

I WRITE SUBSYS MEM PACKET 

(ISSUE COMMAND 

I WAIT FOR SSR 

(BR. IF NO ERROR 

jERROn, SAVE TSSR 

(BUMP COUNT 

;TSSR NOT CORRECT AFTER WRT . MISCELLANEOUS 

TRAP C$ERHRD 
. WORD 403 
. WORD T24SSR 



TSV7 - HARDWARE 


TESTS 1 


-6 


TfcST 4 


BASIC 


READ DATA CFORW 




034632 


012136 




1770 


034634 








034634 


104406 




1771 


034636 


012737 


000007 


1772 


034644 


012704 


043620 


1773 








1774 








1775 








1776 








1777 








1778 








1779 








1780 


034650 


004737 


010752 


1781 


034654 


103407 




1782 


034656 


005237 


002212 


1786 


034662 


010001 




1767 


034664 








034664 


104456 






054666 


000624 






054670 


005054 






034672 


012124 




1788 


054674 








054674 


104406 




1V89 


054676 


016501 


000002 


1790 


034702 


032701 


000100 


1791 


034706 


001006 




1792 


034710 


005237 


002212 


1796 


034714 








034714 


104455 






034716 


000625 






054720 


045265 






054722 


012124 




1797 


054724 








054724 


104406 




1798 


054726 


012703 


045756 


1799 








1800 








1801 








1602 








1803 








1804 








1805 








1806 


054752 


011537 


043740 


1807 


034756 


012704 


043740 


1808 


054742 


010465 


000000 


1809 


054746 


004737 


016540 


1810 


054752 


016501 


000002 


1811 


034756 


012702 


100306 


1812 


054762 


020102 




1813 


054764 


001406 




1614 


054766 


005237 


002212 


1318 


034772 








054772 


104456 






054774 


000626 






054776 


045023 






035000 


012136 




1619 


035002 







MACRO M1200 c*5-MAR-64 09:44 



F i i. 

PAGE 42 2 



043640 



30$: 



CKLOOP 

MOV 
MOV 



fl7.T24DSU 
V/T24PACKET.R4 



.WORD 
iLOOP ir SELECTED 

TRAP 
;SET DRIVE NUMBER IN PACKET 
i SUBROUTINE NEEDS PACKET ADDRE:^S 



PKTS5R 
C$CLP1 



WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 

AA A A^AJ^A^AA + A + ^L 4(4 44*4i**4i**4t***4t*'f*4'4t4>4iittif ********* «**««*«* «•«««**«* 



50$ 



60$ 



JSR 


PC, WRTCHR 


I ISSUE WRITE CHARACTERISTICS 




BCS 


50$ 


;BR. IF COMMAND ISSUED OK 




INC 


FATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


sSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


iWRITE CHARACTERISTISC FAILED 








TRAP 


C$ERHRD 






.WORD 


404 






.WORD 


WRTM5G 






.WORD 


SFIMSG 


CKLOOP 




; SCOPE LOOP 








TRAP 


C$CLP1 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




BIT 


*0FL.R1 


;CHECK FOR THE OFFLINE BIT SET 




6NE 


60$ 


jBR. IF OFFLINE CGOOD) 




INC 


FATFLG 


I SUMP COUNT 




ERRDF 


ERRNO. T240FL , SFIMSG 


;OFF LINE SHOULD HAVE BEEN SET 


(BAD) 






TRAP 


C$EROF 






.WORD 


405 






.WORD 


T240rL 






.WORD 


SFIMSG 



CKLOOP 
MOV 



(LOOP IF SELECTED 

; POINTER FOR COMMANDS 



TRAP 



C$CLP1 



#T24RN.R3 

I TAPE READ COMMAND IN PLACE 

* 

• **4i*«*««**«*ik*******4>******«A*4i44«4i** A A.^4*«*4>**4.*«4i ******** ******* 

65$: MOV CR5).T24PK5 (TAPE READ COMMAND IN PLACE 

|R4 - POINTER TO PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
?.R2 I SET UP EXPECTED 
(ARE THEY EQUAL 

tBR. IF OK ESP. FUNCTION REJECT 
I BUMP COUNT 
;TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP C5FRHR0 
. WORD 406 
.WORD T24TM 
.WORD PKTSSR 
iLOOP IF SELECTED 



MOV 


CR5).T24PK5 


MOV 


#T24PK5.R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


#SSR!SC!0FL»BIT1!B 


CMP 


R1,R2 


BEQ 


80$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T24TM, PKTSSR 



SEQ 0135 



80$: 



CKLOOP 



i:^. L .1. 

TSV7 - HARDWARE TESTS 1-3 MACRO M1?00 ?.7^ MAR -84 09:44 PAGE 42 3 
TEST 4: BASIC READ DATA CrORWARD AND REVFRSE) 



035002 
18^0 055004 

1821 035006 022715 

1822 035012 001401 

1823 035014 

1824 035016 

1825 035016 
035016 
035016 

1826 035020 023727 

1827 035026 103402 

1828 035050 004737 

1829 035034 



104406 
005723 



000746 



104403 



177777 



90S: 



002212 000017 
017272 



999$: 



TST 
CHP 
BEQ 
BR 

ENOSUB 



CMP 
Bl.O 
JSR 



(R3)* 

^177777. (R3) 
90$ 
65$ 



rATFLG.^15 

999$ 

PCCKDROP 



TRAP 



C$CLP1 



BUMP TO NEXT COMMAND 
END OF THE COMMANDS tET 
BR. IF DONE 
MORE COMMANDCS) TO GO 

;>>>>>>>>>>>> END SUBTEST >^>>->>>>^>>> 

L 10053: 

TRAP CJESUB 

IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



SEQ 0136 



i-i 1 L 

TSVr ■ hardware: tests L y macro N1?00 ;^? mar -84 09:44 PAGt 43 
TtST 4; BASIC READ DATA (FORWARD AND REVtRSE) 



SEO 0157 



1851 
18?^ 
1833 
1834 
1835 
1836 
1657 

1839 
1640 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 



1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1853 
1859 
1360 
1861 
1865 
1866 



1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1883 
1884 



035034 
035034 
035034 
035036 
035042 
035046 



035052 
035056 
035060 
035064 
035066 
035066 
035070 
035072 
035074 
035076 
035076 
035104 



035110 
035114 
035116 
035122 
035124 
035124 
035126 
035130 



104402 

004737 046434 

004737 046300 

004737 046372 



004737 016064 

103407 

005237 002212 

010001 

104455 
000627 
003650 
012124 

013737 002172 043640 
012704 043620 



004737 010752 

105407 

005237 002212 

010001 

104456 
000630 
005054 



TEST 4. SUBTEST 2 

VERIFIES THAT READ FORWARD COMMANDS WITH SW8-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
(STATUS. DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



J ^>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.2: 

TRAP C$BSUe 
;SET UP OTHER COMMAND PACKET 
iSET COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 



! ISSUE CONTROLLER "SOFT" INITIALIZE - L-^^RY lilT CLEAR IF ERROR 
* 



20$: 



JSR 


PC.SOriNIT 


I DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


;BR IF INIT WAS OK 




INC 


FATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


; FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


407 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T24DSW 
MOV #T24PACK!£T.R4 



tSET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



JSR PC. WRTCHR 

BCS 2'»$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
iBUMP COUNT 

tSAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 



CiERHRO 

408 

WRTMSG 



]■ 1 1. 

TSVr - HARDWARf-: TESTS 1-8 MACRO M1200 ;r5-MAR-84 09:44 PAGE 43-1 
TtST 4: BASIC READ DATA f FORWARD AND REVERSE) 

012124 



035132 
1885 035154 

035134 
1886 
1887 
1886 
1389 
1<?90 
1891 
1892 

1893 035136 

1894 055142 

1895 035144 

1896 035146 

1900 035152 
035152 
035154 
035156 
035160 

1901 035162 
035162 

1902 
1905 
1904 
1905 
1906 
1907 
1908 

1909 035164 

1910 035170 

1911 035172 

1912 035176 

1913 035200 

1914 035202 

1918 035206 
035206 
035210 
035212 
035214 

1919 035216 
035216 

1920 035220 

1921 035224 
1922 

1923 
1924 
1925 
1926 
1927 
1928 

1929 035232 

1930 035240 
1951 035244 

1932 035244 

1933 035246 

1934 035252 

1935 035256 



104406 



004737 
103407 
010001 
005237 

104456 
00C631 
045076 
012136 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000632 
044613 
015564 

104406 
012703 
013737 



012737 
012704 

010300 
004737 
010337 
010465 



011104 
002212 



043650 
000002 

002212 



000400 
003114 



24$: 



140005 
043740 



017512 
045746 
000000 



043742 



043740 



CKLOOP 



jLOOP IF SELECTED 



.WORD 
TRAP 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



30*: 



CKLOOP 



;LOOP IF SELECTED 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

IPICK UP XSTO 

iSET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
(DOES EXP - REC'D 
BR. IF EQUAL (OK) 
BLflP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP ;LOOP IF SELECTED 

TRAP 
I RECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


^IT1.R2 


CMP 


R1.R2 


BEQ 


40i 


INC 


FATFLG 


ERRHRD 


ERRN0.T24B0T,EXPREC 



CKLOOP 

MOV 
MOV 



#256. ,R3 
FREE,T24RB 



WRITE DATA.CVC-l.ACK C0.1MAND 



65$: 



MOV *140005,T24PI<3 

MOV #T24PK3»R4 

MOV R3.R0 

JSR PC. FILLMEM 

MOV R3.T24SZ 

MOV R4,TSDBCR5) 



SFIMSG 
C$CLP1 



JSR 


PC. REWIND 


CALL TAPE REWIND COMMAND 




BCS 


30$ 


BR. IF NO PROBLEM 




MOV 


RO.Rl 


SAVE TSSR 




INC 


FATFLG 


BUMP COUNT 




ERRHRD 


ERRN0.T24RWN,PKTSSR 


REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


409 






.WORD 


T24RWN 






.WORD 


PKTSSR 



C$CLP1 



CIERHRO 
410 
T24B0T 
EXPREC 

C$CLP1 



;WRITE DATA.CVC-l.ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

J SET PATTERN IN CORRECT REGISTER 
(FILL MEMORY WITH RECORD SIZE 
(SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 



SEQ 0158 



TSvr - HARDWARE TESTS 1-8 MACRO 
TEST 4: BASIC READ DATA (F'ORWARD AND 



1956 


035262 


004 757 


016340 


1937 


035266 


016501 


000002 


1938 


035272 


012702 


000200 


1939 


035276 


020102 




1940 


035300 


001406 




1941 


035302 


005237 


002212 


1945 


035306 








035306 


104456 






035310 


000633 






035312 


005111 






035314 


012136 




1946 


035316 








035316 


104406 




1947 


035320 


005723 




1948 


035322 


022703 


000414 


1949 


035326 


001346 




1950 


035330 








035330 


104406 




1951 


035332 






1952 








1953 








1954 








1955 








1956 








1957 








1958 








1959 


035332 


004737 


011104 


1960 


035336 


004737 


016426 


1961 


035342 


103407 




1962 


035344 


010001 




1963 


035546 


005257 


002212 


1967 


035352 








035352 


104456 






035354 


000654 






035356 


045076 






035360 


012156 




1968 


035362 








035362 


104406 




1969 








1970 








1971 








1972 








1973 








1974 








1975 








1976 


035364 


015701 


043650 


1977 


035370 


010102 




1978 


035572 


052702 


000002 


1979 


035376 


020102 




1980 


055400 


001406 




1981 


055402 


005237 


002212 


1985 


035406 








055406 


104456 






055410 


000655 






035412 


044613 






035414 


015564 




1986 


035416 











J\ I 








M1200 23 


'MAR -84 


09:44 PAGE 43-2 








REVERSE) 














JSR 


PC.WAITF 




iWAIT rOR SSR TO SET 






MOV 


TSSR(n5),Rl 




jGET TSSR CONTENTS 






MOV 


V?5SR.R2 




;SfcT UP EXPECTED 






CMP 


R1.R2 




I ARE THEt equal 






BEQ 


75$ 




jBR» IF OK 






INC 


FATFLG 




;BUMP COUNT 






ERRHRD 


ERRNO.WRTERR.PKTSSR 


:TSSR INCORRECT AFTER WRITE DATA 










TRAP 


CJERHRD 










.WORD 


411 










.WORD 


WRTERR 










.WORD 


PKTSSR 


75$: 


CKLOOP 






;LOOP IF SELECTED 

TRAP 


C$CLP1 




TST 


(R3)* 


;BUMP 


RECORD SIZE 






CMP 


«268. .R3 




J END OF RECORD YET 






BNE 


65$ 




;BR, IF MORE RECORDS TO WRITE 




80$: 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


CJCLPl 



120$: 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR 


PC. REWIND 


JSR 


PC.CHKTSSR 


BCS 


150$ 


MOV 


RO.Rl 


INC 


FATFLG 


ERRHRD 


ERRN0,T24RWN. PKTSSR 



130$ 



CKLOOP 



CALL TAPE REWIND COMMAND 




SEE HOW TSSR IS 




BR. IF NO PROBLEM 




SAVE TSSR 




BUMP COUNT 




REWIND NOT ACCEPTED 




TRAP 


CiERHRD 


-WORD 


412 


.WORD 


T24RWN 


.WORD 


PKTSSR 



;LOOP IF SELECTED 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

iPICK UP XSTO 
(SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
;DOES EXP - REC'D 
I BR, IF EQUAL (OK) 
(BLWP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 



MOV 


T24BFRf6.Rl 


MOV 


R1.R2 


BIS 


*BIT1,R2 


CMP 


R1.R2 


6EQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO . T24B0T . EXPREC 



C$CLP1 



140$: CKLOOP 



C$ERHRD 
415 
T24B0T 
EXPREC 



SEQ 0159 



Kll. 

TSV7 - HARDWARE TESTS 1-8 MACRO H1?00 .V^-MAR-SA 09:44 PAGE 43-3 
TtSI 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 0140 



1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
^001 
2002 
2003 
2004 
2005 
2009 



2010 

2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2023 



2024 

2025 
2026 
2027 
2028 
2C29 
2030 
2031 
2032 

2033 



2034 
a035 



035416 
035420 
035424 



035432 
035440 
035444 
035450 
035454 
035460 
035464 
035470 
035472 
035474 
035500 
035500 
035502 
035504 
035506 
035510 
035510 
035512 
035516 
035520 
035524 
035526 
035530 
035532 
035534 
035536 
035542 
C35542 
035544 
035546 
035550 
035552 
035552 
035554 
035556 
035560 
035562 
035564 
035566 
035572 
035574 
035574 
0355/6 
035576 
035576 
035600 
035606 



104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000636 
005204 
012136 

1O1406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 

104456 
000637 
044660 
015564 

104406 
005724 
160204 
020403 
001360 
005723 
022703 
001322 

104406 



104403 
023727 
103402 



000400 

003114 043742 



HOV .'^256. .R3 
MOV FREE,T24Re 



TRAP 

; RECORD SIZE 

I STARTING READ BUFFER ADDRESS 



C$CLP1 



READ DATA.CVC = l.ACi< COMMAND 



140001 043740 

043740 

043746 

000000 

016340 

000002 

000200 



002212 



165$ 



MOV 


<>140001.T24PI<3 


MOV 


«T24Pi<3.R4 


MOV 


R3.T24SZ 


HOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


«SSR,R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 


ERRHRD 


ERRNO.RDERR.PKTSSR 



003114 
000400 



170$ 



173$: 



CKLOOP 



002212 



180$ 



CKLOOP 



000412 



190$ 



002212 000017 



ENDSUB 



CMP 
BLO 



READ DATA.CVC-l.ACK COMMAND 

SET IP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 
tSET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

BUMP COUNT 

jTSSR INCORRECT AFTER READ DATA 

TRAP 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
414 
RDERR 
PKTSSR 



MOV 


FREE.R2 ; 


MOV 


R3.R4 J 


SUB 


*256.,R4 i 


ADD 


R2.R4 . 


CMP 


CR4),R3 ; 


BEQ 


180$ 1 


MOV 


CR4).R1 I 


MOV 


R3,R2 ; 


INC 


FATFLG ; 


ERRHRD 


ERRN0,T24DTA,EXPREC ; 



C$CLP1 



GET BUFFER ADDRESS 

CURRENT RECORD SIZE 

FIRST LOCATION IN BUFFER 

GET LOCATION IN BUFFER (ADDRESS) 

CHECK DATA READ (R3«DATA ALSO) 

iBR. IF ALL IS WELL 

jRECD DATA 
EXPECTED DATA 
BUMP COUNT 
DATA READ NOT =• WRITTEN 

TRAP 



jLOOP IF SELECTED 



.WORD 
.WORD 

.WORD 

TRAP 



TST 


(R4)f 


sue 


R2.R4 


CMP 


R4,R3 


BNE 


173$ 


TST 


(R3)* 


CMP 


*266. .R3 


BNE 


165$ 


CKLOOP 





C$ERHRD 
415 
T240TA 
EXPREC 

C$CLP1 



FATFLG, ^>15. 
999$ 



[BUMP TO NEXT LOCATION 
J GET BACK TO CORRECT SIZE 
END OF RECORD TET 
BR, IF NOT AT END OF RECORD 
BUMP RECORD SIZE 
END OF RECORD YET 
iBR, IF MORE RECORDS TO WRITE 
iLOOP IF SELECTED 

TRAP C$CLP1 
;>>>>>>>>>>>> END SUBTEST >>>>>>>^>>^> 

LI 0054: 

TRAP C$ESUB 
ilS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 



L 1. !. 

TSV.' - HARDWAfU: VESTS 18 MACRO H1?00 ?'■ MAR 84 0^:44 PAGt 43 4 
TtST 4: BASIC WtAD OATA (fORWARD AND REVt'RSE) 

JSR PC.CKDROP 



SEQ 0141 



.?0?t 03!S610 004 73V 017272 
20?7 035614 



999$: 



iTRf TO DROP THt UNIT 



TSV7 - hARDWARL. TtSTS 1-8 

TEST 4: BASIC READ DATA (fORWARD AND REVERSE) 



Ml i. 

MACRO Ni.?00 ;-'?-HAR-84 09:44 PAGE 44 



SEQ 014;^ 



^0?9 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 

2051 035614 
035614 
035614 

2052 035616 

2053 035622 

2054 035626 
2055 

2056 
2057 
2058 
2059 
2060 
2061 

2062 035632 

2063 035636 

2064 035640 

2068 035644 

2069 035646 
035646 
035650 
035652 
035654 

2070 035656 

2071 035656 

2072 035664 
2073 

2074 

2075 

20 76 

2077 

2078 

2079 

2080 035670 

2061 035674 

2082 035676 

2086 035702 

2087 035704 
035704 
035706 
035710 
035712 

2088 035714 
035714 

2089 

ao9o 



>2 

004737 
004737 
004737 



004737 
103407 
005237 
010001 

104455 
000640 
003650 
012124 

013737 
012704 



004737 
103407 
005237 
010001 

104456 
000641 
005054 
012124 

104406 



046434 
046300 
046372 



016064 
002212 



002172 
043620 



043640 



010752 
002212 



TEST 4, SUBTEST 3 

VERIFIES THAT READ DATA COMMANDS WITH CVC'l AND THE 
SWAP BYTES CSWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 
PC,T24REST 

PC.T24RT2 



■ >>>>>>>>>>>> BEGIN SUBTEST i->>>>>^ >>■•>> 

T-;.3: 

TRAP C$BSUB 
I SET UP OTHER COMMAND PACKET 
iSET COMMANJ PAi^KET 
:SET UP OTh.=^R COMMAND PACKET 



4 + «««<^4>*4>***«******<)i*4i4L4^**'f4'*4L*%4.4>*4***4i«***i4^4i«*4i4>'f*«i*4i4iii«4i*Ai>>4t4i«4 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR 
BCS 
INC 
MOV 
ERRDF 



. C.SOFINIT 

20* 

FATFLG 

RO.Rl 

ERRNO.SFIERR.SFIMSG 



20S 



MOV 
MOV 



UNITN,T240SW 

#T24PACKET.R4 



DO INITIALIZE ON CONTROLLER 
BR IF INIT WAS UK 
BUMP COUNT 

^CONTENTS OF TSSR REGISTER 
i FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

;SET DRIVE NUMBER IN PACKET 

i SUBROUTINE NEEDS PACKET ADDRESS 



CJtIRDF 
416 
SFIEHR 
SFIMSG 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



JSR 


PC. WRTCHR 


; ISSUE WRITE CHARACTERISTICS 




BCS 


24 J 


J BR. IF COMMAND ISSUED OK 




INC 


KATFLG 


jBUMP COUNT 




MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO , WRTMSG , SFIMSG 


(WRITE CHARACTERISTISC FAIL£D 








TRAP 


C$[ *mRD 






.WORD 


41 / 






.WORD 


WW I MSG 






.WORD 


SF IMSG 


CKLOOP 




{LOOP IF SELECTED 

TRAP 


CJCLPl 



24$ 



{**4L4i**4'4<**4'*>ti* + *4>**4>*Y + **>f*4t** >*************<***.> ****************** 



TSV/ - HARDWARE- 


THSTS 1 


8 


TEST 4 


BASIC 


READ DATA Cf'ORW 


209: 








2092 








2095 








2094 








2095 








2096 


035716 


004737 


011104 


209 7 


035722 


103407 




2093 


035724 


010001 




2099 


035726 


005237 


002212 


2103 


035732 








035732 


104456 






035734 


000642 






035730 


045076 






035740 


012i:-S6 




2104 


035742 








035742 


104406 




2105 








2106 








2107 








2108 








2109 








2110 








2111 








2113 


035744 


013701 


043650 


2113 


035750 


010102 




2114 


035752 


052702 


000002 


2115 


035756 


020102 




2116 


035760 


001406 




2117 


035762 


005237 


002212 


2121 


035766 








035766 


104456 






035770 


000643 






035772 


044613 






035774 


015564 




2122 


035776 








035776 


104406 




2123 


036000 


012703 


000400 


2124 


036004 


013737 


003114 


2125 








2126 








2127 








2128 








2129 








2130 








2131 








2132 


036012 


012737 


150005 


2133 


036020 


012704 


043740 


2XM 


036024 






2135 


056024 


010300 




2156 


036026 


004737 


017512 


2137 


036032 


010337 


043746 


2138 


036036 


010465 


000000 


2139 


036042 


004737 


016340 


2140 


036046 


016501 


000002 


2141 


0?6052 


012702 


000200 


2142 


036056 


020102 




2143 


036060 


001406 





N 1 1 

MACRO M1200 2?"riAR-84 09:44 PAGE 44 1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

JSR PC. REWIND 

BCS 30$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO , T24RWN , PKTSiiR 



043742 



043740 



30$: 



CKLOOP 



Llou IF SELECTED 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

*.*.AA**iA*^*>*AAAAAAAAAAAAAAAAAAAA*.AAA*.AA4^.\A*.AAAA*i.AAAAA***.A*.*.*.*A*'t^*A 

iPICK UP XSTO 

J SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;DOES EXP » REC'D 
;BR. IF EQUAL (OK) 
iBUHP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40?: CKLOOP jLOOP IF SELECTED 

TRAP 
J RECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



MOV 


T24BFR»6.R1 


MOV 


R1.R2 


BIS 


*BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T24B0T . EXPREC 



CKLOOP 

MOV 
MOV 



*256. .R3 
FREE.T24RB 



*AAA^*iA**.A***>*AA*^A***.AAA*4^*4^ik***.4tAAA*<AAAAAAAAAA*^Ai^AA*-AA^A4^AA**-*<-'^* 

WRITE DATA,ACK,SWB,CVC-1 COMMAND 

***AA^^A*^*A*.4^A****A**A*^^*.A**¥A<¥.*^A*.>^*-^i^*-**AAAA*A*>.AA**^A*^**AAA***^A* 



SEQ 0143 



CALL TAPE REWIND COMMAND 




BR. IF NO PROBLEM 




SAVE TSSR 




BUMP COUNT 




REWIND NOT ACCEPTED 




TRAP 


C$ERHRD 


.WORD 


418 


.WORD 


T24RWN 


.WORD 


PKTSSR 



CJCLPl 



CJERHRO 
419 
T24B0T 
EXPREC 

C$CLP1 



65$: 



MOV 


#150005. T24PK3 


MOV 


0T24PK3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


<>SSR,R2 


CMP 


R1,R2 


BEQ 


75$ 



jWRlTE DATA,ACK.SWB.CVC-1 COMMAND 
J SET L^P R4 WITH PACKET ADDRESS 

;SE1 PATTERN IN CORRECT REGISTER 
iFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GEi TSSR CONTENTS 
;SF UP EXPECTED 
jAf-:. THEY EQUAL 
iBR, IF OK 



n ■ • 
I'll 

TSV ■ HAR[1WAHK llSTS I .M MAC'Ul MK'OO ."• MAR H4 (Vi\AA PAlif 44 »* 

TEST 4: BASIC RFAD DATA ff ORWAWU AND RfVl-P'it:) 



■ifj 0144 



J144 



.n49 

^155 

21S8 

PlfcO 
2161 
2162 
2165 
2164 
2165 
2169 



2170 

2171 
2172 
2175 
21/4 
21/5 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2185 
2187 



2188 

2189 
2190 
2191 
219? 
2193 



036062 
056066 
05606b 
036070 
056072 
036074 
056076 
036076 
056100 
056x02 
036106 
056110 
056110 
036112 



056112 
056116 
036120 
056122 
036126 
056126 
056150 
056152 
056154 
056156 
036136 



056140 
036144 
056146 
056152 
036154 
056156 
056162 
056162 
056164 
056166 
056170 
056172 
056172 
056174 
056200 



00523/ 002212 

104456 
000644 
005111 
012156 



104406 
005725 
022/05 
001346 

104406 



INC JATH{i 

tRRHRD l-HRNO,WRTtRR,Pl<T'.,SR 



000414 



/5J! 

60 i: 
1201: 



0<\ OOP 

CMP 026a. ,R3 
BNt b5$ 
CKLOOP 



(UUMP COUNT 

iTS'JR INCORRf-CT A^Tt-R WRITF^ DrtTA 

TRAP Ct^RHRO 

.WORD 

.WORD 

.WORD 

1 1 OOP IF SKLhCTe.D 

TRAP 
lUUHP RtCORD Sl/f: 

I END Of RtCORD rPT 

tBR. XF M0f<t RfCURDO TO WRITS 

ll.OOP IF V.K.ECTFD 

TRAP 



****&** 



issue RtWiNO COfflANO TO SFl F.CTFD TAPE DRIVE 



0O4/57 011104 

105407 

010001 

005257 002212 

104456 
000645 

045076 
015564 

104406 



130$: CKLOOP 



ilOOP IF SELECTCD 



TRAP 



HEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 045650 

010102 

052702 000002 

020102 

001406 

005257 002212 

104456 
000646 
044613 

015564 

104406 

012/03 000400 

0X3737 003X14 04374^ 



140»t 



• «4««44«4AA4«*«««<i**44«*««««««4«««4«4i4^««« + 4«««*««««4«4i4%«« «*«««« ««4 



4;'o 

WRTFRP 

PKT'.SP 

CKl Pi 



C$CI.P1 



J5R 


PC. REWIND 


iCALL TAPE REWIND COMMAND 




BCS 


150» 


iBR. IF NO PROBIFM 




MOV 


RO.Rl 


I SAVE TSSR 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0.T24RWN,tXPREC 


IREWINO NOT ACCEPTED 








TRAP 


CItRMRD 






.WORD 


421 






.WORD 


T24RWN 






.WORD 


txP^^C 



CICLPI 



MOV 


T24BFR*6.R1 


iPICK UP XSTO 




MOV 


R1.R2 


iSET UP EXPECTED 




BIS 


♦eiTl.R^ 


iSET DOT BIT IN EXPECTED 




CMP 


R1.R2 


iDOeS EXP - REC'D 




BEQ 


1401 


iBR, IF EQUAL (OK) 




INC 


FATFLG 


iBUMP CO»JNT 




ERRHRD 


ERRN0.T24B0T.hXPRtC 


iTAPE NOT AT BOT AFTER REWIND 








TRAP 


OFRHRD 






.WORD 


422 






.WORD 


T24B0T 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


C*CtPX 


MOV 


*256. ,1^5 


iRECORO SHE 




MOV 


FREE,T^4RR 


1 STARTING READ BUFFER ADDRt SS 





I ( 



TSV.' H<un^W>\H^ USTS 1 rt MACRO MK'Od ,'< tV\H H4 O'i-AA PAtU- '14 ? 

TtST 4: BASIC READ DATA CroRWARD AND RtVtRSt ) 



'A 014!. 



^1*^4 
?10S 

^197 
J198 
<?19^ 
.VOO 

J203 
c??04 

2P06 
?.207 



2212 

2213 
2214 
2215 
2216 

2217 
2218 
2219 
2220 
2221 
2225 



2226 

2227 
2226 
2229 
2250 
2231 
2232 
2c?53 
2254 

2235 



2236 

2237 
2238 
2239 



036206 
036214 
036220 
056224 
036230 
056254 
056240 
056244 
056246 
056250 
056254 
0562S4 
056256 
056260 
056262 
056264 
056264 
056266 
056272 
056274 
056300 
05630? 
056504 
056506 
056310 
056312 
056316 
056516 
056320 
056522 
056524 
056326 
056326 
056350 
056352 
036554 
056356 
056540 
056542 
056546 
056350 
056550 
056552 
056552 
056552 
056554 
056562 
056 3M 
03^370 



012757 
012704 
010557 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
000647 
005204 
012136 

104406 
013702 
010304 
162704 
060204 
021405 
001410 
011401 
010502 
005257 

104456 
0O065O 
044660 
015564 

104406 
005724 
160204 
020403 
001360 
005725 
022703 
001322 

104406 



104405 
023727 
105402 
004737 



»Rt"AD OATA.U .ACK.SWB COMMAND 



t 



1 10001 
043740 
043746 

oooooo 

016340 
000002 
00C200 



002212 



043740 



003114 
000400 



002212 



MOV 
IfabJ: MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



i70$.' CKLOOP 

MOV 
MOV 
SUB 
173»: ADO 
CMP 
BEQ 
MOV 
MOV 
INC 
ERRHRD 



180$! CKLOOP 



000412 



190$! 



002212 000017 
017272 



999 $i 



ENOSl.© 



CMP 
BLO 
JSR 



ailOO01.l24Pi<3 

0T24PK5,R4 

R3.T2452 

R4.TSDBCR'>) 

PC.UAITf 

TSSR(H5).R1 

0SSR.R2 

R1.R2 

170$ 

FATFLG 

tRRNO.RObRR.PKTSSR 



FREE.R2 

R3.R4 

0256., R4 

R2.R4 

CH4),R5 

180$ 

(R4),R1 

R5.R2 

TATFLG 

ERRN0,T24DTA,f.XPREC 



TST 


(R4)» 


SUB 


R2,R4 


CMP 


fi4.R5 


BK£ 


173$ 


TST 


(R3)» 


CMP 


0266.. R3 


BNE 


165$ 


CKLOOP 





FATFLG.OIS. 

999$ 

PC.CKDROP 



IE,ACK. ,WB COMMAND 



iRKAD DATA 

I SET UP R4 WITH PACKM 

iGLT L»> RECOf<D SIZE IN 

I ISSUE COMMAND 

jUAIT FOR 5SR rO SET 

iGET T5SR CONTENTS 

(SET UP EXPECTED 

(ARE THEf eOUAL 

iBR, If OK 

iBUMP COUNT 

iTSSR INCORRECT AFTER 



ADDRM/j 
PACKfc T 



(LOOP IF SELECTED 



READ DATA 
TRAP 
.WORD 
.WORD 
.UORD 

TRAP 



C$ERM«0 
425 
RDtRR 
PKTSSR 

C$CLP1 



iGET BUFFER ADDRESS 

J CURRENT RECORD SIZE 

(FIRST LOCATION IN BUFFER 

iGET LOCATION IN BUFFER (ADOREJS) 

iCHECK DATA READ (R3«DATA ALSO) 

iBR. I^ ALL IS WELL 

iRECO O.^A 

lEXPECTtD DATA 

I BUMP COUNT 

iDATA READ NOT • WRITTEN 

TRAP C$ERHPn 

.WORD 424 
.WORD T24DTA 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C»CLP1 

jBUMP to next LOCATION 
I SET SIZE TO CORRECT VALUE 
»ENO OF RECORD YET 
iBR. IF NOT AT END OF RECORD 
I BUMP RECORD SIZE 
(END OF RECORD YET 
iBR, IE MORE RECORDS TO WRITE 
jLOOP IF SELECTED 

TRAP C$CLP1 

l>>>>>>>>>>>> END SUBTEST >>>>>>>»>>>> 

L1O055: 

TRAP CJESUQ 

lis ERROR COUNT AT 25 
iBR» IF LESS THAN 25 
J TRY TO DROP THE UNIT 



1 < 



TSV' HAPOWAHI- TtSTS I 8 MACRO MK^OO .'^ MAR H4 09i4/J PAtit 4S 
TEST 4: BASIC READ DATA ( FORWARD AND RtveRSE) 



SPO 0146 



.2?41 

?.^^^ 

2?AA 
^2A5 

PP.A& 

^251 

2253 056370 

056370 

056370 104402 
2?54 036372 004737 046434 

2255 036376 004737 046500 

2256 036402 004737 046372 
225; 

2258 
2259 
2260 
2261 
2262 
2265 

2264 036406 004737 016064 

2265 036412 105407 

2266 056414 005237 002212 

2270 036420 OlOOOl 

2271 036422 
036422 104455 
036424 000651 
036426 005650 
036430 012124 

2272 036432 

2273 036432 013737 002172 

2274 036440 012704 043620 
2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 036444 004737 010752 

2C33 036450 103407 

2284 036452 005237 002212 

2288 036456 OlOOOl 

228'5 036460 

036460 104456 

056462 00065ii 

036464 005054 

036466 012124 
2290 056470 

036470 104406 
2291 

2292 



043640 



TEST 4, SUBTEST 4 

VERIflES THAT A READ FORWARD COHMAND READING A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
(RLL) BIT SET. 



BGNSUe 



JSH 
JSR 
JSR 



PC.T24RT5 

PC,T24REST 

PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >»*>>>*>>»>> 

T4.4; 

TRAP CSBSUe 

jSET UP OTHER COMMAND PACKET 
iSET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 



i 

tissue CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

t 



JSR 
BCS 
INC 

MOV 
ERRDF 



PC.SOFINIT 

20 i 

FATFLG 

RO.Rl 

ERRNO.SFIERR.SFIMSG 



20$: 



MOV 
MOV 



UNITN.T24DSW 
0T24PACKET.R4 



(DO INITIALIZE ON CONTROLLER 

iBr^ IF INIT WAS OK 

I BUMP COUNT 

(CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

(SET DRIVE NUMBER IN PACKET 
(SUBROUTINE NEEDS PACKET ADDRESS 



C$EROF 
425 
SFIERR 
SFIMSG 



*********A***«******«*A4>«*******««4«A*«*«******4,4i*****«4t<L*«*«>«4i*«« 



(WRITE CHARACTERISTICS COMMAfC (CALL TO WRTCHR) 



JSR PC, WRTCHR 

BCS 24$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
24$: CKLOOP iLOOP IF SELECTED 

TWAP 



CJERHRD 
426 
WRTMSG 
SFIMSG 

C$CLP1 



TSV; - HARDWARL TESTS 1 MACRO Mi:?00 :^': MAR-«4 09:44 
TEST A; BASIC READ DATA CrORWARD AND REVfRSE) 
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2295 
2294 
2295 
2296 
2297 

2298 036472 004737 011104 

2299 036476 103407 
2500 036500 010001 

2301 036502 005237 002212 

2305 036506 
036506 104456 
036510 000653 
036512 045076 
036514 012136 

2306 036516 
036516 104406 

2307 
2308 
2309 
2310 
2311 
2312 
2313 

2314 036520 013701 043650 

2315 036524 010102 

2316 036526 052702 000002 

2317 036532 020102 

2318 036534 001406 

2319 036536 005237 002212 

2323 036542 
036542 104456 
036544 000654 
036546 044613 
036550 015564 

2324 036552 
036552 104406 

2325 036554 012703 001000 

2326 036560 013737 003114 043742 
2327 

2328 
2329 
2330 
2331 
2332 
2333 
2354 036566 012737 140005 

2335 036574 012704 043740 

2336 036600 

2337 036600 010337 043746 
2358 036604 010465 000000 

2339 036610 004737 016340 

2340 056614 016501 000002 

2341 036620 012702 000200 
2542 036624 020102 

2343 036626 001406 

2344 036630 005237 002212 
2548 036634 



ISSUE RcUiINO COMMAND TO SELECTED TAPE DRIVE 



30* 



CKLOOP 



I LOOP IF SELECTED 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



40$ 



WRITE DATA.ACK.CVC-l COMMAND 

{ ************************ **.i** ******************** *«i******4t ******** 



SEQ 014 7 



JSR 


PC, REWIND 


iCALL TAPE RF-..)iND COMMAND 




BC 


30$ 


J BR. ir NO ("nOBUEM 




MOV 


RO.Rl 


J SAVE Tssr 




INC 


FATFLG 


J BUMP COUNT 




ERRHRD 


ERRN0.T24RWN,PI<TSGR 


jREWIND NOT ACCEPTED 








TRAP 


C$ERHPD 






.WORD 


427 






.WORD 


T24RWN 






.WORD 


PKTSSR 



043740 



65$! 



MOV 


*140OO5.T24PK3 


MOV 


*T24PK3,R4 


MOV 


R3.T24SZ 


MOV 


R4,TSOB(R5) 


JSR 


PC, WAITF 


HOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


RI.R2 


6EQ 


75$ 


INC 


FATFLG 



C$CLP1 



MOV 


T24BFR*6.R1 


jPICK UP XSTO 




MOV 


R1.R2 


I SET UP EXPECTED 




BIS 


*eiTl,R2 


{SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


J DOES EXP • REC'D 




BEQ 


40$ 


jBR. IF EQUAL COK) 




INC 


FATFLG 


jBUHP COUNT 




ERRHRD 


ERRN0,T24B0T,EXPREC 


;TAPE NOT AT BOT AFTER REWIND 








TRAP 


CJERHRO 






.WORD 


428 






.WORD 


T2430T 






.WORD 


EXPREC 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C*CLP1 


MOV 


*512. ,R3 


I RECORD SIZE 




MOV 


FREE , T24RB 


(STARTING WRITE BUFFER ADDRESS 





ERRHRD ERRNO , WRTERR , PKTSSR 



jWRITE DATA.ACK.CVC'l COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

J SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

;SET UP EXPECTED 

J ARE T»-fEY EQUAL 

;BR. IF OK 

I BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 



JSR PC, REWIND 

BCS 130$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO . T24RWN , PK TSSR 



130$: CKLOOP 



rsv/ - HARDWARE TESTS 18 MACRO M1?00 :-'5 MAR-64 09:44 PAGE 45 2 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

036634 104456 

036636 000655 

036640 005111 

036642 012136 
2349 036644 

036644 104406 
^'350 036646 
2551 
2352 
2353 
2354 
2355 
2356 
2357 

2358 036646 004737 011104 

2359 036652 103407 

2360 036654 OlCOOl 

2361 036656 005237 002212 

2365 036662 
036662 104456 
036664 000656 
036666 045076 
036670 012136 

2366 036672 
036672 104406 

2367 
2368 
2369 
2370 
2371 
2372 
2373 

2374 036674 013701 043650 MOV 

2375 036700 010102 MOV 

2376 036702 052702 000002 BIS 

2377 036706 020102 CMP 

2378 056710 001406 BEQ 

2379 056712 005237 002212 INC 

2383 036716 
036716 104456 
036720 000657 
036722 044613 
036724 015564 

2384 036726 140$ 
036726 104/»06 

2385 036730 012703 000400 

2386 036734 013737 003114 043742 
2387 
2388 
2389 
2390 
2391 
2392 
2393 

2394 036742 012737 140001 043740 MOV 

2395 036750 012704 043 MO 165$: MOV 

2396 036754 010337 043746 MOV 



;l OOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



TRAP 



75$: CKLOOP 
120$: 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



;CALL TAPE REWIND COMMAND 

:BR. IF NO PROBLEM 

I SAVE TSSR 

;BUMP COUNT 

; REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 
,WORO 
.WORD 
.WORD 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



T24BFR*6,R1 
R1.R2 
^IT1.R2 
R1,R2 
140$ 
FATFLG 
ERRHRD ERRNO , T24B0T , EXPREC 



CKLOOP 

MOV 
MOV 



#256, ,R3 
FREE.T24RB 



PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

jDOES EXP • REC'D 

I BR, IF EQUAL (OK) 

jBUMP COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

J LOOP IF SELECTED 

TRAP 

I RECORD SIZE 

; STARTING READ BUFFER ADDRESS 



; ***********44 4i**4>**<fc****4i*******4i4>4^<ti4i*4i*4i4i4L4t4i«*«4i*4>4>4i4i*4>4i4i4i4>**<lt*^* 



; 



READ DATA.ACK,CVC-1 COMMAND 

«««#««4i4i****«4i««4i«4,«*««4,4,4,44,4**4,AA*4i*4i*A4>**4i ********************** 



ffl400Cl,T24PK3 

#T24PK3,R4 

R3.T24SZ 



I READ OATA.ACK.CVC-1 COMMAND 
;5ET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 



C$ERHRD 
429 
WRTERR 
PKTSSR 

C$CLPl 



C$ERHRD 
430 
T24RWN 
PKTSSR 

C$CLP1 



C$ERHRD 
431 
T24B0T 
FXPREC 

C$CLP1 



SEQ 0148 



TSV: - HARDWARE TESTS 18 HACRO M1?00 ::!?-MAR-84 09:44 
TESV 4; BASIC READ DATA (roRwARD AND REVERSE) 



i-1 i.r 
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2397 056760 010465 

2398 036764 004737 

2399 036770 016501 

2400 036774 012702 

2401 037000 020102 

2402 037002 001406 

2403 037004 

2407 037010 
037010 
037012 
037014 
037016 

2408 037020 
037020 

2409 
2410 
2411 
2412 
2413 
2414 
2415 

2416 037022 

2417 037C26 
2413 037030 052702 

2419 037034 020102 

2420 037036 001406 

2421 037040 005237 

2425 037044 
037044 104456 
037046 000661 
037050 045712 
037052 015564 

2426 037054 

2427 037054 
037054 
037054 104403 

2426 037056 023727 

2429 037064 103402 

2430 037066 004737 

2431 037072 



000000 
016340 
000002 
100204 



005237 002212 

104456 
000660 
046144 
012136 

104406 



013701 
010102 



043650 
010000 

002212 



002212 
017272 



170$ 



MOV 
JSR 
MOV 
MOV 
CMP 
BF.Q 
INC 
ERRHRD 



CKLOOP 



R4,TSDB(R5) 

PCWAITF 

TSSRCR5).R1 

*SSRISC!BrT2,R2 

R1.R2 

170$ 

FATFLG 

ERRN0.T24TRL,PI<TSSR 



(ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

BUMP COUNT 

TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



CJERHRD 
432 
T24TRL 
PKTS3R 

CSCLPl 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



T24BFRf6.Rl 

R1.R2 

*eiT12.R2 

R1.R2 

160^ 

FATFl.G 

ERRNO . T24L0N . EXPREC 



180$ 



000017 



999$ 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG, #15. 

999$ 

PC.CKOROP 



GET MESSAGE BUFFER 

SET UP EXPECTED 

SET THE RLL BIT IN EXPECTED 

ARE THEY EQUAL 

BR. IF EQUAL (ALL IS WELL) 

BUMP COUNT 

THE RLL BIT WAS NOT SET IN XSTO 

TRAP C*ERHRD 

.WORD 433 
.WORD T24L0N 
.WORD EXPREC 

>>>>>>>^.>>>> END SUBTEST >>%>>>>>>>>> 
L 10056: 

TRAP CSESUB 

IS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
TRY TO DROP THE UNIT 



SEQ 0149 



■I ) 

i. C 



TSV7 - HARDWARt TtSTS 1-8 MACRO M1200 :^?'MAR-84 09:44 PAGE 46 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ OlSO 



2433 
2454 
2435 
2436 
2437 
2436 
2459 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 

2450 057072 
037072 
037072 

2451 037074 

2452 037100 

2453 037104 
2454 

2455 
2456 
2457 
2458 
2459 
2460 

2461 037110 

2462 037114 

2463 037116 

2467 037122 

2468 037124 
037124 
037126 
037130 
037132 

2469 037134 

2470 037134 

2471 037142 
2472 

2473 
2474 
2475 
2476 
2477 
2478 

2479 037146 

2480 037152 

2481 037154 

2485 037160 

2486 037162 
037162 
037164 
037166 



104402 
004737 
004737 
004737 



004737 
103407 
005237 
010001 

104455 
000662 
003650 
012124 

013737 
012704 



004737 
103407 
005237 
010001 

104456 
000663 
005054 



046434 
046300 
046372 



016064 
002212 



002172 
043620 



043640 



010752 
002212 



TEST 4, SUBTEST 5 

VERIFIES THAT A READ F0RUP9D COMMAND READING A RECORD 
SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
(RLS) BITS SET, IT IS VERIFIED THAT THE RESIDUAL BYTE 
COUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
LENGTH). 



BGNSUB 



JSR 
JSR 
JSR 



PC. T24RT3 

PC,T24REST 

PC,T24RT2 



•>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.5: 

TRAP C$BSue 
SET UP OTHER COMMAND PACKET 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

***A*A*******************«*4i*«4.***4ii^^**4, **************** ***«****4i« 



20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


;BR IF INIT WAS OK 




INC 


FATFLG 


I BUMP COUNT 




MOV 


RO.Rl 


; CONTENTS OF TSSR REGISTER 




ERROF 


ERRNO.SFIERR^SFIMSG 


J FATAL ERROR 1 SSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


434 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV LINITN,T24DSW 

MOV #T24PACKET.R4 



;SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



******j(i****4i****************************4i*********4,******4,*****4,** 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

*********** **4i4'*4i4i***4***4>4< + 4>«4>*ijfr>:<+4>4'>«>*4i*4<*4i'«>* 41*****41*** ********* 



JSR 


PC. WRTCHR 


jISSI;E WRITE CHARACTERISTICS 




BCS 


24* 


;BR. IF COMMAND ISSUED OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


;SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO , WRTMSG , SFIMSG 


; WRITE CHARACTERISTISC FAILED 








TRAP 


CJERHRD 






. WORD 


435 






.WORD 


WRTMSG 



TSV7 - HARDWARE TtSTS 1-8 MACRO M1?00 :-??MAR-84 09:44 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

012124 
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037170 
2487 037172 

057172 
2488 
2489 
2490 
2491 
2492 
2493 
2494 

2495 037174 

2496 037200 

2497 057202 

2498 037204 

2502 037210 
037210 
037212 
057214 
037216 

2503 037220 
037220 

2504 037222 

2505 037226 
2506 

2507 
2508 
2509 
2510 
2511 
2512 

2513 037254 

2514 037242 

2515 037246 

2516 037246 

2517 037252 

2518 037256 

2519 037262 

2520 037266 

2521 037272 

2522 057274 

2523 037276 

2527 037502 
057502 
037304 
037506 
057310 

2528 037312 
037512 

2529 037314 
2530 

2551 
2532 
2533 
2534 
2535 
2536 
2537 037314 



104406 



004737 
105407 
010001 
005237 

104456 
000664 
045076 
012136 

104406 
012703 
013737 



011104 
002212 



000400 
003114 



012737 
012704 

010337 
010465 
004757 
016501 
012702 
020102 
001406 
005237 

104456 
000665 
005111 
012136 

104406 



140005 
043740 

043746 
000000 
016540 
000002 
000200 



002212 



043742 



043740 



24$: 



CKLOOP 



iLOOP IF SELECTED 



.WORD 
TRAP 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



30$ 



CKLOOP 

MOV 
MOV 



;LOOP IF SELECTED 



*256. ,R3 
FREE . T24R0 



TRAP 



; RECORD SIZE 

; STARTING WRITE BUFFER ADDRESS 



WRITE DATA,ACK,CVC-1 COMMAND 

*****4i 4(44>****4t jf A********** ******* jfc4t*4t4t*j4i4i***4i4t«4i***4i*«**«4i*«4,««**4t 



65$ 



MOV 


*140005.T24PK3 


MOV 


#T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 


ERRHRD 


ERRNO.WRTERR.PKTSSR 



SFIHGG 
C$CLP1 



JSR 


PC. REWIND 


I CALL TAPE REWIND COMMAND 




BCS 


50$ 


;BR, IF NO PROBLEM 




MOV 


RO.Rl 


J SAVE T5SR 




INC 


FATFLG 


J BUMP COUNT 




ERRHRD 


ERRN0,T24RWN.PKTSSR 


jREWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


456 






.WORD 


T24RWN 






.WORD 


PKTSSR 



C$CLP1 



jWRITE DATA.ACK,CVC-1 COMMAND 
J SET UP R4 WITH PACKET ADDRESS 

iSfcT UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

iSET UP EXPECTED 

;ARE THEY EQUAL 

tBR. IF OK 

iBUMP COUNT 

J TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 



TRAP 



004737 011104 



75$: CKLOOP jLOOP IF SELECTED 

120$: 

*4>******4i*4i4************4i*4i4i««*«**4i*4ij«L«4«L**«4i*****j>*4i4i****4i4,4>«*4jK* 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

*A4tA**4t4L***4tJh**4i******<4i**4iJ*************it**«**ii*****4*4'*******4i««*>t^ 

JSR PC, REWIND iCALL TAPE REWIND COMMAND 



C$ERHRD 

437 

WRTER^v 

PKlbSR 

C$CLP1 



SEQ 0151 



TSV7 - HARDWARE TESTS 1-8 MACRO MU^OO ^?-MAR-84 09:44 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



J 1. rl 

PAGE 46-2 



c?536 


037320 


103407 




2559 


037322 


010001 




2540 


037324 


005237 


002212 


2544 


037330 








037330 


104456 






037332 


000666 






037334 


045076 






037336 


012136 




2545 


037340 








037340 


104406 




2546 


037342 


012703 


001000 


254 7 


037346 


01373V 


^^03114 


25i8 








2549 








2550 








2551 








2552 








2553 








2554 








2555 


037354 


012737 


140001 


2556 


037362 


012704 


043740 


2557 


03/3'' 6 


010337 


043746 


2558 


037372 


010465 


000000 


2559 


03 7376 


004737 


016340 


2560 


037402 


016501 


000002 


2561 


037406 


012702 


100204 


2562 


037412 


020102 




2563 


037414 


001406 




2564 


037416 


005237 


002212 


2568 


037422 








037422 


104456 






037424 


000667 






037426 


046144 






037430 


015564 




2569 


037432 








037432 


104406 




2570 








2571 








2572 








2573 








2574 








2575 








2576 








2577 


037434 


013701 


043650 


2578 


037440 


010102 




2579 


037442 


052702 


040000 


2580 


037446 


020102 




2581 


037450 


001406 




2582 


037452 


005237 


002212 


2586 


037456 








037456 


104456 






037460 


000670 






037462 


045774 






057464 


015564 




2587 


037466 






2588 


037466 


013701 


043646 


2589 037473 


012702 


000400 



130* 



BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



130J 

RO.Rl 

FAfFLG 

ERRN0.T24RWN.PKTSSR 



043742 



Mo; 

MOV 



<^512. .R3 
rREE.T24RB 



}DR, ir NO PROBLEM 

;SAVt TSSR 

(BUMP COUNT 

jREWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
• RECORD SI2F. 
i STARTING READ BUFFER ADDRESS 



:LOOP IF SELECTED 



READ DATA,ACK.CVC>1 COMMAND 



043740 



I65i 



170J 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CK'.OOP 



#140001, T24PK3 

*T24PK3.R4 

R3,T24SZ 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

*SSR:SC!BIT2.R2 

R1.R2 

170* 

FATFLG 

ERRNO , T24TRL . EXPREC 



J READ DATA,ACK.CVC-1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
I ARE THEY EQUAL 
;eH. IF OK 
;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.W09D 
.WORD 
I LOOP IF SELECTED 

TRAP 



CJERHRO 
438 
T24RWN 
PKTSSR 

C$CLP1 



CJERHRD 
439 
T24TRL 
EXPREC 

C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXST01 

;GET MESSAGE BUFFER 

jSET up EXPECTED 

iSET THE RLS BIT IN EXPECTED 

I ARE THEY EQUAL 

I BR, IF EQUAL CALL IS WELL) 

J BUMP COUNT 

jTHL RLL BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 440 
.WORD T24L0P 
.WORD EXPREC 



MOV 


T24BFR»6,R1 


MOV 


R1.R2 


BIS 


*eiTl4,R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 


ERRHRD 


ERRNO. T24L0P, EXPREC 



180$: 



SEQ 03.52 



MOV T24BFR»4.R1 
MOV tt256. .R2 



iPTCK UP RESIDUAL BYTE COUNTER 
iTHIS SHOULD BE THE DIFFERENCE 



TSV;' - HARDWARE TESTS 1-8 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

^590 057476 020102 

2591 037500 00x406 

2592 037502 005237 002212 

2596 037506 
037506 104456 
037510 000671 
037512 046056 
037514 015564 

2597 037516 190$: 
037516 104406 

2598 037520 
037520 
037520 104403 

2599 037522 023727 002212 000017 

2600 037530 103402 

2601 037532 004737 017272 

2602 037536 999$: 



MACRO M1200 2? MAR -84 09:44 PAGE 46-3 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



SEQ 0153 



CMP 


R1,R2 


J IS THE DIKfERENCE 


CORRECT 




BEQ 


190S 


iBR, IF CORRECT 






INC 


FAlFi.G 


;BUMP COUNT 






ERRHRD 


ERRN0.T24PBP. EXPREC 


iRBPCR NOT CORRECT 


TRAP 
.WORD 
.WORD 
.WORD 


CJERHRO 
441 

r24P3P 
EXPREC 



FATFLG.i'nS 

999$ 

PC.CKDROP 



;I,OOP Tf SELECTED 

TRAP C$CIP1 

;>>>>>>>>>>>i END SUBTEST >>>>>>>>>>>> 

L 10057: 

TRAP C$ESUb 

IS ERROR COUNT AT ?5 
Bn, IE LESS THAN 25 
TRY TO DROP THE UNIT 



t_ 



TSV7 HARDWARt: le.STS 18 MACRO HIPOO .'''^-MAR 84 0^:AA PAGE 48 
TEST 4: BASIC READ DATA (rOR)^'ARD AND REVERSE j 



SEQ OlM 



t?605 

2607 
2608 
*^609 
2610 
.^611 
2r,12 
2613 
.■'614 
2615 
2616 
261/ 
2618 
2619 
2620 
2621 

2622 037536 
037536 
037536 104402 

2623 037540 004737 0^6454 

2624 037544 004737 046300 

2625 037550 004737 046372 
2626 

2627 
2628 
2629 
2630 
2631 
2632 

2633 037554 004737 016064 

2634 037560 103407 

2655 037562 OOS237 002212 

2639 0375b6 010001 

2640 037570 
037570 104455 
037572 000672 
037574 003650 
037576 012124 

2641 037600 

2642 037600 013737 002172 

2643 037606 012704 043620 
2644 

2645 
2646 
2617 
2648 
2649 
2650 

2651 037612 004737 010752 

2652 037616 10340/ 

2653 037620 005237 002212 

2657 037624 010001 

2658 037626 
037626 104456 
037630 000673 
03/632 005054 



043640 



TEST 4. SJBTr^ST 6 

VERIFIES THAT READ RtVERSE COMMANDS WITH SWB-O 

OPERATES -PROPERLY. THE TAPE IS FIRST REWOUND AND THFN 

WRITTEN UriH A SERIES OF TEST RECORDS VARING IN 

LENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 

SEQUENTIALLY AND THE RESULTS 

(STATUS. DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE 

EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD 

OCCUR . 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



.i>>>>>>>>>>> BEGIN SUBTEST 

T4.6; 

TRAP 
(SET UP OTHER COMMAND PACKET 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



CJBSUB 



««4i4i*4^4.«*>4««« *********** AAA A* A*44i4i4l44**.**44*A4**'^A*A**4*4'*4-**4'4i*-* 

ISSUE. CONTROLLER "SOFT" INITIALIZE ■■ CARRY BIT CLEAR IF ERROR 



j'u; 

BC>, 
INC 
MOV 
ERRDF 



PC.SOFINIT 

20 i 

FAIFLG 

RO.Rl 

ERRNO,SFIERR.Sr*IMSG 



20$ 



MOV 
MOV 



LfNITN.T?4DSW 
0T24PACKET,R4 



DO INITIALISE ON CONTROLLER 

BR IF INIT WAS OK 

BUMP COUNT 

CONTENTS OF TSSR REGISTER 
J FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

;SET ORIVF NUMBER IN PACKM 

: SUBROUTINE NEEDS PACKET ADDRESS 



C$ERDF 
442 
SFIERR 
SFIMSG 



WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 



JSR 


PC, WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




BCS 


24 i 


;BH. IF COMMAND ISSUED OK 




INC 


FATFLG 


;BUMP COUNT 




MO 7 


RO.Rl 


;SAVE CONTENTS OF TSSR 




EIJRHRD 


ERRNO.WRTMSG, SFIMSG 


iWRITE CHARACTERISTISC FAILED 








TRAP 


C$ERHRD 






.WORD 


443 






.WORD 


WHTMSG 



n 1 r 

TSV7 - HAfn:)WARE: THSTS l-S MACRO HIPOO ?^ hAR-84 09:44 PAGt 48-1 

TEST 4: BASIC READ l)ATA (TORWARU AND REVERSE) 

0121^4 



2639 

?6fcO 

2661 
266? 
2665 
2o64 
2665 
2666 
2667 
2668 
2669 
2670 
2674 



2675 

2676 
2677 
2673 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2686 
2689 
2690 
2691 
2692 
2693 
2694 
269^ 
2696 
2697 
2701 



2702 

2703 

2704 
2 705 
2706 

2707 
2708 



057634 
0576S6 
057636 



104406 



24$: 



CKLOOP 



;LOOP IF SELECTED 



037640 
057644 
037646 
057650 
037654 
057654 
037 656 
037660 
037662 
037664 
037664 
037666 
037672 



004757 
10 407 
010001 
005237 

104456 
00C674 
045076 
012136 

104406 
012705 
013737 



037700 
03770fi 
037/12 
037712 
037714 
057720 
037724 
037730 
037734 
037740 
037744 
037746 
037750 
03/754 
037754 
037756 
037 760 
037762 
037764 
037764 
037766 
037770 
037774 
037776 
037776 
040000 
040002 



012737 
012704 

010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000675 
0051U 
012136 

104406 
005723 
022703 
001346 



011104 
0022 J.:.' 



000400 
003114 



140005 
043740 



017512 
043746 
000000 
016340 
000002 
000200 



002212 



000414 



104406 
005743 
013737 003114 



043742 



043740 



. WORD 
TRAP 

ISSUE RE:WIND command to Sr.L.ECTED TAPE DRIVE 



SEIM'Ui 
C$CLP1 



JSR PC. REWIND 

BCS 30$ 

MOV RO.Rl 

INC EATFLG 

ERRHRD ERRNO , T24RWN . PKTSSR 



30$ 



CKLOOP 

MOV 
MOV 



#256. ,R3 
FREE.T24RB 



CALL TAPE REWIND COMMAND 

BR. IF" NO PROBLEM 

SAVE T5SR 

BUMP COUNT 

REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

IRAP 
; RECORD SIZE 
! STARTING WRITE BIJFFER ADDRESS 



CiERHRD 
444 

T24RWN 
PKTSSR 

CJCLPl 



*«***4ij*4>*******************4*******4^***iK«*************<(i***4<****4i*« 

WRITE DATA.ACK.CVC"! COMMAND 

*4i***ik*******4i4i***********4**44.4********<*>************************* 



65$ 



MOV 


#140005, T24PK3 


MOV 


#T24PI<3,R4 


MOV 


R3,R0 


JSR 


PC.FILLMEM 


MOV 


R3,T24S7 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



ERRHRD ERRNO. WRTERR, PKTSSR 



75$ 



80$ 



043742 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 

TST 
MOV 



(R3")* 
#268. .R3 
65$ 



-(R3) 
FREEa24RB 



;WRITE DATA,ACK,CVC-1 COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

:SET PATTERN IN CORRECT REGISTER 
iFILL MEMORY WITH RECORD SIZE 
iSET UP RECORD SIZE IN PACKET 
J ISSUE COMMAND 
iWAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
jSET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 
BUMP COi>NT 

TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 
J LOOP IF SELECTED 

TRAP 
BUMP RECORD SIZE 
END OF RECORD YET 
BR. IF ;iORE RECORDS TO WRITE 
I OOP IF SELECTED 

TRAP 
jSET BACK TO bl2. 
{STARTING RfcAD BUFFtR ADDRLiiS 



C$ERHRD 

445 

WRTERR 

PKTSSR 

C$CLP1 



CJCLPl 



SEQ 01S5 



TSV/ - H/\R[)WARK TKSTS 18 MACf^O H1?00 ;-'?-liAR-tt4 09:44 PAGE 48-;_> 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 01*^6 



2709 








P710 








:r/ii 








271? 








;?7i5 








2714 








?715 








?716 


040010 


012737 


100401 0/13740 


2717 


040016 


012704 


043740 


2718 


040022 


010337 


045746 


2719 


040026 


010465 


OOOOOO 


2720 


040032 


004737 


016340 


2721 


040036 


016501 


000002 


2722 


040042 


012702 


000200 


2723 


040046 


020102 




2724 


040050 


001406 




2725 


040052 


005237 


002212 


S729 


040056 








040056 


104456 






040060 


000676 






040062 


045426 






040064 


012136 




2750 


040066 








040066 


104406 




2731 


040070 


013702 


005114 


2 732 


040074 


010304 




2?"j5 


040076 


162704 


000400 


2754 


040102 


060204 




2735 


040104 


021403 




2736 


040106 


001410 




2737 


040110 


011401 




2738 


040112 


010302 




27 39 


040114 


005237 


002212 


2743 


040120 








040120 


104456 






040122 


000677 






040124 


044660 






040126 


015564 




2744 


010150 








040130 


104406 




2 745 


040132 


005724 




2746 


040134 


160204 




2747 


040136 


020403 




2/48 


040140 


001360 




2749 


040142 


005743 




2750 


040144 


022703 


000400 


2751 


040150 


001322 




2752 


040152 








040152 


104406 




2753 


040154 
040154 








040154 


104403 




2754 


040156 


02372/ 


002212 000017 


2755 


040164 


103402 




2756 


040166 


004737 


017272 


2757 


040172 







READ REVERSE DATA.ACK COHIiAND 



165$ 



MOV 


ftl00401.T24Pl<3 


hOV 


^T24PK3.R4 


MOV 


R5, r24SZ 


HOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


V?SSR.R2 


CMP 


R1.R2 


BEQ 


170J 


INC 


FATFl.G 


ERRHRD 


ERRN0»T24WDC,PKTSSR 



170$ 



173S 



CKLOOP 



180$ 



190$ 



READ REVERSE DATA.ACK 


COMMAND 




SET UP R4 WITH PACKET 


ADDRESS 




SET UP RECORD SIZE IN 


PACKET 




ISSUE COMMAND 






WAIT FOR SSH TO SET 






GET TSSR CONTENTS 






SET UP EXPECTED 






ARE THEY EQUAL 






BR. IF OK 






BUMP COUNT 






TSSR INCORRECT AFTER f 


^EAO DATA 






TRAP 


C$ERHRO 




.WORD 


446 




. WORD 


r24WDC 




.WORD 


PKTSSR 


LOOP IF SELECTED 







TRAP 



C$CLP1 



999$ 



MOV 


FREE.H2 


GET BUFFER ADDRESS 




MOV 


R5,R4 


CURRENT RECORD SIZE 




sue 


fl256. .R4 


FIRST LOCATION IN BUFFER 




ADD 


R2,R4 


SET POINTER TO FRAMF (WORD) 




CMP 


(R4\R3 


CHECK DATA READ (R5 ;ATA ALSO) 




BEQ 


180$ 


BR. IF ALL IS WELL 




MOV 


(R4),R1 


RECD DATA 




MOV 


R3.R2 


EXPECTED DATA 




INC 


FATFLG 


BLliP rotJNT 




ERRHRD 


ERRN0.T24DTA,EXPREC 


DATA RLAD NOT - WRITTEN 








TRAP 


C$ERHRD 






.WORD 


44 7 






.WORD 


T24DTA 






.WORD 


EXPRLC 


CKLOOP 




LOOP IF SELECTED 








TRAP 


CJCLPl 


TST 


(R4)f 


BUMP TO NEXT LOCATION 




sue 


R2.R4 


GET RID OF BASE ADDRESS 




CMF 


R4.R5 


END OF RECORD YET 




BNE 


173$ 


BR. IF NOT AT END OF RECORD 




TST 


-(R3) 


BUMP RECORD SIZE 




CMP 


0256.. R3 


END OF RECORD YET 




BNE 


165$ 


BR. IF MORE RECORDS TO WRITE 




CKLOOP 




LOOP IF SELECTED 








TRAP 


CSCLPl 


ENDSUB 




>>>>>>>>>>>> END SUBTEST >'>>>>>•>>> >s > 






L 10060: 








TRAP 


CSESUB 


CMP 


FATFLG. #15. 


lis ERROR COUNT AT 25 




BLO 


999$ 


;BR. IF LESS THAN 25 




JSR 


PC.CKORnP 


J TRY TO DROP THE UNIT 





TSV* HARHWrtRl, nsT'v i M hACMO Ml.HK) ,"• MAH «4 0'*.4n PAtit SO 

TEST 4: BASIC RFAD DATA Cf'ORWARD AND Rt.ViRSi:) 



^F''J 01*^i/ 



J /^o 








r^M 








J .'t-j 








.V(v^ 








.^ /64 








/■•bS 








.^ '>">b 








/ 'iy7 








r .'b8 








, /h9 








.V/0 








^771 








.^7-;'a 


040172 
040172 








04017c 


104402 




.V75 


040174 


004757 


04^4 54 


?7/4 


040200 


004737 


04b 500 


^/■.•^ 


040204 


004737 


046372 


.^//b 








^77/ 








^778 








?7/9 








.V80 








^781 








^782 








2785 


040210 


004757 


016064 


2784 


O40214 


103407 




2 785 


040216 


005237 


002212 


2 789 


040222 


OlOOOl 




2790 


040224 








040224 


104455 






040226 


000700 






040250 


005650 






040232 


012124 




2 791 


040254 






2 792 


040234 


013/37 


0021 72 


2 795 


040242 


012704 


043620 


2794 








2 79*> 








2 7% 








279? 








2 798 








2 799 








2800 








2«01 


040246 


004737 


01075i> 


2»oa 


040252 


105407 




2805 


040254 


005237 


002212 


2807 


040260 


010001 




2803 


040262 








040262 


104456 






0402M 


000701 






040266 


005054 






0402 70 


012124 




2809 


040272 








040272 


104406 




2810 








2511 









TKSr 4, t^llHTfM / 

VFRIMFS THAT READ DATA CUMMAKiOS WITH CvC-l AND TH( 
SWAP BTTFS (r>WD) BIT SM OPfRATF'', PROPf Rl ^ . TH( ff M 
SEQUF.NCF IS IDtNTICAl. TO THAI L'sFD IN S'HHFST ?, 
THF RESULTS. EXCEPT FOR RAM CONTtNtS. SHOULD HE THF SAMt 



BGNSUB 



JSR 


PC.T24RT3 


JSR 


PC,T24ReST 


JSR 


PC,T24RT? 



T4. h. 

THAP C»bS'JfJ 

jStT IJP OTHFR COMMAND PACKF T 
|5.,T COMMANO PACKET 
iSFT l)P OTMt.R COMMAND PAC^f T 



I ISSUE CONTROLLER '"SOfT" INITTALI/E CARRY BIT CI EAR IF ERROR 



JSR 


PC.SOFINIT 


BCS 


201 


INC 


FATFLG 


HOV 


PO.Rl 


ERRDF" 


ERRNO.SFIERR.SFIMSG 



045640 



201: 



MOV UNITN,T24DSU 
MOV AT24PACKET.R4 



iDO INITIALlZt ON CONTROl.LER 

I BR If INIT WAS »< 

iBUMP COUNT 

iCONTFNTS or TbSR RFGISTER 

jFATAL ERROR TSSR WAS NOT Ok 

TRAF> 
.WORD 
.WORD 
WORD 

I SET DRIVE NUMBER IN PACKET 
jSUBROUTINt NEEDS PACKET A[)DRFSS 



CiERDf 
448 
SFItRH 
SF IMSb 



WHITE CHARACTERISTICS COMMPMO (CALL TO WRTCHR) 



JSR 


PC. WRTCHR 


BCS 


241 


INC 


FATFLG 


MOV 


RO.fll 


ERRHRD 


ERRNO.WRTMSG.SFIHSG 



24 »; 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
|BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
iWRITE CHARACTERI5TISC 



J I OOP If SELECTED 



FAILED 




TRAP 


C»fcR^«D 


.WORD 


44 9 


.WORD 


WRTMSG 


.WORD 


S^ IMSG 



TRAP 



CJCLPl 



|*4%^^*%*«4»«44'«««««44^44:»««*«>«*«««««««#4««««4««44A4i«4«4^««4««««««*«^^ 



Tsv" H,\^;[)w/\n^ Ttsf i .^ nacwii hi.'iK' ." mar ho OW.^/l PAUt 'A) i 

TtSI 4: HAiilC RfAO DATA (KIRWARO AMD RKVU^il.) 



M^J 01S8 



Jftl4 



28<?6 

^829 
2850 
2851 
2852 
2655 
2854 
2855 
2856 
2857 
2858 
2859 
2840 
2841 
2842 
2845 
2844 
2645 
2846 
2847 
2851 



2852 

2855 
2854 
2855 
2856 

2857 
2858 
2859 

28€0 
2861 
2662 
2865 



0402 M 
040500 
040SC2 
040504 
040510 
040510 
040512 
040514 
040516 
040520 
040520 
040522 
040326 



040554 
040542 
040546 
040546 
040550 
040554 
040560 
040564 
040570 
040574 
040400 
040402 
040404 
040410 
040410 
040412 
040414 
040416 
040420 
040420 
04C «22 
C40424 
040450 
040432 
040452 
040434 
040436 



004 75; 
105407 
OlOOOl 
0052?.' 

104456 
000702 
04507O 
012156 

104406 
012705 
013737 



012757 
012704 

010500 
004737 
010557 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000705 
005111 
012136 

104406 
005725 
022703 
001346 

104406 
005743 

0137:^7 



011104 



002212 



000400 
003114 



150005 
043740 



017512 
043746 
000000 
016540 
00OOC2 
000200 



002212 



04^7iJ2 



043740 



000414 



003114 043742 



llSSUt RtWINO CtJMMANO TO '.H.FCTK) lAPf DRIVf 



I* 



JSR PC.RKWIND 

BCr> 50* 

HOV RO.Rl 

INC rAiri G 

ERRHRU HRRN0.T24RWN,Pl<TS^jR 



30$ 



CKl UOP 

10V 
MOV 



I CALL lAPh REWIND COMMAND 




tBR, IF NO PROBI t.H 




r^AVF T-^SR 




iBLfMP CO'^T 




(RBWINO NOT ACCf-PTFD 




TRAP 


C$[.RHRD 


.WORD 


45u 


.^0«U 


T24RWf< 


.WORD 


PKT'^.^R 



|l OOP IK SFLFCTLD 



0256. .R5 
t RBE,T24RB 



TRAP 



I RECORD S 1 'F 

I STARTING WRITF BUFFER ADORF:iih 



C«CLP1 



1 

tWRITfc OATA.ACK.CVC-l.SWB COMMAND 



65$: 



75$: 



80$! 



MOV 


0150005. T24PK5 


(WRITE DATA.ACK.CVC-l.SWe COMMAND 


MOV 


*T24PK5,R4 




(SET UP R4 WITH PACKET ADDRESS 


MOV 


R5.R0 




(SET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 




(FILL MEMORY WITH RECORD SI7E 


MOV 


R5,T24S? 




(SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 




I issue COMMAND 


JSP 


PC.WAir* 




iWAIT FUM S5R TO SET 


MOV 


TSSn(R5).Rl 




iGET TSSR CONTENTS 


MOV 


♦SSR,R2 




iSET UP EXPECTED 


CMP 


R1.R2 




(ARE THEY EQUAL 


BEQ 


75$ 




jBR. IF OK 


INC 


FATFLG 




iBUMP COUNT 


ERRHRD 


ERRNO.WRTERR 


,PKT5SR 


iTSSn INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 
.WORD 451 
.WORD WRTERR 
.WORD PKTSSR 



CKLOOP 

TST CR5)» 

CMP «268,,R5 

BNT 65$ 
CtauOP 

TST -(R5) 

MOV FREE.T24RB 



I READ REVERSE OATA.ACK.SWB COMMAND 



M.OOP IF SELECTED 

TRAP CICLPI 

iBUMP RECORD SIZE 
(END OF RECORD YET 
iBR, IF MORE RECORDS TO WRITE 
iLOOP IF SELECTED 

TRAP CJCLPl 

iSET RECORD SIZE BACK TO 512. 
I STARTING READ BLFFER ADDRESS 



[) 1 ) 



TSV; H-Un^wAHt: UST:. I 8 MAC«ll HUHH) .". MAR 8^ OS.'-in PA(it- r^O c> 

TtS: 4: BASIC RtAD DATA (ruRwARD AND Rf.Vt R^L) 



•ifj 01S9 



^8M 

2866 
2867 

;^86S 
^869 
^870 
.^(?71 
^872 
J973 
^874 
287i> 
2879 



2880 

2881 
2882 
2883 
2884 
2885 
2866 
2887 
2888 
2889 
2693 



2894 

2895 
2896 

2897 
2898 
2899 

2900 
2901 
2902 

2903 



2904 
2905 
2906 
2907 



040444 
040452 
040456 
040462 
040466 
040472 
040476 
040502 
040504 
040506 
04051P 
040512 
040514 
040516 
040520 
040522 
040522 
040524 
040530 
040532 
040536 
040540 
040542 
040544 
040546 
040550 
040554 
040554 
040556 
040560 
040562 
040564 
040564 
040566 
040570 
040572 
040574 
040576 
040600 
040604 
040606 
040606 
040610 
040610 
040610 
040612 
040620 
040622 
040626 



01273/ 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000704 
045426 
015564 

104 406 
013702 
010304 
162704 
0602'>4 
021403 
001410 
011401 
010302 
005237 

104456 
000705 
044660 
C 15564 

10440fS 
O05724 
160204 
020403 
001360 
005743 
022703 
001322 

104406 



104403 

023/27 
103402 
004737 



J ♦♦*****♦♦♦*♦♦♦*♦♦♦♦*♦* ♦^♦♦♦♦♦♦t*#**#^^##**4#^4^^^4^4,^4^,^j^^^j^^4j^ 



U0401 
043740 
043746 
000000 
016340 
000002 
000200 



002212 



043740 



165$ 1 



MOV 


«110401,T^4PI<3 


MOV 


<T24PI<5,R4 


MOV 


R3,T24S/ 


MOV 


R4,T50BCR5) 


JSR 


PC.UAITF 


MOV 


TSGRCR5).R1 


MOV 


#5<~.R.R2 


CMP 


R1,W2 


BKQ 


170$ 


INC 


FATFLG 


F.RRHRD 


ERRN0.T24WDC,LXPRLC 



003114 
000400 



170$: CKLOOP 



173$: 



002212 



MOV 


FREF..R2 


MOV 


R3,R4 


SUB 


0256..R4 


ADO 


R2.R4 


CMP 


(R4).R3 


BEQ 


180$ 


MOV 


(H4),R1 


MOV 


R3.R2 


INC 


♦■ATFLG 


ERRHRD 


ERRN0,T2 



180$: 



CKLOOP 



000400 



190$: 



T5T 


CR4)» 


SUB 


R2.R4 


CMP 


R4.R3 


BNE 


173$ 


TST 


-CR3) 


CMP 


#256.. R3 


B^€ 


165$ 


CKLOOP 





302212 000017 
017272 



999$: 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG. 015. 

999$ 

PC . CKDROP 



iRtAD REVERSIZ DATA.ACK 

iSFT i^ R4 WITH PACKET 

iStr UP RECORD Sl^h IN 

iTS'.UE COMMAND 

iWAIT FOR 5SR TO SET 

(GET TSSR CONTENTS 

»StT UP CXPECTtD 

J ARE THfcr EQUAL 

;HR. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER 



SW6 COMMAND 
ADORE l^S 
PACKET 



jLOOP IF SELECTED 



READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



iGET BUFFER ADDRESS 

(CURRENT RECORD SIZE 

(FIRST LOCATION IN BUFFER 

I SET POINTER TO FRAME (WORD) 

jCHECK DATA READ (R3"DATA ALSO") 

iBR. IF ALL IS WELL 

(RECD DATA 

(EXPECTED DATA 

(BUMP COUNT 

lOATA READ NOT » WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

iBUMP TO NEXT LOCATION 

(GET RID OF BASE ADDRESS 

(END OF RECORD YET 

J BR, IF NOT AT ENO OF RECORD 

iBl^lP RECORD Size 

jENO OF RECORD YET 

I BR. IF MORE RECORDS TO WRITE 

(LOOP IF SELECTED 

TRAP 

(>>>>>>>>>>>> END SUBTEST 

L 10061: 

TRAP 
(IS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



CiERHRO 
452 
T24WDC 
EXPREC 

C$CLP1 



CJERHt^U 
455 
T24DTA 
EXPREC 

C$CLP1 



CJCl.Pl 
C$ESL>6 



TSV" ■ HARDWARE rKSTf> 13 

TEST 4: BASIC RfAD DATi^ CrORUARD AND REVFRSE) 



\ 1.6 

MACRO M1?00 :•< MAR-a4 09:44 PAGt. b\ 



SE''J 0160 



2911 
291^ 
?915 
r?914 
.^915 
?916 
r:917 
v:?916 
2919 
2920 
2921 



2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2938 
2939 



2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2956 
2957 



2958 

2959 
2960 



040626 
040626 
040626 
040630 
040634 
040640 



040644 
040650 
040652 
040656 
040660 
040660 
040662 
040664 
040666 
040670 
040670 
040676 



040702 
040706 
040710 
040714 
040716 
040716 
040720 
040722 
040724 
040726 
040726 



104402 

004737 046434 

004737 046300 

004737 046372 



004737 016064 

103407 

005237 002212 

010001 

104455 
0007C6 
003650 
012124 

013737 002172 
012704 043620 



004737 010752 

103407 

005237 002212 

010001 

104456 
000707 
005054 
012124 

104406 



043640 



TEST 4. SUBTEST 8 

VERIFIES THAT A READ REVERSE COMMAND REA0U4G A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
CRLL) BIT SET. 



BGNSUB 



JSR 

JSR 
JSR 



PC.T24RT3 

PC,T24REST 

PC,T24RT? 



; >> >> >>>>i>i> BEGIN SUBTEST >>>>>>^>>>>> 

T4.8: 

TRAP C$BSUB 
iSET UP OTHER COMMAND PACKET 
;SET COMMAND PACKET 
i SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 



20$: 



JSR 


PC.SOFINIT 


J DO INITIALIZE ON CONTROLLER 




BCS 


20 » 


iBR IF INIT WAS OK 




INC 


FATFLG 


;BLC1P COUNT 




MOV 


RO.Rl 


jCONTENTS of TbSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


iFATAL ERROR TSSR WAS NOT OK 








TRAP 


CIEHDF 






.WORD 


454 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T24D5W 
MOV *T24PACKET.R4 



J SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

*******4>** ******* A4*******44i*4i4>*4«4'**-«*4>**44i«4>** ****************** 



24 i 



JSR PC.URTCHR 

BCS 241 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO , WRTMSG , SFIMSG 



CKLOOP 



I ISSUE WHITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 
iP'^rlP COUNT 

J SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAH FD 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



C$ERHRD 
455 

WRTMSG 
SFIMSG 

C$CLP1 



i******************«**«4*«*«*4t*««^4.^4t«4,^4t***4L#*«4,**«««««AA««4(*AA**4 



TSV: - HARDWARE-, Tt:ST3 1 y 

TEST 4: BASIC READ DATA (rORWARD AND RtVERSB) 



MACRO M1?00 .''.^ MAR -84 09:44 PAGt. '51 1 



MQ 0161 



2961 

2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2974 



2975 

2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2965 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2999 



3000 

3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 



040730 
040734 
O4074C 
040742 
040744 
040750 
040750 
040752 
040754 
040756 
040760 
040760 
040762 
040766 



040774 
041002 
041006 
041006 
041012 
041016 
041022 
041026 
041032 
041034 
041036 
041042 
041042 
041044 
041046 
O41050 
041052 
041052 
O41054 
041060 



004737 
004737 
103407 
010001 
005237 

104456 
000710 
045076 
012136 

104406 
012703 
013737 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 

000711 
005111 
012136 

104406 

012703 
013737 



041066 
041074 
041100 
041104 



012737 
012704 
010357 
010465 



011104 
016426 



002212 



001000 
003114 



140005 
043740 

043746 
OOOOOO 
016340 
000002 
000200 



002212 



000400 
003114 



100401 
043740 
04 3 '46 
OOOOOO 



043742 



043740 



0A3742 



043740 



ISSUE REWIND COMMANO TO SELECTED TAPF! DRIVf- 



JSR 


PC.REWINO 


JSR 


PC.CHKTSSR 


BC5 


30t 


MOV 


RO.Rl 


INC 


TATFLG 



ERRHRD ERRNO. T24RWN.PKTSSR 



30$ 



CKLOOP 

MOV 
MOV 



I CALL TAPE RHWIND COMMAND 




J SEE HOW TSSR IS 




[BR. IF NO PROBLEM 




J SAVE TSSR 




iBUMP COUNT 




jREWIND NOT ACCEPTED 




TRAP 


CJERHRD 


.UORO 


456 


.WORD 


T24RWN 


.WORD 


PKTSSI? 



iLOOP IF SFLECTEO 



#512. .R3 
FREE.T24RB 



TRAP 



[RECORD SIZE 

[STARTING WRITE BUFFER ADDRESS 



C$CLP1 



WRITE OATA.ACK.CVC-1 COMMANO 

4i***«4i***4t**«44i*«*«****4i*«****«***4i4i«4i 4****** ********************* 



65$ 



MOV 


*140005,T24PI<3 


MOV 


*T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


«SSR.R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


FATFLG 



;WRITE OATA.ACK.CVC-1 COMMAND 
iSET UP R4 WITH PACKET ADDRESS 



ERRHRD ERRNO , WRTERR , PKTSSR 



'5$ 



CKLOOP 

MOV 
MOV 



#256. ,R3 
FREE,T24RB 



[SET UP RECORD SIZE IN PACKET 




[ISSUE COMMANO 






[WAIT FOR SSR TO SET 






[GET TSSR CONTENTS 






[SET UP EXPECTED 






[ARE THEY EQUAL 






J BR. IF OK 






[BUMP COUNT 






[TSSR INCORRECT AFTER 


WRITE DATA 




TRAP 


C$ERHRD 




.WORD 


457 




.WORD 


WHTERR 




.WORD 


PKTSSR 


iLOOP IF SELECTED 








TRAP 


C$CLP1 


[SIZE OF RECORD 






[STARTING READ BUFFER 


ADDRESS 





IrEAD DATA.ACK COMMANO 
J 

165$: 



MOV #100401, T24PK3 

MOV #T24PK3.R4 

MOV R3,T24SZ 

MOV fl4,TS0B(R5) 



[READ DATA.ACK COMMANO 
[SET UP P4 WITH PACKET ADDRESS 
(SET UP RECORD SIZE IN PACKET 
[ISSUE COMMAND 



TSVr ■ HARDWARF. TtSTS 1-3 

TEST 4: BASIC READ DATA (TORWARD AND REVERSt) 



MACRO M1?00 ;>:« MAR 84 0O;44 PAGC 51 e 



SEQ 0162 



3014 

30 ir^ 

3016 
3017 
3018 
3019 
3023 



3024 

3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3041 



3042 
3043 



3044 
3045 
3046 
3047 



041110 
041114 
041120 
041124 
041126 
041130 
041134 
041134 
041136 
041140 
041142 
041144 
041144 



041146 
041152 
041154 
041160 
041162 
041164 
041170 
041170 
041172 
041174 
041176 
041200 
041200 
041202 
041202 
041202 
041204 
041212 
041214 
041220 



004 73/ 
016501 
012702 
020102 
001406 
005237 

104456 
000712 
046144 
015564 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000715 
045712 
015564 

104406 



104403 
023727 
103402 
004737 



01S340 
000002 
100204 



002212 



043650 
010000 

002212 



002212 

017272 



170* 



JGR 


PC.wAiir 


WAIT rOR SSR TO ^'.hT 






MOV 


TS5RCR5),R1 


GET TSSR CONTENTS 






MOV 


flSSR!SC!BIT2.R2 


SET UP EXPECTED 






CMP 


R1,R2 


ARE THEY EUUAL 






BtQ 


170$ 


BR. IF OK 






INC 


FATFLG 


BUMP COUNT 






ERRHRD 


ERRN0.T24TRL,tXPREC 


TS5R INCORRtCT AFTER 


READ DATA 
TRAP 
.WORD 
.WORD 
.WORD 


CJERHPD 
458 

T24TRL. 
EXPRFC 



CKLOOP 



;LO0P IF SELECTED 



C*CLP1 



TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

;GET MESSAGE BUT FF_R (XSTO) 
SET LP EXPECTED 
SET THE RLL BIT IN EXPECTED 
ARE THEY EQUAL 
BR. IF EQUAL (ALL IS WELL) 
BL»1P COUNT 
THE RLL BIT WAS NOT SET IN XSTO 

TRAP CJERHRD 
.WORD 459 
.WORD T24L0N 
.WORD EXPREC 



MOV 


T248FR-6.R1 


MOV 


R1,R2 


BIS 


*eiT12,R2 


CMP 


Rl,R2 


BFQ 


1801 


INC 


FATFLG 



180$ 



ERRHRD ERRNO . T24L0N . EXPREC 

CKLOOP 
END SUB 



00001 V 



999$ 



CMP FATFLG. 015. 

BLO 999$ 

JSR PC.CKDROP 



TRAP C»CLP1 

J >>>>>>>-»>>>i END SUBfEST >>i>>>>>>^>> 

L 10062: 

TRAP CfESUB 
IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



L J 



TSV' ■ HARDWARE TtSTS I 3 MACRO M1?00 .'< MAR -84 09:4^ PAGF 'b;> 
TEST 4: BASIC READ DATA Cf ORWARD AND REVERSE) 



SEO 0165 



3049 

3051 
305^ 
305? 
30b4 
3055 
3056 
3057 
5058 
3059 
3060 
3061 
3062 
3063 
3064 

3065 041220 
041220 
041220 104402 

3066 041222 005737 003126 

3067 041226 001002 

3068 041230 000137 041616 

3069 041234 004737 046434 

3070 041240 004737 046300 

3071 041244 004737 046372 
3072 

3073 
3074 
3075 
3076 
3077 
3078 

3079 041250 004737 016064 

3080 041254 103407 

3081 041256 005237 002212 

3085 04126? 010001 

3086 041264 
041264 104455 
041266 000714 
041270 003650 
041272 012124 

3087 041274 

3088 041274 013737 002172 

3089 041302 012704 043620 
3090 

3091 
3092 
3093 
3094 
3095 
3096 

3097 041306 004737 010752 

3098 041312 103407 

3099 041314 005237 002212 

3103 041320 010001 

3104 041322 
041322 104456 



043640 



TEST 4, SUBTEST 9 

VERIFIES THAT A READ REVERSE COMMAND SPECIf-YlNG A DATA 
BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

CAUTION 

The LSI BUS drivers for all availoble address lInegC16 21'; 
are orly checked when running on n 11/23B system with more than 
128K words of memory! 



BGNSUB 



105 



TST 


NXM^LLi 


BNE 


10$ 


JMP 


180$ 


JSR 


PC»T24RT3 


JSR 


PC.T^4RE5T 


JSR 


PC,T24RT2 



->>>>>>>>>>>> BEGIN SUBTEST >>>>>>>•>>>>> 

T4.9: 

TRAP C$BbUB 
DO WE HAVE IT? 
BR. ir ENOUGH 
SKIP THIS TEST IF NOT 
SET UP OTHER COMMAND PACKET 
I SET C0MMAr4D PACKET 
; SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20 J 



JSR 


PCSOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


(BUMP COUNT 




MOV 


RO.Rl 


;CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


J FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


460 






.WORD 


SFItRR 






.WORD 


SFIMSG 



MOV U»VITN,T24DSW 
110V *T24PACKET,R4 



I SET DRIVE NUMBER IN PACKET 

J SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



JSR PC, WRTCHR 

BCS 24$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WR TMSG . SFIMSG 



; ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
;BUMP COUNT 

(SAVE CONTENTS OF TSSR 
iWRTTE CHARACTERISTISC FAILED 

TRAP 



C$ERH«0 



TSV7 - HARDWARE TESTS 1-3 MACRO MIPOO .V^-MAR-SA 09:44 PAGE 52 ■ 1 
TEST 4: BASIC READ DATA CTORWARD AND REVERSE) 



3105 

3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3122 



3123 

3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3146 



3147 

3148 
3149 
3150 
3151 
3152 
3153 



041324 
041326 

041350 
041332 
041332 



041334 
041340 
041344 
041350 
041352 
041354 
041360 
041360 
041362 
041364 
041366 
041370 
041370 
041372 
041376 



041404 
041412 
041416 
041416 
041422 
041426 
041432 
041436 
041442 
041444 
041446 
041452 
041452 
041454 
041456 
041460 
041462 
041462 
041464 
041470 
041476 



000715 
005054 
012124 

104406 



004737 
004737 
004737 
103407 
010001 
005237 

104456 
000716 
0450 76 
012136 

104406 
012703 
013737 



012737 
0i;.'!704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000717 
005111 
012136 

104406 
012703 
013737 
0X3737 



021276 
011104 
016426 



002212 



24$: 



CKLOOP 



(LOOP ir SELECTED 



.WORO 
.WORD 
.WORD 

TRAP 



461 

WSTMJG 
SriMSG 

CSCLPl 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

; INVERT THE EXTENDED FEATURES SWITCH 
;CALL TAPE REw:^ND COMMAND 
tSEE HOW TSSR IS 
jBR. IF NO PROBLEM 
iSAVE TSSR 
;BUMP COUNT 
ERRHRD ERRNa.T24RWN,PI<TSSR ; REWIND NOT ACCEPTED 



JSR 


PC. INVERT 


JSR 


PC, REWIND 


JSR 


PC.CHKTSSR 


BCS 


30^ 


MOV 


RO.Rl 


INC 


FATFLG 



30$: 



000400 

003114 043742 



CKLOOP 

MOV 
MOV 



jLOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


462 


.WORD 


T24RWN 


.WORD 


PKTSSR 



0256. .R3 
FREE.T24RB 



TRAP 



I RECORD SIZE 

t STARTING WRITE BUFFF;^ ADORESb 



CJCLPl 



WRITE DATA.ACK.CVC-l COMMAND 



140005 043740 
043740 

043746 
OOOOOO 
016340 
000002 
000200 



002212 



65$: 



MOV 


*).40005.T24PK3 


MOV 


ffT24PK3,R4 


MOV 


R3.T24SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



ERRHRD BRRNO . WRTERR , PKTSSR 



75$: 



000400 

003130 043742 

003132 043744 



CKLOOP 

MOV 
MOV 
MOV 



0256. .R3 

NXML0,T24RB 

NXMHI»T24RB»2 



;WRITE DATA,ACK»CVC-1 COMMAND 
J SET UP R4 WITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

(WAIT FOR SSR T'.» SET 

jGET TSSR CONTEriTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

I BR. IF OK 

:BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 4o3 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

1 RECORD SIZE 

(STARTING READ BUFFER ADDRESS 

:SET ADDRESS BITS 16-17 



^>EQ 0164 



J *+*+******4**+*******************+******+*4 ♦♦♦♦*♦♦♦*♦♦♦**♦** ♦♦♦♦♦♦ 



TSV7 - HARDWARE TtSTS 18 

TtST 4: BASIC READ DATA (fORWARD AND RtVbRSf.) 



.1 1. ') 
MACRO M1200 .^:'^-hAR-»4 09:44 PAGB 52-2 



SEQ 01^.5 



5154 








iRKAD 


DATA.ACK 


COMMAND 






3155 


















3156 








• 4.4<4^>f4i« + ****« + 4i + 4^4i***«*j*L*4i«*4i**4(4t4>j»4.<|i4i4>*4L4****«4*******4i*ii**iiA4i4'4«4 




3157 


















3158 


041504 


012737 


100001 043740 




MOV 


<^100001,T24PI<3 


READ DATA.ACK COMMAND 




5159 


041512 


012704 


043740 


165 S: 


MOV 


0T24PI<3,R4 


SET UP R4 WITH PACKET ADDRE1.S 




3160 


041516 


010337 


043746 




MOV 


R3.T24Si^ 


SET UP RECORD SIZE IN PACKET 




3161 


041522 


010465 


000000 




MOV 


R4,TSDB(R')) 


ISSUE COMMAND 




3162 


041526 


004737 


016340 




JSR 


PC.WAITF 


WAIT FOR SSR TO SET 




3163 


041532 


016501 


000002 




MOV 


TSSHCR5),R1 


GET TSSR CONTENTS 




3164 


041536 


012702 


104210 




MOV 


tfSSR!NXM.'SC!BIT3,R2 


SET UP EXPECTED 




3165 


041542 


020102 






CMP 


R1.R2 


ARE THEY EQUAL 




3166 


041544 


001406 






BEQ 


170$ 


BR. IF OK 




3167 


041546 


005237 


002212 




INC 


FATFLG 


BUMP COUNT 




3171 


041552 
041552 
041554 
041556 
041560 


104456 
000 720 
046144 
012136 






tRRHRO 


ERRN0,T24TRL.PI<TSbR 


TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 


CJERHRD 
464 
T24TRL 
PKTSSR 


3172 


041562 
041562 


104406 




170$: 


CKLOOP 




LOOP IF SELECTED 

TRAP 


CSCLPl 


3173 


















3174 








.«********4ik*****««4,***4,4«4L**** + *4,«4*««««*^««*«44«*«*4it4,44A4i4.4t4,4,4,^4 




317f. 








t 










3176 








;RF.AD 


MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 




3177 


















3178 
3179 








;44i*4i4i*4i****4i4t4i***A«4**«*«**«4i + 4>4>*4i>*4'<K4(4i*4>******«****«***** + 4i«*««« 




3180 


041564 


013701 


043650 




MOV 


T24BFR*6.R1 


GET MESSAGE BUFFER 




3181 


041570 


010102 






MOV 


R1,R2 


SET UP EXPECTED 




3182 


041572 


052 702 


040000 




BIS 


*BIT14.R2 


SET THE RL5 BIT IN EXPECTED 




3183 


041576 


020102 






CMP 


R1,R2 


ARE THEY EQUAL 




3184 


041600 


001406 






BEQ 


r80» 


BR. IF EQUAL (ALL IS WELL) 




3185 


041602 


005237 


002212 




INC 


FATFLG 


BUMP COUNT 




JX69 


041606 








ERRHRD 


ERRN0.T24L0P EXPREC 


THE RLL BIT WAS NOT SET IN XSTO 




0416C6 


104456 










TRAP 


CJERHRD 




041610 


000721 










.WORD 


465 




041612 


045774 










.WORD 


T241 OP 


5190 


041614 
041616 
041616 


015564 
104406 




180$: 


CKLOOP 




.WORD 
TRAP 


EXPREC 

CJCLPl 


3191 


041620 








ENDSUB 




>>>>>*!>>>>> END SUBTEST >> ^^>> > -^^ > >> 




041620 












L 10063: 






041620 


104403 










TRAP 


CJtSUB 


3192 


041622 


023727 


002212 000017 




CMP 


FATFLG. dl5. 


; iS ERROR COUNT AT 25 




3193 


041630 


103402 






BLO 


999 1 


;BP, IF I ESS THAN 25 




3194 


041632 


004737 


017272 




JSR 


PC.CKDROP 


;TfiTf TO DROP THE UNIT 




3195 


041636 






999* : 











TSV; - HARDWARE 


T[;STS 1 


3 


TtST 4 


BASIC 


RtAD DATA (fORW 


3196 








3199 








3;>oo 








3201 








3P02 








3;>o? 








3204 








3<:C5 








3.^06 








-S207 








3208 








3;*09 








3210 


041636 
041636 








041636 


104402 




3211 


041640 


004 737 


046434 


3212 


041644 


004737 


0-16300 


3213 


041650 


004737 


046372 


5214 








321S 








3216 








3217 








3218 








3219 








3220 








3221 


041654 


004737 


016064 


3222 


041660 


103407 




3223 


041662 


005257 


002212 


3227 


041666 


010001 




3228 


041670 








041670 


104455 






041672 


0007"^ "^ 






041674 


003650 






041676 


012124 




3229 


041700 






3230 


041700 


013737 


002172 


3231 
3232 
3233 


041706 


012704 


043620 








3234 








323b 








3256 








3237 








3238 








3239 


041712 


004737 


010752 


3240 


041716 


105407 




3241 


041720 


005257 


002212 


3245 


041724 


010001 




3246 


041726 








041726 


104456 






041730 


000725 






041732 


005054 






041734 


012124 




3247 


041756 








041756 


104406 




3246 


041740 


013V37 


003114 


3249 









MACRO M1200 :.'? MAR-84 09:44 



PAGE 54 



SF;Q 0166 



043640 



TEST 4. SUBTEST 10 

VERiriF.S THAT ILLEGAL. MODE -Fill D CODES IN THE REAL- 
COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH iHt" 
ILLEGAL COMMAND (ILC) ERROR BIT SET. 



BGNSUB 



JSR 
JSR 
JSR 



PC,T24RT3 

PC.T24REST 

PC.T24RT? 



• >>>>>>>>>>>> BEGIN SlXiTEST >>>>>v^>>.>> 

T4.10: 

TRAP C$BSU3 
SET COMMAND PACKET UP CLEAR 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

DO INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 
BUMP COUNT 

CONTENTS OF TbSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



JSR 


PC.SOFINIT 


BCS 


20* 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFXERR.SFIMSG 



20$ 



C$ERDF 
466 
SFIERR 
SFIMSG 



MOV UNITN,T24DSW 
MOV *T24PACKET,R4 



i SET UP DRIVE NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 



JSR PC, WRTCHR 

BCS 24$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO.WRTMSG.SFIMSG 



24$ 



043742 



CKL OOP 
MOV 



FREE.T24RB 



tissue WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

iBUMP COUNT 

(SAVE CONTENTS OF TSSR 

iWRlTE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;l UUP IF Sf-LKCrED 

TRAP 

I STARTING WRITE BUFFER ADDRESS 



CSERHRD 
46/ 

WRTM5G 
SFTMSG 

C$CLP1 



rS'. ' - HAt?DWARK 
Te.SV 4: BASIC 

?256 

3259 
3L>60 
3261 
3262 
3263 
326A 
3265 
3269 



I I - J 
U.STS 1 8 MACRO M1200 :'?MAR-H4 09:44 PAGt 54 i 

READ DATA CrORWARD AND REVl.RSF.:) 

iLLtGAL MODE DATA.ACK COMMAND 



3270 

3271 
3272 
32/5 
3274 
32/5 
32 76 
3277 
32 78 
3279 
3280 
3281 
3:^82 
3283 
3287 



3288 
3289 



3290 

3291 
32'0 
3293 



041746 
041754 
041760 
041766 
041772 
041776 
042002 
042006 
042010 
042012 
042016 
042016 
042020 
042022 
042024 
042026 
042026 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000724 
044265 
012136 

104406 



104001 
043740 
000400 
000000 
016540 
000002 
100206 



002212 



042030 
042034 
042056 
042042 
042044 
042046 
042052 
042052 
042054 
042056 
042060 
042062 
042062 
042064 
042064 
042064 
042066 
042074 
042076 
042102 



043650 
001000 



002212 



04 3740 
043746 



MOV 


<>104001,T24PI<3 


MOV 


dT24Pl<3.R4 


MOV 


^256. ,T24S/ 


MOV 


R4. fSDB(R5) 


JSR 


PC.WAITt- 


MOV 


TSSR(R5).R1 


MOV 


*SSR!SC!BIT1!B1T2, R2 


CMP 


R1.R2 


BEQ 


/5* 


INC 


FATFLG 



75$ 



ERRHRD ERRNO . T24WDF , PKTSSR 



CKLOOP 



ILLEGAL MODE DATA.ACK COMMAND 

SET UP R4 WITH PACKF T ADDRFS^i 

SET IJP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSRlBiri 'BIT? TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

BUMP COUNT 

TSSR INCORRECT AFTER READ DATA 

TRAP CitRHRD 

.WORD 468 
.WORD T24WDF 
.WORD PKTSSR 
J LOOP IF SELECTED 

TRAP CJCLPl 



015701 
010102 
052702 
020102 
001406 
005237 

104456 
000725 
044426 
015564 

104406 



104405 

025727 002212 000017 

105402 

004737 017272 



READ MESSAGE BUFFER EXfENOED STATUS REGISTER ZERO (XSTO) 

iGET MESSAGE BUFFER 

;SET L*' EXPECTED 

:5ET THE ILC BIT IN EXPECTED 

;ARE THEY EQUAL 

J BR. IF EQUAL CALL IS WELL) 

I BUMP COUNT 

I THE ILC BIT WAS NOT SET IN XSTO 

TRAP riERHRD 

.WORD 4ti9 
.WORD T.?4L0Q 
.WORD EXPREC 



MOV 


T24BFR»6.R1 


MOV 


R1.R2 


HIS 


<>eiT9.R2 


CMP 


Rl..?2 


BEQ 


180i 


INC 


FATFLG 



180$ 



ERRHRD ERRNO , T24LUQ , EXPREC 

CKLUOP 
ENDSUB 



999*: 



CMP 

Bl 
JSR 



FA^^Lt;.ftl5. 

999$ 

PC.CKOROP 



TRAP C$CLP1 

;>>>>i>!»'>->bi-. tND SUB IF ST >i>^>>^>^^^^ 

1.10064: 

TRAP L$ESUO 
IS ERROR COUNl AT 25 
BR, IF LESS THAN 2'^ 
TRY TO DROP THE UNIT 



SEQ 0167 



-J 



Tsv/ - MAnnuARf yrsTs I a 

TtST 4: BASIC Rif.AD DATA CroRwARD AND REVKRSE) 



MACRO MU'OO .'<t-1AR-a4 09:41 PAlit ^3^) 



329/ 

?r.'98 

,^?99 

3301 

3303 
3304 
330S 
3306 
3307 



3308 
3309 
3310 
3311 
331.^ 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
33?4 
3325 



3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3535 
3336 
3337 
3338 
3342 
3343 



3344 

3545 
3346 



042102 
042102 
042102 
042104 
042110 
042114 



104402 

004 737 046434 

004737 046300 

004737 046372 



042120 
042124 
042126 
042132 
042134 
042134 
042136 
042140 
042142 
042144 
042144 
042152 



004737 016064 

103407 

005237 002212 

010001 

104455 
000726 
003650 
012124 

013737 0021/2 
012704 043620 



042156 
042162 
042164 
042170 
042172 
042172 
042174 
042176 
042200 
042202 
042202 
042204 
042212 



004737 010752 

103407 

005237 002212 

010001 

104456 
000727 
005054 
012124 

104406 

015/37 003114 

012757 177700 



043640 



n-ST 4, SUBTtST 11 

VCRTFirS THAT ILLEGAL BUFM.R AUDRESSFS CAUSF f\ 
FUNCTION RLJf.CT TF.RNINATION WITH ILLEGAL ADDREf/i 
(ILA) ERROR BIT SET. 



I - 



BGNSUB 



JSR 


PC.T24RT3 


JSR 


PC,T24RtST 


JSR 


PC.T24HT2 



.S-. >>>>>>^>>> BEGIN raJBTEr.T >>>>>> ^i..^> 

r4.ll: 

TRAP CSBBUB 
SET COMMAND PACKLT UP CLEAR 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 

ISSUE CONTROLLER "SOFT" INITIALIZE ■ CARRY PIT CLEAR IF ERROP 

DO INITIALI/t ON CONTROLLER 

BR IE INIT WA5 OK 

BUMP COUNT 

CONTENTS OE T5SR REGISTER 
.TOTAL ERROR TSSR WAS NOT OK 

TRAP 
. WOR( ) 
.WORL 
.WORD 



JSR 


PC.SOFINIT i 


BCS 


20J J 


INC 


EATFLG J 


MOV 


RO.Rl ; 


ERRDE 


ERRNO.SElERR.SFlMSb 



20$ 



CSERDE 
4/0 
SEIERR 
SFIMSG 



MOV UNITN.T24DSW 
MOV <>T24PACKET,R4 



iSET UP DRIVE NUMBER 
;SL'BROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 



JSR PC.WRTCHR 

BCS 24i 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



24$ 



045/42 
043744 



CKLOOP 

MOV 
MOV 



FREt ,T24RB 
/a7/700,T24Rl3»2 



ilSSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

;BUMP COUNT 

(SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

jLOUP IF SELECTED 

TRAP 

(ILLEGAL STARTING READ BUFFER ADDRESS 

(CREATE ILLEGAL ADDRESS 



C$ERHRD 
471 

WRTMSG 
SFIMSG 

C$CIP1 



SEO 0168 



TSV7 - HARDWARE 
TEST 4: BASIC 



534/ 
3346 
334--:» 
3350 
3351 
33b^ 
33^j3 
3354 
3355 
3356 
3357 
3350 
3359 
3360 
3361 
3362 
3363 
3367 



TESTS 1-8 
RtAD DATA (TORWARD AND REVhRSt) 



MACRO M1?00 ;^3-MAR-84 09:44 PAGE 55 1 



3363 

3369 
3370 
3371 
33V,? 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3385 



3386 
3387 



3388 
3389 
3390 
3391 



042220 
042226 
042232 
042240 
042244 
042250 
042254 
042260 
042262 
042264 
042270 
042270 
042272 
0422V4 
042276 
042300 
042300 



042302 
042306 
042510 
042314 
042316 
042320 
042324 
042324 
042326 
042330 
042332 
042334 
042334 
042336 
042336 
042336 
042540 
042346 
042350 
042354 



012737 140001 043740 

012704 043740 

012737 000400 043746 

010465 000000 

004737 016340 

016501 000002 

012702 100206 

020102 

001406 

005237 002212 

104456 
000730 
044 .12 

012:.36 

104406 



013701 043650 

010102 

052702 000400 

020102 

001406 

00523 7 002212 

104456 
000731 
044342 
015564 

104406 



104403 

023727 002212 

103402 

004737 017272 



000017 



******************** *** + ******** + t***#** + ******+***4^***4 + *4, + 4(*^, + 4.^ 
LEGAL MODE. ACK. CVC ■!. READ COMMAND 



75 S 



MOV ^n40001,T24PI<3 

MOV #T24PK3,R4 

MUV fl256. .T24S/ 

MOV R4.T5DB(R5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV <^SSR!SC!BIT1!BIT2,R2 

CMP R1.R2 

BEQ 75$ 

INC EATFLG 

ERRHRD ERRN0,T24W0G,PI<TSSR 



CKL OOP 



; LEGAL MODE. ACK.CVC-l. READ COMMAND 

I SET UP R4 WITH PACKET ADDRESfj 

iSET UP RECORD SIZE IN PACKET 

i ISSUE COMMAND 

jUAIT P-QR SSR!BIT1!BIT2 TO SET 

iCET TSSR CONTENTS 

;SET UP EXPECTED 

jARF THEY EQUAL 

;BR. IF OK 

iBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAP C$KRHRD 

.WORD 

.WORD 

.WORD 
iLOOP IF SELECTED 

TRAP 



4/2 

T24WDG 

PKTSSR 



CJCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 

MOV 
BIS 
CMP 
BEQ 

INC 



T24BFR*6,R1 

R1.R2 

^»eIT8.R2 

R1.R2 

180$ 

FATFLG 



180$ 



999$ 



ERRHRD ERRN0.T24ILA.tXPHEC 

CKL OOP 
ENDSUB 



CMP FATFLG. ftl5. 

BLO 999$ 

JSR PC.CKDROP 



GET MESSAGE BUFFER 

SET UP EXPECTED 

SET 'irlE ILA BIT IN EXPECTED 

ARE THEY EQUAL 

BR. IF EQUAL CALL IS WELL) 

BUMP COUNT 
I THE ILA BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 4 73 
.WORD T24ILA 
.WORD EXPREC 

TRAP CiCl.Pl 
.*»>>>!,>>>>■>>> END SUBTFST >>>>>>>^>>>> 

L10065: 

TRAP C$EbUe 
IS ERROR COUNT AT 25 
BR. IE LESS THAN 25 
TRY TO DROP THE UNIT 



SEQ 0169 



TLbT 4; BAtilC RtAL) DATA { ( ORWAHO AND Rt^VlHSK) 



MACHil Ml.HiO /< MaR H4 O'lj^/I F>AUI 'if. 



'iMj 01/0 



?.^^ 

:'. ^"»'> 

.^401 
^4 Of.' 
.^40^ 
5404 

5406 
540 ' 
540H 
540'* 
3410 



:mii 

541.' 

5415 
.5414 
54 IS 
5416 
541 / 
54lfl 
5414 
54?0 

54 ^n 

5425 
54^'4 
5425 
5426 

54 50 
5451 



545? 
5455 

54 54 
5455 

54-56 
5457 
54 5fl 
5459 

5440 
5441 
5442 
544 5 
5444 
5448 
3449 



042554 
0425S4 
0425S4 
042556 
042562 
042564 
042570 
0425 74 
042400 



042404 
042410 
042412 
042416 
042420 
042420 
042422 
042424 
042426 
042450 
042450 
042456 



042442 
042446 
042450 
0424S4 

042456 



104402 
005757 
001002 
000157 
004757 
0O4757 
004757 



004757 
105407 
005257 
OlOOOl 

104455 
000752 
005650 
012124 

015757 
012704 



0O47 V 
10540 7 
0052 5/ 
OlOOOX 



Tfsi 4, wmu sr ir' 

vrRIFU.S THAT A DATA BU^tR ADDHtS^ REKRt NCIMr. 
NUNMISTANT MEMORY CAUStS HKCOV^RABIF (-RROR 
TERMINATION (TC'4). WITH THf. NXM HIT st T IN THf- rsSP, AN() 
IHAT TMt lAPf . mTJMATllY POSIT lONFD PROPFRl t. 

CAUTION 

rh« I SI Bus driver* for all availnbl* B<lare9« l'n«fi(y. ,'1' 
«r» only ch*cW«d wh«n running on a ll/2^H «y«t«m with nvore th»*-« 
1,'ftK words of memory ! 



UtiNSUG 



!>>» >>>>»>> 



005126 

042572 
0464 54 

046 500 
046572 



Bfr.IN SueTfcST 
T4.12! 

TRAP 



10«i 



T",T 


NXMf LG 


BNE 


10» 


,>MP 


flOl 


JSR 


PC.T24RT5 


JSR 


PC.T24RtST 


JSR 


PC.T24RT2 



CiBSiJt; 



iDO we HAVE IT? 

iBR. IF ENOUGH 

iSKIP THIS TEST IF NOT 

iSlT COWANO PACKET UP CLEAR 

)SET COrtlANO PACKET 

I SET UP OTHER COMMAND PACKET 



016064 
002^12 



rSSL«^ COMTROLIER "SOf T- INITIALI/E CARRi BIT CLEAR IE FRHOR 



lOO INITIAl IZE ON CONTROl.LER 

tBR IE INIT WAS OK 

iBUMP COUNT 

TSSR REGISTER 
T5SR WAS NOT Ox 
TRAP 

.wo«o 

.UORO 
.WORD 



JSR 


PC.SOf INIT 


BCS 


20* 


INC 


FATFlG 


MOV 


R0.:^1 


ERRDF 


tRRNO.SFlERR.SFlMSG 



iCONTENTS OF 
iFATAL ERROR 



002172 
043620 



043640 



20Ji 



CURD* 
4 74 

SF ItRR 
sriMSG 



MOV UNITN.T24DSW 

MOV *T24PACKET,R4 



(SET UP DRIVE NUMBER 

(SUBROUTINE NEEOS PACKET ADOREbS 



(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



,** 



010 752 



JSR 


PC.WRTCHR 


BCS 


241 


INC 


f ATFLG 


MOV 


RO.RI 


ERRHRO 


tRRNO.WRTMSU.^UMU* 



(ISSUE Irf^ITE CHARACTERISTICS 
iHR, If COMMAND ISSL^FO OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC J-'AlLtO 



^\ 



TbST 4: BASIC RFAD DAT.\ ( ( ORWAWl) AND RtVtRSt:) 



-.f-'J 01 /I 



5450 
?t4Sl 

?4S5 
.M54 

5456 
345/ 
34Si* 
3459 
3460 
3461 
346^ 
3-563 
3464 
3465 
3466 
3467 
3463 
3469 
34 70 
3474 



34 75 

34 76 
34 77 



34 78 
34 79 
34e0 
3401 



04.!456 
04P460 

04c!464 
042466 
042466 

0424 ;o 

0424 74 
O4250i> 



042510 
042516 
042520 
042530 
042554 
042S40 
042544 
042550 
042552 
042554 
042560 
042560 
042562 
042564 
042566 
042570 
042570 
042572 
042572 
042572 
042572 
042574 
042602 
042604 
042610 



1044S6 
0007^^ 
005054 
0U»K'4 

104406 
004 73 7 
013/3/ 
013757 



01c757 
012704 
012757 
010465 
004/57 
016501 
012702 
020102 
001406 
0052:^7 

104456 

000/54 
044201 
012136 

104406 



104403 
025727 
105402 
004737 



140001 
045740 
000400 
000000 
016540 
000002 
104210 



002212 



t'4$ • 



021.-^ v. 

005150 (14'. /4.' 

005132 043V44 



CKl (lOP 

JS« 
MOV 
MOV 



PC.lNVeRT 
NXMl 0. T24fU( 
NXMHI, r^MHH*. 



TRAP CU^^HRf; 

.WORO ^r> 

.WORD WRTMOG 

.WORD ".FIM'^c, 

ll nOP n '.MFCT^D 

^RAp ^JCLPl 

iINVtRT THf_ t-.XTtiNOFO ^FATijRES 5WITCH 

jbKT TO NXM MfcMORY ADDRFS'-. 

iSFT Hrf;H BITS 



)***«« 



1 

iREAD, ACK. CVC-1. COMMAND 



045740 
045746 



MOV 


0140001.T24PK3 


MOV 


«T24PK5.R4 


MOV 


♦256. .T2*S/ 


MO^ 


R4,TSDbCR5) 


JSR 


PC.WAITF 


MOV 


T5SR(R5).R1 


MOV 


«S5R!.:C!NXMIBIT;,R2 


CMP 


R1.R2 


BtQ 


751 


INC 


FATfLG 


f.RRHRD 


ERRNa.T24NXM.PKTbS^ 



/5>; 

aoj; 



CKl OOP 



LNOSL« 



iREAD, ACK. CVC-1. COMMAND 

iStT UP R4 WITH PACKET ADORFSS 

» SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iWAIT EOF SSR!BITi!BIT2 TO ':-fcT 

I GET TSSR CONTENTS 

I SET !>> EXPECTED 

lARF THEY EQUAl 

iBR, IF OK 

jBUMP COUNT 

jTSSR INCORRECl ArrtR RfcAD DATA 

TRAP 
.WORD 
.WORD 
.WORD 

il.OOP IE SELECTED 

TRAP 



CIEKHRD 
4 7o 

T24NXM 
PKTS5R 

CICL.Pl 



] >>>>>>vr» > > > > END SUBTEST >>>>>*>-■»>-.> 



002212 000017 
017^7a 



9<?9J; 



C.^ 
BlO 
JSR 



F ATFLG.Olb. 

999$ 

PC.CKOROP 



L 10066: 

TRAP 
;IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP TH£ UNIT 



ciesuB 



4 



TtbT 4: BASIC RhAD DATA (FORWARD AND RhVFRSH") 



MAR 84 (y)!44 I'AGr '\1 



\^n 01 /c'. 



3485 
34 M 
3485 
348f^ 
548.* 
3488 
3489 
3490 
34-^1 
349J 
3493 
3494 
349b 



3496 
3497 
3498 
3499 
3S00 
3S01 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3512 
3513 



3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3530 
3531 



3532 

3535 
3534 



042610 
042610 
042610 
042612 
042616 
042622 



042626 
042632 
042634 
042640 
042642 
042642 
042644 
042646 
O42650 
042652 
042652 
042660 



042664 
042670 
042672 
0426 76 

042700 
042700 
042702 
042704 
042706 
.>»2710 
042710 



013737 
012704 



TESI 4. SUBVtST 13 

VLRTMF.S THAT A RF.AD RFVERSh COMMAND IS'.Ut-D WHU t THr 
TAPf. IS AT BOT RFSLH TS IN K'NCTION HtJhCI TERMJNAiION 
WITH THlr. NONEXtCUTABLE FUNCTIUN CNtf- ) ERRUR BIT SET 



BGNSUB 



104402 

004737 046454 

004 737 046300 

004737 046372 



J5R 


PC,T24RT3 


JSR 


PC,T24RE5T 


JSR 


PC,T24RT? 



T4.13: 

TRAP CJB'iiJfJ 
J GET COMMAND PACKET UP CLFAR 
J SET COMMAND PACKET 
; SET UP OTHER COMMAND PACKET 



> / 



I ISSUE CONTROLLER "SOn- INITIAL I7t - CARRY BIT CLEAR IF ERROR 
i 



004 737 016064 

105407 

005237 002212 

010001 

104455 

000735 
005650 
012124 



002172 
043620 



043640 



20$ 



JSR 


PC.SOFINIT 


»00 INITIALIZE ON CONTROLLER 




BCS 


201 


iBR IF INIT WAS OK 




INC 


»-ATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(CONTENTS or TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.bFIMSG 


jFATAL ERROR TSSR WAS NOT OK 








TRAP 


CIERDF 






.WORD 


47/ 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNXTN.T240SW 
MOV *T24PACKET.R4 



J SET UP DRIVE NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



004737 030752 

105407 

005237 002212 

010001 

104456 
000756 
005054 
012124 

104406 



WRITE CHARACTERISTICS COMMAND (CAU TO WRTCHR) 



I ISSUE WRITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 

(BUMP COUNT 

iSAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTISC 



JSR 


PC, WRTCHR 


BCS 


24 t 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRO 


ERRNO.WRTMSG.SFIMSG 



24$ 



CKLOOP 



OUT IF SELECTED 



FAILED 




TRAP 


CiERHRO 


.WORD 


4 78 


.WORD 


WRTMSG 


.WORD 


SFTMSG 



TRAP 



CJCLPl 



I «««*4i*4ii«««**««*^****««4,««4«««*«*444,**««4i44*«««««A4t«'»L««*«4*« ****** 



TSV7 - HARDWARt TtSTS 1 S MACRU ML*.^00 /.< MAR-a4 09:4^ 

T&ST 4: BASIC RBAO DATA CTORWARD AND RFV^RSh) 



PAGb" '// I 



104456 
000737 



104406 
012703 
013737 



3531) 
35:^6 
3537 
353S 
3539 

3540 042712 

3541 042716 

3542 042722 

3543 042724 

3544 042726 
3548 042732 

042752 
042734 
042736 045076 
042740 012136 
354 '9 042742 
042 742 

3550 042744 

3551 042750 
3552 
3553 
3554 
3555 
3556 
3557 
3558 

3559 042756 

3560 042764 

3561 042770 

3562 042770 

3563 042774 

3564 043000 

3565 043004 

3566 043010 012702 

3567 043014 020102 

3568 045016 001406 

3569 045020 005237 

3573 043024 
0430,''4 104456 
043026 000740 
043030 044541 
043032 

3574 043034 
043034 

3575 
3576 
3577 
3578 
3579 
3580 
3581 

3582 043036 

3583 043042 

3584 043044 

3585 043050 

3586 043052 



004737 011104 
004757 016426 
103407 
010001 
005237 



012737 
012704 

010337 
010465 
004737 
016501 



012136 
104406 



C13701 
010102 
052702 
020102 
001406 



002212 



000400 
003114 



100401 
043740 

043746 
000000 
016340 
000002 
100206 



002212 



043650 
002000 



043742 



043740 



;IStiUe. Rt.WtNO COMMAND TO Sf.LECTF.O TAPK ORlVf, 
I 



30 1 



JSR 
JSR 
BCS 
MOV 
INC 
tRRHRD 



CKLOOP 



PC. REWIND 

PC.CHKTSSR 

30 i 

RO.Rl 

FATKLG 

bRRN0.T24RWN.PKTSSR 



(CALL TAPE RhWTNb COMMAND 

[GLt HOW rsSR IS 

J OR. IF NO PROBIFM 

jSAVt TSSR 

I BUMP COUNT 

iRtWIND NOT ACCtPTEO 



iLOOP IF SFLhCTED 



MOV 
MOV 



0256. ,R3 
rRF.E,T24RB 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



iRtCORO SI2E 

iSTARTINJG WRTTF BUTF FR AD0RFS5 



READ REVERSE OATA.ACK COWIANO 



65$ 



751 



MOV 
MOV 

MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



«100401,T24PK3 
#T24PK3,R4 

R3.T24SZ 

R4,TS0BCR5) 

PC.WAITF 

TSSRCR5).R1 

*S5R!SC!BIT1!BIT2.R2 

R1,R2 

75$ 

FATFLG 

ERRN0.T24WDE,PI<TSSR 



I READ REVERSE OATA.ACK COMMAND 
iStT UP R4 WITH PACKET ADDRESS 

iSET UP RECORD SIZE IN PACKET 

tissue COMMAND 

iWAIT FOR SSR TO SET 

iCET TSSR CONTENTS 

jSET UP EXPECTED 

J ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAP 
WORD 

.WORD 

.WORD 
iLOOP IF SELECTED 

TRAP 



;4**44** + **«4****«******************************«*«44««4«*4>**««*«** 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



3587 043054 005237 002212 



MOV T24BFR#6.R1 

MOV R1.R2 

BIS *6IT10.R2 

CMP R1,R2 

BEQ 1801 

INC FATFLG 



iGET MESSAGE BUFFER 

I SET UP EXPECTED 

jSET THE NEF BIT IN EXPECTED 

iARE THEY EQUAL 

I BR. IF EQUAL ULL IS WUL) 

iOUMP COUNT 



':>io ow: 



CU.RHPD 
4/9 
T24RWN 
PKTS'^R 

CJCLPl 



c;erhrd 

480 

T24W0fc 

PKTSSR 

CJCLPX 



TSV/ - HARDWAHf. ThSTS 1 8 MACRO MU-^OO .^': MAR m O")!40 

TEST 4: BASIC READ DATA CrORWARD AND RF.Vt'RSE) 



Kl 



PAGK 



3591 C43060 
045060 104456 
043062 000741 
043064 043770 
043066 015564 

3592 043070 
043070 104406 

3H93 043072 
043072 
043072 104403 

3594 043074 023727 

3595 043102 103402 
35% 043104 004737 
3597 043110 



1805 



002212 
017272 



000017 



999$ 



F.RRHRD tRRNO , T24NEF . EXPREC 

CKLOOP 
tNDSUB 



CliP H\TMG.«15. 

BLO 999$ 

JSR PC»CI<0R0P 



tlHE RLE BIT WAb NOT bhT IN XSTO 

TRAP C lERHRD 
.WORD 481 
.WORD T24NEF 
.WORD EXPPFC 

TRAP CiCLPl 
j >>>>>>>>>>>> END SUBTEST >>>>-»>^>>^:-^ 

I 1C067: 

TRAP CibS'-fB 
;I0 ERROR COUNT AT 25 
iBR. IF LtS5 THAN 25 
J TRY TO DROP THE UNIT 



SEQ 01 /4 



TSVr - HARDWARE TF.STG 18 MACRO MlPOO .-•"^■MAR-M 09:44 
Ttsr 4: BASIC READ DATA f FORWARD AND REVrRSE) 



'. -^ i 4 

PAGE bH 



SEQ 01 /S 



359^ 
3600 
3601 
360.? 
3603 
3604 
3^05 
3^06 
3b07 
3608 
3609 
3610 

3611 043110 
043110 
043110 

3612 043112 

3613 043116 

3614 043122 
3615 

3616 
3617 
3618 
3619 
3620 
3621 

3622 043126 

3623 043132 

3624 043134 

3628 043140 

3629 043142 
043142 
043144 
043146 
043150 

3630 043152 

3631 043152 

3632 043160 
3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 043164 

5641 043170 

3642 045172 

3646 043176 

3647 045200 
043200 
043202 
043204 
045206 

3648 045210 
043210 

3649 
3650 



104402 
004737 
004737 
004737 



004737 
103407 
005237 
010001 

104455 
000742 
003650 
012124 

013737 
012704 



0O4737 
103407 
005237 
010001 

104456 
000743 
005054 
012124 

104406 



TEST 4, SUBTEST 14 

VERIF IF.S THAT A READ REVERSE COMMAND ISSUED WHlL.h THE 
TAPE Ij POSITIONED BEFORE THE FIRST RECORD ON TAPE 
(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 



046434 
046300 
046372 



UGNSUB 



J5R 

JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT? 



!!>>>>>>>>■»>>> BEGIN SUBTEST >>>>>>*>>>>> 

T4.14: 

TRAP C$BSUB 
SET COMMAND PACKET UP CLEAR 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 



ISSlJe CONTROLLER "SOFi -' INITIALIZE - CARRY BIT CLEAR IF ERROR 



016064 
002212 



002172 
0^3620 



043640 



20$: 



JSR 


PC.SOFINIT 


J DO INITIALIZE ON CONTROLLER 




BCS 


20 » 


;BR IF INIT WAS OK 




INC 


FATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


iFATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


482 






.WORD 


SFIERR 






.WORD 


SFIMSU 



MOV UNITN.T24DSW 
MOV 0T24PACKET.R4 



I SET UP DRIVE NUMBER 

J SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

«*4>4t«^*** **************** f*4i4>4>*4i**^44>«4i4>*««*«*4.***«******** A*** A** 



010752 
002212 



JSR 


PC, WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




BCS 


24$ 


jBR. IF COMMAND ISSUED OK 




INC 


FATFLG 


iBUMP COUNT 




MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




ERRHRO 


ERRNO.WRTMSG.SFIMSG 


jWRIYE CHARACTERISTISC FAILED 








TRAP 


CiERHRD 






.WORD 


483 






.WORD 


URTMSG 






.WORD 


SFIMSG 


CKLOOP 




:L00P IF SELECTED 








TRAP 


CiCLPl 



24* 



{***********4***************4>**********v'c^4*****************4i**«**** 



n 



TEST 4: BASIC 



36S1 
365^ 
56^3 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3664 



Tt.STS 1 8 MACfni m?00 J^ mP 6A 09:44 PACit: 58 1 

RtAD DATA (FORWARD AND Rf.Vt RStO 



3665 

3666 
3667 
3666 
3669 
3670 
3671 
36/.-^ 
367:5 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
5684 
3685 
5689 



3690 

3691 
3692 
5695 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
^'/05 



045P12 
043216 
045222 
045224 
043226 
043232 
045252 
045234 
043256 
043240 
043242 
043242 
043244 
043250 



004737 011104 

004757 016426 

103407 

010001 

005257 002212 

104456 
000744 
045076 
012156 

104406 

012705 000400 

013737 003114 



043256 
043264 
043270 
045270 
045274 
045500 
043304 
'^ 5510 
0^3314 
043316 
043320 
043524 
043524 
043326 
043550 
043352 
043554 
045354 
045356 
043342 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
005257 

104456 
000745 
005111 
012156 

104406 
012705 
013737 



045550 
043356 
043562 
043366 



140005 
045740 

045746 
COOOOO 
016540 
000002 
000200 



002212 



000400 
003114 



012757 1004J1 

012 704 045/40 

0105S7 045746 

010465 000000 



043742 



043740 



043742 



043 740 



issue, Re:wiNO command to sllectgo tapc drivf. 



JSR 


PC, REWIND 


JSR 


PC.CHKTSSR 


BC5 


30$ 


MOV 


RO.Rl 


INC 


tatflg 



tRRHRD bRRNO. T24RWN.PKTSSR 



50$ 



CKLOQP 

MOV 
MOV 



;l.OOP IF SFl KCTf-:D 



«256. .R3 

rREE.T24RH 



TRAP 



I RECORD SIZE 

; STARTING WRITE BUTFER ADDRESS 



WRITE DATA.ACK.CVC-1 COMMAND 



65$ 



MOV 


0140005, r24PK3 


MOV 


0T24PK3.R4 


MOV 


R5,T24S^ 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSRCR5).R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


75i 


INC 


FATFLG 



jWRITE OATA.ACK.CVC-1 COMMAND 
J SET UP R4 WITH PACKET ADDRESS 



SFTj 0176 



;CALL TAPE RtWIh4D COMMAND 




:Stt HOW T5SR I'j 




J BR. IF NO PROBLEM 




(SAVE TSSR 




;BUMP COUNT 




i REWIND NOT ACCEPTED 




TPAP 


CiERHRD 


.WORD 


484 


.WORD 


r24RWtJ 


.WORD 


PKTSSR 



CJCLPl 



ERRHRO ERRNO . WRTERR . PKTSSR 



75$ 



CKL.OOP 

MOV 
MOV 



0256. .R3 
FREE , T24RB 



iSET UP RECORD SI/E IN PACKET 




J ISSUE COMMAND 






jWAIT KOR SSR TO SET 






sGET TSSR CONTENTS 






iStT UP EXPECTED 






(ARE THEY EQUAL 






iBR, IF OK 






jBUMP COUNT 






I TSSR INCORRECT AFTER 


READ DATA 






TRAP 


C$ERHRO 




.WORD 


485 




.WORD 


WRTERR 




.WORD 


PKTSSR 


jLOOP IF SELECTED 








TRAP 


C$CLP1 


J RECORD SIZE 






(STARTING READ BUfFtR 


ADDRESS 





READ REVERSE DATA.ACK COMMAND 



• ****4 4«**«444*ff •*•*•* t**********^^***^^**^ ********** 444.** ***« 4**4* 4* 

165$: 



MOV 0100401. T24PK3 

MOV 0T24PK5,R4 

MOV R3.T24S/ 

MOV R4,rSDetR5) 



iREAD REVERSE DATA.ACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 
iSFT UP r^ECORD SX^e XH PACKET 
I ISSUE COMMAND 



!^1 



TSV7 - HAROWARK Tl-STS 18 MACRO M1?00 .^'; MAR 84 09:44 PAGt 58 -^ 

TtST 4: BASIC RFAD DATA frORwARO AND Rt.VtRSt) 



^jt'Q 0177 



.^704 
3/05 
3706 
3707 
3 708 
3 ?09 
3 713 



3714 

3/15 
3/16 
3717 
3718 
3719 
3/^0 

37;?l 
3 7a J 

37^3 
3724 
372^ 
3726 
3/27 
3/28 
3729 
3 730 
3751 
3722 
3733 
3737 



3736 

3/39 
3/40 
3/41 
3742 
-/43 
3744 
3748 



3749 
3750 



3751 
3752 



043372 
043376 
043402 
043406 
043410 
043412 
045416 
043416 
043420 
043422 
043424 
045426 
043426 
043430 
043434 



045442 
043450 
043454 
043460 
043464 
043470 
043474 
043500 
043502 
043504 
045510 
043510 
043512 
043514 
043516 
043520 
043520 
043522 
043526 
043530 
043554 
045536 
043540 
043344 
043544 
043546 
O43550 
043552 
043554 
043554 
043556 
043556 
04 3556 
043560 
043566 



004/37 
016501 
012702 
020102 
001406 
005237 

104456 
000746 
046144 
012136 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
0O4737 
016501 
012702 
020102 
001406 
005237 

104456 
000747 
046144 
012136 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000/50 
044042 
015564 

104406 



104403 
023727 

105402 



016340 
000002 
000200 



002212 



000400 
003114 



100401 
043740 
043746 
000000 
016340 
000002 
100204 



002212 



043656 
000001 

002212 



JSR 


PC.UAITr 


MOV 


TSSRCR5).R1 


MOV 


^SSR,R2 


CMP 


R1.R2 


BhQ 


170$ 


INC 


FATFLG 



tRRHRD ERRNU,T24TRL.,P1<TSSR 



iWAlT FOR S^H TO Lh.J 
j{,fcT IGSiR CONTtNTS 
iStT UP EXPtCTeO 
I ARE THtr EQUAL 
iRR, ir OK 

I BUMP col;nt 

iTSSR INCORRECT AFTER READ DATA 



170J 



043742 



CKLOOP 

MOV 
MOV 



<^256. ,R3 
KREE,T24RB 





TRAP 


CtERHPD 




. WORD 


486 




.WORD 


T24TRL 




.WORD 


PKT'-.OR 


jl.OOP IK StLECTED 








TRAP 


CJCLPl 


I RECORD SIZE 






jSTARTINC; READ OUTFER 


ADDRFSb 





READ REVERSE DATA.ACK COMMAND 



043740 



195i: 



MOV 


#100401, T24PK3 


MOV 


OT24PK3,R4 


MOV 


R3,T24SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR!SC!BIT2.R2 


CMP 


R1»R2 


BEQ 


200* 


INC 


EATFLG 



200$ 



ERRHRD ERRN0,T24TRU,PI<TSSR 



CKLOOP 



;READ REVERSE DATA.ACK COftlANO 
J SET UP R4 WITH PACKET ADDRESS 
(SET \^ RECORD SIZE IN PACKET 
; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
(GET T55R CONTENTS 

;SET UP EXPECTED 
iARE THEY EQUAL 
;BR, IF OK 
(BUMP COUNT 
iTSSR INCORRECT AFTER READ DATA 



MOV 


T24BFR*14,R1 


MOV 


R1.R2 


BIS 


*eiT0,R2 


CMP 


R1.R2 


BEQ 


210i 


INC 


FATFLG 



210« 



002.? 12 000017 



ERRHRD ERRNO , T24L0R , EXPREC 

CKLOOP 
ENDSce 



CMP FATFLG. dl5. 
BLG 999J 



TRAP 


CIERHRO 


.WORD 


487 


.WORD 


T24TRL 


.WORD 


PKTS5R 


iLOOP IF SELECTED 




TRAP 


C$CLP1 


jGET MESSAGE BUFFER CXST3) 




(SET UP EXPECTED 




:SET THE RIB BIT IN EXPECTED 




(ARE THFt EQUAL 




J BR, IF EQUAL CALL IS WELl. ) 




I BUMP COLfl^T 




iTHE RIB BIT WAS NOT SET IN X510 


TRAP 


CIERHMD 


.WORD 


488 


.WORD 


T24L0R 


.WORD 


EXPREC 



FRAP CJClPI 
I i^ > i>>>-»i^%> tMO SUBTEST >i >>>>>>■»> ^ > 

I 10070; 

TRAP CJbSLAJ 
:IS ERROR COUNT AT .'S 
;BR. IF LESS THAN 2S 



TSV: hAROWARK TiST;> l 8 macro m?00 .'.< NAR-fl4 09:4^ PAGF 

TtST 4: BASIC READ DATA CrORWARD AND RFVt'RSFO 

004 737 017a7c? 



58 5 



Sn^i'- 043S70 

.^7S4 043574 
3 75'.> 
37S6 
?;57 

K^7b8 043S74 

?7^>9 043600 

.■^:bO 04360*'? 

:^.'bl 043606 

576^ 043606 
043606 



004737 
10300 c? 
000137 



1044 3? 



016?.46 
03441^ 



043610 002654 



JSR 



999$ 



163 5 



tXlT 



PC.CKDROP 



JSR 


PC.TSTl OOP 


HCC 


167.$ 


JHP 


T;MI OOP 



TST 



jTRr TO DROP THt UNIT 



{DO Wl. NLLD TO lURAff- ItST 
(Ur. If NO LOOP REQUIRED 
jt.XhCUTt- AliAIN 



:AUL DONt THIS TF.ST 



TRAP 
.WORD 



strj 01 /a 



cjf /r 1 

L1005? 



TSV; - HARDWARE Tl.STS I ^ MACRO Mli'OO i'^riAtt-d4 09:4^ PAGE 139 

TEST 4: BASIC READ DATA tTORWARD AND RtVt-R^E) 



SEQ 01V9 



3764 
5/6S 
3766 
-^768 
3770 
3771 
?7 7c^ 
3/73 
3/74 
3775 
3776 
3777 
3 7 78 
3779 
3730 
3781 
3.^82 
3783 
3 784 
3786 
3788 
3789 
3790 
3/91 
3792 
3795 
3797 
3798 
3799 
3800 
3801 
380? 
3805 
3804 
3605 
3806 
380/ 
3808 
3809 
3810 
3811 

38i:> 

3815 
3814 
3615 
3816 
3817 
3818 
3819 
38i?0 
3821 
3822 
3625 



043620 
043620 
043b22 
043624 
043626 
043630 
045630 
045632 
045654 
043636 
043640 
043642 



043 750 
043730 
045732 
045734 
043736 

043740 
043740 
043742 
043742 
045744 
043746 



043/50 
043750 
043751 
043/5? 
043754 



045/56 
045760 
045762 
043764 
043/66 



043620 

100204 
043650 
000000 
000012 

043642 
000000 
000024 
000000 
000000 



043730 

100206 
045750 
OOOOOO 
000006 



100205 

005114 
OOOOOO 
OOOOOO 



010 

200 

OOOOOO 

OOOOOO 



100005 
100405 
102005 
177777 
OOOOOO 



LOCAL STORAGf ^'09. THIS TEST 

. -< . ►10>£177770 
T24PACKET: 

.WORD 100204 

.WORD T24DATA 

.WORD 

.WORD 10. 
T24DATA: 

.WORD 124nFR 

.WORD 

. WORD 20 . 

. WORD 

T24DSW: .WORD 

124BFR: .BLKW 25. 

WRITE SUBSYSTEM MEMORY COMMAND PACKET 

,=-<.*10>617/770 
T24PK2: 





.WORD 


100206 




.WORD 


T24BF2 




.WORD 







.WORD 


6. 


T24PK3: 








.WORD 


100205 


T24RB: 






T24WB: 


.WORD 


TREE 




.WORD 





T24SZ: 


.WORD 
. EViiN 





124DF2: 






T24BS0: 


.BYTE 


10 


T24BS1: 


.BYTE 


200 


T24S2.- 


.WORD 





T24S3: 


.WORD 






.EVEN 
J TAPE MOTION PACKET COMMAND VALUES 



T24RN: 


.WORD 


100005 


124W0R: 


. WORD 


100405 


T24C0N: 


.WORD 


102005 




.WORD 


177777 


T24DLY: 


.WORD 






;COMMAND PACKt. f f UM It S I 

jWrtlTE CHAHACTERISTIC: COMMAKO , WITH IE. ACi'' 

(ADDRESS OE CHARACTERISTICS Fii.OCK 

I START INC. VALUE Of BLOCK SI^c 
jCHARACTEFaSflCS DATA BLOCK 
iADDrttSS OK MESSAGE BUt>>R 

jLENGTH OF MESSAGE BUFFER 

iDRlVF. SEIFCTION BITS 2-0 
[MESSAGE BUFFER 



;WRITE sue SYS MEM COMMAND, It AND ACK 
J ADDRESS CF SELECT BLOCK DATA 

[SI/F OF DATA PACKET 



(READ COMMAND. It AND ACK 
jADDRESS OF WRITE BUK ER 
I SIZE OF DUFFER (EXTENT. 



tBSELO AREA 
BSELl AREA 
SFl 2 ARtA 
DATA AREA 



(HEAD DATA (NEXT ) 
iREAD DATA RETRY 
iWRITF CONT INDUS 
(END Oy DATA 
lOELAY STORAGE AREA 



4 



TSV/ ■ HAPDWAfn. rt.ST^; 1 S MACPO MIPOO .".-MAR-8'1 09:41 PAUf. 60 

TtST 4: BASIC RHAD DATA ffORWARD AND REVtRSE) 



SfcQ 0180 



38:^6 

^f^^ / 

.^8PQ 
3830 
3851 
383? 
3833 
3834 
3835 
3856 
3837 
3858 
3859 
3840 
3841 
3842 
384 5 
3844 
384S 
3846 
3817 
3843 
3649 
3850 
3851 
385? 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
386C 
3861 
386? 
3865 
3864 
3865 
3866 
3867 
:^868 
3869 
3870 
3871 
387? 
38/3 
5874 
38/5 
3876 
3877 
3878 
3879 

3880 
38G1 



0437 j-O 
C4404? 
04411? 
044201 
044265 
04434? 
0444?6 
044507 
044541 
044613 
044660 
044 746 
045023 
045076 
045145 
045220 
045?65 
045340 
045426 
0454 77 
045552 
045623 
045712 
045774 
046056 
046144 
046232 



046500 
046300 
046304 
046310 
046314 
046320 
046322 
046526 
04655? 
046554 
046340 
046342 
046546 
046352 
046360 
046562 
046366 



116 
122 
124 
124 
124 
111 
111 
122 
124 
1?4 
104 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
12/ 
122 
122 
122 
12? 
102 



012/01 
012/21 
012721 
005021 
012/21 
012721 
005021 
012721 
005021 
012711 
012/02 
012/6? 
005/4? 
022/0? 
001371 



105 
111 
123 
123 
123 
154 
154 
105 
123 
141 
141 
105 
125 
145 
101 
123 
16? 
123 
123 
126 
123 
12? 
145 
145 
145 
145 
141 



04 5620 
100004 
043630 

000012 
04564? 

000024 

000000 

000030 
1 /77/7 

000000 



106 
102 
123 
123 
123 
154 
154 
101 
123 
160 
164 
101 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
163 



LUCAl. TtXT HtSSAGES FOR TEST 



T24NtK 

T24L0R 

T24WDG 

T24NXM 

T24WDF 

T24ILA 

T24L0Q 

T24SSR 

T24UDE 

T24B0T 

T24DTA 

T24E0T 

T24TM: 

T24RWN 

T24RNC 

T24AM3 

T240EL 

T24W0D 

T24W0C 

T24VCK 

T24QA: 

T24US5 

T24L0N 

T24L0P 

T24PBP 

T24TRI 

TST24ID 



.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 

.EVEN 



NEF Not Set After NON EXECUTABL.E FUNCTION' 

RIB Not Set After READ REVERSE Into BOT' 

TSSR Not Correct After Illeflttl Buffer Addrcs«j Bits Set 

TSSR Not Correct After NXM Memory Address In Packet' 

TSSR Not Correct After Illegal Mode B!t*j Set' 



To Set ILA Bit 



In XSTO 
XSTO' 



IlleQol Address Bits, Failed 

Illeool Mode Bits. Failed To Set ILC Bit In 

READ COMMAND Not Accepted' 

TSSR Not Correct After WRITE DA I A Comhi-»nd' 

Tape Not At BOT After REWIND Command' 

Data Written To Tape Not Equal lo Data Read From Tope' 

READ DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After READ COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Inlt. Failed After READ COMMAND' 

Drive 7 Select Failed To Set "OFl." Tn TSSR' 

TSSR Not Correct After READ DATA Command. SWB Bl Set' 

TSSR Not Correct After READ DATA Command' 

CVC Set. Didn''t Reset VCK In Messao* Buffer' 

TSBA Not Correct After READ DATA Command' 

WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)' 

Reading Long Record Failed To Set RLL Bit In XSTO' 

Reading Long Record failed To Set RLS Bit In XSlO' 

Residual Byte Count Incorrect After Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

ASCI/ 'Basic Read Data CFor:.iard and Reverse V 



ROUTINE TO RESTORE COMMAND PACKET TO STAi^T-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T24REbT 



QAZ^Ad 64*; 



SAVREG 

MOV 

MOV 

MOV 

CLR 

hOV 

MOV 

CLR 

MOV 

CLR 

MOV 

MOV 

MOV 

T'jT 

CMP 

ONE 



0r24PACKET.Rl 

0100004, (Rl )♦ 

OT240ATA.(R1)* 

(RD* 

010. .(RD* 

0T24DFR,(Rl)+ 

(Rl)» 

020. ,(R1)» 

(RD* 

00. (Rl) 

0?4 . , R? 

0W7///.rc;4BFR(Ra> 
■ ( R2 ) 
00. R2 
64$ 



SAVE THe REGISTERS 

START on THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK. 

ADDRESS OF CHARAISTIC5 DATA BLOCK 

EXTENDED ADDRESS 

Sl/E OF DATA BLOCK IN BYTES 

ADDRESS OF MESSAGE BUFFFR 

LENGTH OF MESSAGE BUFFER 

SEl ECT DRIVE /ERO 

NUMBER OF LOCATIONS 10 Bt CLcAR£D 

ALL ONES TO MESSAGE BUFFER 

NEXT LOCATION 

CKECK FOR END OF LOOP 

KEEP GOING UNTIL DONE 



f-1 i /i 

TSV; - HARDWARt TtSTf. 18 MACR-J Hl.^00 .'^ hAH-«4 09:44 PAGF. 60 i 

ThST 4: BASIC f-lFAD OAlA tfORWARU AND RtVtRSb) 



.^88.-^ 


046370 


000207 




Rrs 


PC 


:5aa5 












3884 












5885 


04637^ 






T24RT2: 




.^886 


0463 /c? 






SAVREG 




5887 


0463/6 


01?701 


04 3730 


MdV 


V>T?4PI<?,R1 


:^888 


04640^ 


01?7?l 


100206 


MOV 


Vn00206,CRl )* 


;^8ri9 


046406 


0127?! 


043750 


MOV 


vn24Br2,(Rl)* 


?890 


046412 


005021 




CLR 


CRl). 


5891 


046414 


012721 


000006 


MOV 


^^6. .(RD* 


389? 


0464^0 


005021 




CI R 


CRr)t 


3895 


0464?? 


012701 


043750 


MOV 


VM?4BF£,P1 


3894 


0464?6 


005021 




Cl.R 


CRl)f 


3895 


0464 30 


005011 




CLR 


CRi) 


3896 


046432 


000207 




RTS 


PC 


3897 


046434 






T24RT3! 




3898 


046434 






SAVREG 




3899 


046440 


012701 


04 3 740 


MOV 


<n24PK3,Rl 


3900 


046444 


C12721 


000000 


MOV 


00. CRD* 


3901 


046450 


012 ^21 


000000 


MOV 


OO.CRDt 


390:^ 


046454 


005021 




CLR 


CRD* 


3903 


046456 


oi2m 


000000 


MOV 


^O.CRl) 


3904 


C4646? 


000207 




RTS 


PC 


3905 


046464 
046464 
046464 


104401 




ENDTST 





SHQ 0181 



;Rt:TURN 



REGISTERS 
THH PACKf-:r 



I SAVE THE: 

; START OF 

;WRIT[: SUBSYSTEM MEM. WITH ACK , IE 

; ADDRESS Of DATA BLOCK 

J EXTENDED ADORE', S 

J SIZE OF DATA BLOCK IN BYTES 

; POINT TU DATA SfcL AREA 



RETURN 

SAVE THE REGISTERS 

START OE THE PACKET 

CLEAR AREA OUT 

ADDRESS OE DATA Bl OCK 

EXTENDED AODRFSS 

SI/E OF- DATA BLOCK IN BYTES 

RETURN 



L 10052: 



TRAP 



CJETbT 



TSV 



HARL-iWARf. Tt:STS 1 -H 



MACRO !ili?0O :-'.^M'\H-8'5 09:44 



Ni4 

PAGP. 61 



T&ST S: SPACt RtlCOROt; 

590/ 
3908 
."5909 
3910 
3911 
-•^9 IP 
:<915 

:^ >14 
391 S 

3916 
3917 
3918 
3919 
39.>0 
39^1 
39?P 
39^5 



392S 

39^6 
3927 
3928 
3929 



SEQ 0182 



3930 
393S 
393m 
393; 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
394S 
3946 
794? 
3948 
3949 
3950 
3951 
3952 



3955 
3954 
3955 
3956 
39 7 

3958 
3959 
3960 
3961 
3962 
3963 
3964 



046466 
046466 
046466 
046474 
046500 
046504 
046510 



046M6 
046516 
046516 
046516 
046520 
046524 
046550 
046534 
046540 



TEST 5: SPACE RtCURDS 



THIS TbSr VfcHIKItS THAT THE SPACF. RECORDS FORWARD AND SPACf 

RECORDS REVERSK POSITION COMMANDS OPERATE PROPERt.Y WHEN SPACIN(; 

OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARK^; 

IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 

SHOULD HAVE BEEN RUN SUCCESSFULLt KOR THIS TEST TO PRODUCE MEANINGFUL 

RESULTS. THIS TEST CONSISTS OF A SERIFS OF SliRTESTS. IN EACH 

OF THE SUBTESTS. THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 

OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTE:. OF EACH 

RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TA'^E. AFTER 

EACH SPACING OPERATION. THE TAPE POSITIOIn' IS VERIFIED BY READING 

THE NEXT OK PREVIOUS RECORD AND COMPARTNO THE POSITION DATA WITH 

THE EXPECTED RESULT. 



THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 



BGNTST 



012737 
004737 
012700 
004737 
012737 



006446 
017564 
055200 
016600 
000005 



002170 



002206 



MOV 


^EPRT2,EPRTSW 


JSR 


PC.KTOFF 


MOV 


0TST25ID.ro 


JSR 


PC.TSTfFTUP 


MOV 


*5.L0Cn;NT 



T5; : 
;SEC0NDArM FK^OR MESSAGE 
;D0N'T NEED LOTS 0^ MEMORY 
iASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
; PERFORM 5 ITERATXONS 



TEST 5, SUBTEST 1 



VERIFIES THAT A SPACE RECOMOS FORWARD COMMAND WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
THE VOLUME CHECK CVCK) FLAG IS SET. 



T25LO0P: 



104402 
004737 
005037 
004737 
004737 
012737 



055216 
054030 
055310 
055352 
176750 



054032 



BGNSUB 



JSR 

CLR 
JSR 
JSR 
MOV 



PC.T25REST 
T25CNT 
PC,T25RT2 
PC,T25KT3 
'^65000. .T250LY 



,>>>>>>>>*>>> BEGIN SUBTEST > ^^>*> >>•>■>>'■ > 

T5 . 1 : 

TRAP C$BbUB 
I SET COMMAND PACKET 
; CLEAR THE RECORD COUNTER AREA 
;SET UP OTHER COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
iSET UP LOOP COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE ■ CARRY BIT CLEAR IF ERROR 



ThbT '■>: SPAC^ RtCORD'. 



MACnn Ml, '01' ,■'. Maw MA n'jjdn PAUI * \ \ 



MH^'^ 


046S4fc 


UC^4 / 3 / 


016064 


5'**'t. 


04655? 


1054?* 




^^i> / 


04fi'.S4 








0465S4 


01?/?; 


000? *>0 




046560 


oooooo 






04656,' 


015/?/ 


00? I If. 




04ti5o6 


oooooo 






0465/0 


00556/ 


l^//^' 




0465 74 


0015/5 






0465 '6 


00536.' 


1 / / /56 




04660? 


00 1 56 / 




396H 


046604 


00553/ 


05403? 


^■^'♦t)^ 


046610 


001556 




;^*> '0 


04661? 


005? 3/ 


00?. 1.' 


;^w;4 


046616 


016501 


00000? 


59 7b 


0466?? 








0466?? 


104455 






0466?4 


000 765 






0466?6 


005650 






046650 


0l?l?4 




39/6 


04663? 






39/7 


04665? 


015/.W 


00?!/? 


39/8 


046640 


Ol.>/04 


055660 


39/9 








3980 








3981 








398.^ 








398^ 








3984 








39R'i 








3986 


046644 


0O4/37 


010/5? 


398/ 


046650 


105407 




3988 


04665? 


005? 5 7 


00??!.' 


399? 


046656 


OlOOOl 




3993 


046660 








046660 


104456 






04666? 


000 766 






046664 


005054 






046666 


0121?4 




3994 








399^ 








399t. 








399/ 








5998 








5999 








4000 








4001 


0466/0 








046670 


104406 




400^* 


0466 7? 


004737 


01U04 


4005 


046676 


105407 




40O4 


046/00 


OlOOOl 




400^ 


046/0? 


005? 5 7 


OQli^m 


4W9 


046706 








O46 706 


104456 






046/10 


000 /6 / 






046/1? 


055(^05 






046/14 


OU'iiO 





A ^4 <j\hi 



55! 



DM At 



Pf.'.Uf INir 

loi 

?5() 



j[j(i INI I iMl \/} Of* CaNrtiULi W' 
ihM U INI T WAS -)K 
llJH At U Mt (JUiHK} 



OS ^'.'00 



10$: 







mo; 


«?5'',TC > » 






.u^m\) 









MflV 


. sm f /PC j* 






. umu 









Of c 


6f PC i 






HNf 


. 4 






Of C 


-',' PC. 






BNf 


. ?0 


otc 


I?'.Dl f 


jDK DflAr COONTFR 




BNt 


5« 


jHM, IF LOOP 15 RfUJlRFU 


INC 


y Afu (, 


iBUHP COiJNT 




Mnv 


r'/,ftCM5 j.m 


iCONTf.N!', f)f T55R RtGlSTtH 




IRRDK 


t:«RN0.5FmRR.5riMSG 


iFATAl t«ROR THSR WAS NOT Ok 








TOPP 


C»tR(> 






.WORD 


501 






.WORD 


5' nMH 






.WORD 


5f 1M5L 



MOV UHIIN. 1?5DSU 

MOV flT?5PACKFT,R4 



i5tT UP DRivt Nuriet.R 

j'*ii.eROiJTlNF. Nff.DS PACKF T ADDRES'J 



iWRITt CHARACT(:RI5TICS COMMAND (CAlL TO WRTCHR) 



JSR 


PC.WRTCUR 


iISSlJF WRirt CMARACTERISTICS 




BC5 


151 


jBR, IF COMMAND ISSUED OK 




INC 


F ATFl r. 


iBur*» COUNT 




MOV 


RO.Rl 


iSAVl CONTtNTS Of TSSR 




bRRHRD 


bRRNG.WRTMbG.SFIMBG 


jWRITt CHARACTER15TISC TAlLfO 








THAP 


CIKRHRO 






.WORD 


50? 






.WORD 


WRTMS(. 






.WORD 


'lUMbG 



ISSLC REWIND COMMAND TO StltCTtD TAPF DRIVf 



15«: 



CKi OOP 







TRAP 


CICLPl 


JSR 


PC, REWIND 


I CALL TAPE REWIND COMMANt^ 




BCS 


501 


I BR. ir NO PROBLEM 




MOV 


RO.Rl 


j5AVE TSSR 




INC 


F ATFi G 


iBl^** COUNT 




ERRHRO 


ERRNO.T^SRWN.PKTSiiR 


iREWlNO NOT ACCtPTtU 








TRAP 


OFHHRO 






.WORD 


^■05 






.WORD 


T?5RWN 






.WORD 


PKTUSR 



TSV ■ M«\K"hu*\J^^ 


It '.T>, r 


f* MACMU 


TtSI S: Sf'ACK 


Mb conns 




•1010 04f,*l^ 






04t./lb 


104406 




40 11 






401,' 






401? 






4014 






401S 






-XOXh 






401 ? 






4018 O467?0 


013701 


055710 


401^ 0467c?4 


010102 




40^0 0467^6 


052702 


000002 


40J1 04675^ 


020102 




40^V 046754 


001406 




40c»5 046756 


005257 


002212 


40c?7 046 742 






046742 


104456 




046 744 


0007 70 




046746 


054175 




046750 


015564 




40*?8 046 7^2 






046752 


104406 




402^ 046754 


012705 


000400 


4030 046V60 


013737 


003114 C54002 


4051 






4032 






4035 






40^4 






4^ '5 






4u^6 






4057 






4058 046766 


012757 


140005 054000 


4059 0467^4 


012704 


054000 


4040 047000 






4041 047000 


010557 


054006 


4042 04 7004 


015777 


054050 154102 


4043 047012 


062757 


000001 054030 


4044 047020 


010465 


OOOOOO 


4045 04 7024 


004757 


016540 


4046 047050 


016501 


000O02 


4047 047054 


012702 


000200 


4048 04 7040 


020102 




4049 04 7042 


001411 




4050 04 7044 


052701 


0OOO04 


4051 047050 


001014 




4052 047052 


00525. 


002212 


4056 04 7056 






O4 7056 


104456 




04 7060 


000771 




04 7062 


005111 




04 7064 


012156 




4057 04 7066 






O4 7066 


104406 




4058 04 7070 


005205 




4059 04 7072 


022705 


OQIUOO 


4060 04 7076 


001540 




4061 047X00 


000415 





MACMU Ml,\i(^ ,<l Hm H4 D'tiAA MIUjI f,\ ,» 



ifj OXHA 



<0 5: 



CKt OOP 



J I OOP IF '■,n lino 



TPAP 



1 

iRtAD Ht-^'^AGC UUTFP.R f.xm.'JK) '.TATOS PfF (.; '.TJ-R /kUi) C <STO , 
t 

iPiCK UP xsro 

iSET UP tXPECTED 
iSfT BOT RIT IH t/PtCT^D 
iDOfS bXP • RF.C'O 
I BR. IF EOOAl. COK) 
iBLWP CO^i 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40Ji CKLOOP jt OOP IF SEl feCTEO 

TPAP 
jHtCORO SI7E 
;STARTIKG WRITE Bf*FFR ADORf SS 



MOV 


T25HrRh.Rl 


MOV 


H1,R2 


BIS 


«eiTl.R2 


CMP 


R1.R2 


BfQ 


401 


INC 


KATFLt. 



ERRHRO eRflN0.T25BOT.EXPREC 



CKLOOP 

MOV 
MOV 



a256. .R5 
FREE. r25RB 



I 

jWRITE DATA.ACK.CVC-l COMMAMO 



65 » 



MOV 


♦140005. T25PK5 


MOV 


•T25PK5,R4 


MOV 


R5.T25SZ 


MOV 


T25CNT,arREf 


ADD 


*1.T25CNT 


MOV 


R4.TS0e(R5) 


JSR 


PC WAITF 


MOV 


TSs»nR5).Rl 


MOV 


•S'^^^Ji? 


CMP 


Rl.R.' 


BFQ 


751 


BIT 


♦eiT2.Rl 


BNE 


1201 


INC 


FATFLG 



V51 



ERRHRO ERRNO.WRTERR.PKTSSR 



CKLOOP 



ClCi PI 



CIERHRD 
504 

r25B:)T 

EXPREC 
CtCLf^l 



INC 


H5 


CMP 


0512. ^R3 


BNE 


651 


BR 


lS5i 



WRITE OATA.ACK.CVC-l COMMAND 
SET UP R4 WITH PACKET ADDRESS 

r.ET UP RECORD SIZE IN PACKET 

LOAD KJP RECORD COUNTER IN WRT BUFFER 

GET READY FOR NEXT RECORD 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

CHECK FOR TAPE STATUS ALERT 

BR. IF TSA IS SET (SUSPECT IS tOT) 

BL»iP COUNT 

TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 

. WORD "iO^ 
.WORD WRTERR 
.WORD PHrssH 
iLOOP TF SELECTED 

TRAP CtCLPl 

iBUMP RECORD SIZE 
I END Of RECOJU) tE T 
iBtt, :f MORE RECQRDii TQ WRITt 
lENOUUM RECQfiOS 



TtST '^i SPACF RtCORDtS 



40*v^ 
40(^4 
40fe*i 
4066 
40t): 
4068 
4069 
40/0 
4071 
407? 
4075 
4074 
407^ 
4079 



4080 
4081 
4082 
4005 
4084 
408b 
4086 
4087 
4088 
4089 
4090 
4091 
4095 



40*^ 

4097 
40S8 
40*W 
4100 
4101 
4102 
4105 
4104 
4105 
4106 
4107 
4108 
411? 
4113 



4114 



04710.^ 



04710? 
047106 
04/110 
047114 
047116 
04/1?0 
04 7124 
0471<^4 
047126 
047130 
04 73 5? 
047154 



013701 
01010? 
052702 
020102 
001406 
00525 7 

104455 
00077? 
054 531 
015564 



05^^710 
000001 

002? IJ 



047154 
047140 
047142 
047144 
047150 
0471S0 
047152 
047154 
047156 
04 7160 
04 7160 
04 7162 
04V170 



004 737 
105407 
010001 
005237 

1044S6 

000773 
055005 
012X36 

104406 
012757 
012704 



011104 
002212 



MACRO H1200 ?^ MAR H4 i)'J!44 PAut M 5 
1?0$: 

I 

iRf-AD MF.SSA\Ge. HUTFtR FXTKNOKt) STATUS RtCil'.TLR /F RU (X'iln) 

lUUiCK CHFCK FOR FOT ',F-T 

t^lJ UP fc^PtCTtO 

iSeT THt for HIl «'>T0 

I rs THF fOI BIT Sf-1 IN XSTO 

iBR. If Sf T (GOOD J 

jBL^lP COUNT 

IDEVICE f'ATAl NOT tOT fOlM) iJQ, 

TRAP C«ER[)f 

.WORD 506 
.UORD T?SNt ' 
.UORO FXPRFC 
125 ♦: 

!lS5UE REUI^C COMMAND TO StLtCTtO TAPF ORlVf 

JSR PC.REUINO 

BCS 1501 

MOV RO.Rl 

INC FATFLG 

ERRHRO ERRNO. T25RWN.PKTSbR 



000007 
055660 



053700 



047174 
047200 
047202 
047206 
047210 
04 7210 
04 7212 
047214 
04 7216 
047220 



004737 
103407 
005237 
OlOOOl 

104456 
0007/4 
0050^:4 
012124 



010752 
002212 



MOV 


T?SB^R»6,R1 


MOV 


Rl.R? 


Bib 


<miT0.H2 


CMP 


Rl.R? 


HFQ 


l?si 


INC 


f ATHCi 


ERRDK 


ERRN0,T?5NET,EXPRtC 



130$: 



CKLOOP 

MOV 
MOV 



(CALL TAPE REWIND COMMAND 




iBR. IF NO PROBLEM 




J SAVE T5SR 




iBUMP COUNT 




IREWINO NOT ACCEPTED 




TRAP 


CIERHRD 


.UORD 


507 


.UORD 


T25RUN 


.UORD 


PKTSSR 



jLOOP U SELECTED 



7.T25DSW 
#T25PACKET.R4 



TRAP 



iSET UP DRIVE NUtCER 

I SUBROUTINE NEEDS PACKET ADDRESS 



CtCLPl 



I 

iWRXTE CHARACTERISTICS COMMAND (CALL TO WRTCHR'i 



JSR PC.URTCHR 

BCS 140$ 

INC FATFLG 

MOV RO.Rl 

ERRHRO tRRNO , WRTMSG , SK IMSG 



140$ ! CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND IS5UFD OK 
jBUHP COUNT 

iSAve CONTENTS Of TSSR 
IWRITE CHARACTERISTI5C FAILLD 

TRAP 
.WORD 
.U0«0 
. WORD 
(SCOPE LOOP 



C$ERh«0 
506 

WRTMSU 
SFIHSG 



'.f OXH'. 



TSV ' HAf?awrtHl. n STs 1 « 
ThSr 5: SPACt. RfCUMDS 



MACRO MU'OO .V< MAR H4 0**:44 PAtib ^1 ^ 



SF'Q (jlHf, 





04 7220 


104406 






41 ;s 


04 /^^^ 


005 / ' ' 


002216 




4U6 


04 7226 


00 u 






41W 










4ue 


04 7250 


1127i/ 


000200 


054011 


411*^ 


047236 


112737 


000010 


054010 


4120 


04 7244 


012704 


053 7/0 




4i.>l 


047250 


010465 


000000 




41J2 


04 7254 


004 73/ 


016426 




4125 


04 7260 


105407 






4124 


047262 


010001 






412'j 


04 7264 


005257 


002212 




4129 


047270 
O4 72?0 
047272 
04 7274 
047276 


104456 
000 775 
054034 
012156 






4150 


04 7500 
04 7500 


104406 






4151 


04 7502 


012/5/ 


00000 7 


053700 


4152 


047310 


012704 


053660 




4133 










4154 










413S 










4136 










4137 










4138 










415*> 










4140 


047314 


004 737 


010752 




4141 


047320 


105407 






4142 


04 7522 


00525 7 


002212 




4146 


04 7526 


010001 






4147 


04 7550 
047550 
047552 
047554 
047556 


104456 
000776 
005054 
012124 






4148 


047540 
047540 


104406 






4149 


047542 


016501 


000002 




4150 


047546 


052701 


000100 




4151 


04 7552 


001006 






4152 


04 7554 


005237 


002212 




4156 


04 7560 
047560 
047562 
047564 
047566 


104455 
000777 
055054 

012124 






4157 


047570 
047370 


104406 






4158 










4159 










4'* 










4l6i 










4162 










4165 










4164 











TM 


\ XTF EA 


UNf 


160* 


MUVH 


0200, r,'SHM 


MOVH 


010.T25HS0 


MOV 


OT25PK2.R4 


MOV 


R4.TS0B(R*O 


J5R 


PC,CHt<TSSR 


BC. 


150$ 


MOV 


RO.Rl 


INC 


F ATM t, 


tRRHRD 


tRRN0.T25S'JR,PKTSliR 



I RAP 
I CHICK yOii F.xrt-NDKD PFAriiRrfj 
iBH U QUITCH IS UN 



CJCl.Pl 



150$: CKIOOP 

MOv 
MOV 



(URITf MISCl.lA ANtOUS CONT/RtAD srATii>> 

(PtJNCTION SF.l-FCTKJN BIT ( riJRN ON EXTFtA HW ^WTTCHJ 

iWRITE SUBSrS M^M PACKET 

I issue COMMANC) 

tWAir fOR 5SR 

iBR. If NO ERROR 

(ERROR. '^»Avr Tf.SR 

iB'JMP COCNf 

iTBSR NUT CORRECT AriEP WRT. MISCELLANEOUS 

T9AP CIERHRD 

.WG90 509 
.WOi.u T25r/.iR 
.WORD PKTS^.R 



|l OOP IF' SELECTED 



#7 
*T25PACKET,R4 



TRAP 



J SET UP DRIVE NUMBER 

iSUeROUTlNE NEEDS PACKET ADDRESS 



CJCLPl 



;*****************«4i*****«** ************* «*«***«*«4i**««««««4l4.4>4>**«* 

; 

iWRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 
I 



160*: 



JSR 


PC.WRTCHR 


1 ISSUE WRITE CHARACTERISTICS 




BCS 


1601 


tDR. IF COMMAND ISSUED 


OK 




INC 


FATFLG 


»BUMP CCHJNT 






MOV 


R0,RI 


;SAVt CONTENTS OF TSSR 






feRRHRD 


ERRNQ.WRTMSG.SFIMSG 


iWRITfc CHARACTERISTISC 


FAILED 
TRAP 
.WORD 
.UORD 
.UORO 


CIFRHRD 
510 

WRIMSG 
SFIMSG 


CKLOOP 




iSCOPE LOOP 


TRAP 


C$CLP1 


MOV 


TSSR(R5).R1 


)GET TSSR CONTENTS 






BIT 


#0FL,RI 


iCHECK FOR TMF OFFLINE 


BIT SET 




BNE 


l/0» 


iBR. IF OFFLINE (GOOD) 






INC 


EATFLG 


jBUMP C0«J^1 






ERRDF 


ERRN0,T250FL.SFIMSG 


lOFF LINE SHOiA^D HAVE BEEN SET 


(BAD) 








TRAP 


CIERDF 








.WORD 


511 








.UORD 


T250rL 








.WORD 


SFIMSG 


CKLOOP 




iLOOP IF SELECVfcD 


TRAP 


CSCLPl 



170»: 



; SPACE FORWARD COMMAND IN PLACE 
1 



TtST 5: SPACf RKCOHOS 



MACRO M1200 .'^ MAR 84 09:44 PAlif 61 'J 



SIQ 018/ 



416b 


04 73 72 


012/3/ 


140010 


OS4000 180$; 


MOV 


0140010. T25PK3 


41f>b 


04 7400 


012737 


000001 


054002 


MOV 


01.T25RtJ 


416/ 


04 7406 


012704 


054000 




MOV 


OT25PK5.R4 


416fl 


047412 


010465 


000000 




MOV 


R4,TSDB(R5) 


4169 


047416 


004737 


016340 




JSH 


PC.WAITF 


41/0 


047422 


016501 


000002 




MOV 


1SSRCR5).Ri 


4171 


047426 


012702 


100306 




MOV 


OSSR'SCIOFliBlTl'R 


41/2 


047432 


020102 






CMP 


R1,R2 


4173 


04 7434 


001406 






BFQ 


190 J 


4174 


047436 


005237 


002212 




INC 


F ATKl Ci 


4178 


047442 
04 7442 
04 7444 
047446 
04 7450 


104456 
001000 
054242 
012136 






tRRHRD 


tRRN0.T2bTM,PKTbiiR 


4179 


04/452 
047452 


104406 




100$ J 


C:<i OOP 




4160 


04 7454 
04 7454 
04/454 


104403 






tNDSUe 




4181 


04 7456 


023/27 


0022 ii' 


000017 


CMP 


rATfLG,«15. 


4182 


04 7464 


105402 






BLO 


999 i 


4183 


04 7466 


004737 


017272 




JSR 


PCCICOROP 


4194 


047472 






999 C : 







ibPACE FORWARD COMMAND IN PLACf 
I NUMBER Of- RFCO^OS TO T.PACF 
jR4 - POTNTFR TO PACKET 
ilSSiJF. COMMAND 
(WAIT FOR SSR TO 'jF T 
jGET T'jSR CONTFNTS 
T2.R2 jSFT UP FXPFCTED 
lARF THEY EQUAL 

(BR, U OK FSP. FUNCTION RtJFCl 
I BUMP COUNT 
iTbSR INCORRECT AFTER TAPE MO f ION CMD 

TRAP CURURD 
.WORD 512 
.WORD T25TM 
.WORD PKTSSR 
ilonP IF "jf-t.FCTED 

TRAP C$ClPl 
J %>>>>>>>>>> > (NO SUB Tt S T » > ■» > V > -i i -^ . > , 

I 100/2: 

TRAP C$E^UfcI 

; IS FRROR COUNT AT 25 
;BR. !»• LESS THAN 25 
I TRY TO DROP THE UNIT 



TtST S: SPACt RECURDb 



41Hfc 
4l«tt 

4190 
4191 
419^ 
419? 

4 1^*4 

419^ 
4197 



' 1 -J 
HALRU Mlt?00 .-.'^ MAR -84 09 -44 PAGt 6i? 



4193 

4199 
4?00 
4?01 

A?OS 
4?04 
4?05 
4206 
4^07 
420H 
4209 
4210 
4214 
4215 



4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
422S 
4226 
4227 
4228 
4252 
4233 



42M 
423*3 
4256 
4237 
4238 



04/4 72 

04 7 A ra 

04 74 72 
04 74 74 
04/500 
04 7504 



104402 
004 75 7 
004/37 
004737 



04/^10 
04 7514 
047516 
04 7522 
047524 
047524 
047526 
047530 
04 7552 
047534 



004 75 7 
105407 
005237 
010001 

104455 
001001 
005650 
012124 
012737 



047542 012704 



047546 
047552 
047554 
04 7560 
047562 
04 7562 
04 7564 
04 7566 
047570 



004737 
103407 
005237 
010001 

104456 
001002 
005054 
012124 



ShfJ Olfta 



055^n6 
05^352 
055310 



JSR 


PC.T25nKST 


JSR 


PC.T25Rr3 


JSR 


PC, I25RT2 



016064 
002c:i2 



000007 
053660 



053700 10$ 



TbST 5, SURThST 2 

VLHIMKS IHAT A SPACF RFCfiROS Rt VFRSF COMMAND WITH 
THL CLEAR VOLUME: rM^Z\'- iC\iC) MIT Cl t-AR lb RtJtCThO IK 
THE VOLUME CKECK CVCK) TLAG IS SHT, 



T5.2i 

TRAP CJBS'JH 

iStT COMMAND PACKET 

; SET UP OTHER COMMAND PACKF I 

[SET UP OTHER COMMAND PACKF T 

ISSUE CONTROLLER "SOFT" INITIALIZE ■ CARRY BIT CLEAR IE FRROR 

iOO INITIALIZE ON CUNTROLLtR 

I BR IE INIT WAS OK 

iBUMP COUNT 

iCONTENTS Of TSSR REGISTtR 

iFATAL ERROR TbSR WAS NOT OK 

TRAP CJFRDf 

.WORD 515 
,UORn '^>FIFRR 
.WORD 5FIMSG 
I SET 1.JP DRIVE NUMBER 



JSR 


PC.SOFINIT 


BCS 


10» 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 



MOV *7.125DSW 

MOV *125PACKET,R4 

WRITE CHARACTERISTICS COMMAND (CALL IJ WRTCHR) 



010752 
002212 



JSR PC.URTCHR 

BCS 1S« 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO»WRTMbG.bEIMi:i';. 



llSSUC WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
iBUMP COUNT 

J SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WOP' 
.WORD 
■ WORD 

i ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



CtERHRU 
5M 

WRTMSG 
SFIMSG 



TSV; HAP[lWAHr. n STS 1 tt 

TbbT 'j: SPAa RfXORDS 



4.-M0 

4;^4i 

4cM2 

4245 
^.-!44 
4.^45 
4^49 



4^S0 

4c? ^)1 
4?^>? 
4P55 
42S4 

425*5 

42S6 
4^'j7 
4rS8 
4?S^ 
4260 
42bl 
4265 



4266 

426^ 
4268 
4269 
42/0 
4271 
42 72 
4275 
42/4 
4275 
4276 
4277 
42 78 
4282 
4283 



4284 

4285 
4286 
4287 
4288 



04 7572 
04 7572 
04 7574 
047600 
04 7602 
0476-04 
047610 
04 7610 
04 7612 
04 7614 
047616 
047620 
04 7620 
04 7622 
047626 

04 7650 
04 7656 
04 7644 
04 7650 
04 7654 
047660 
04 7662 
04 7664 
047670 
047670 
04 76 72 
04 76 74 
04 7676 
04 7 700 
04 7 700 
04 7 702 
047710 



047714 
04 7720 
04 7 722 
04 7726 
04 7 750 
047750 
04 7 752 
047754 
04 7 756 
04 7 740 
047740 
04 7 742 
047746 
04 7752 
047754 



104406 
00475 7 
103407 
010001 
005237 

104456 
001005 
055005 
012156 

104406 
005757 
001044 

112757 
112757 
012704 
010465 
004 75 7 
105407 
OlCOOl 
005257 

104456 
001004 
054054 
012156 

104406 
012737 
012704 



004757 
103407 
005257 
010001 

104456 
001005 
005054 
012124 

104406 
016501 
052701 
OOIC06 
005237 
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; ****^**^********^*^*********tA¥**^*.***^*>**.*^^**.Jk4.**^^**,*.*ti**^**^i,****4* 



'■,EQ OIH'^ 



15$: 



01U04 
002212 



CKldOP 

JSH PC, REWIND 

BCS 50$ 

MOV RO.Rl 

INC KATFL.C. 

tRRHRD fcRRNO, T25RWN,PI<TSbR 



002216 



000200 
000010 
0557 70 
000000 
016426 



002212 



30i: 
140$ 



054011 
054010 



OKI. OOP 

rsT 

BNF. 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 



iRflP 


CtCl.Pl 


jCAll TAPI- RfwrND COMMAND 




iOR. U NO PROni.I.n 




iSAVt TSSR 




I DUMP COl^T 




|RtWINi> NOT ACCfcPTtU 




TRAP 


CJhHHWD 


.WORD 


MS 


.UORD 


T25RWN 


.WORD 


PK TSSM 



iLOOP IF- btLECTKD 



eXTFEA 
160$ 

0200.T25B51 

010.T25BSO 

0T25PK2.R4 

R4,T50BCR5) 

PC.CHKTSSR 

150$ 

RO.Rl 

FATFLG 



TRAP 



C$ClPl 



ERRHRD ERRNO, T25SSR , PKTSSR 



150$ 



000007 
053660 



053/00 



CKLOUP 

MOV 
MOV 



*7.T250SW 
©T25PACKET.R4 



;CHt:cK roR fxrtNOFD khatures sw switch 

;BR if switch IS ON 

;WRITE MISCEL.LANfcOUS CONT/RFAD STATU'. 

iKUNCIION SELECTION BIT t TURN ON EXTFEA HW 5WXTCHJ 

;WflITE SUeStS MEM PACKET 

I ISSUE COMMAND 

jWAIT rOR SSR 

iBR. IF NO ERROR 

lERROR. SAVE TSSR 

;BUMP COUNT 

iTsiSR NOT CORRECT AFTER URT. MISCELLANEOUS 

TRAP C$ERHRD 

.WORD 516 
.WORD T25SSR 
.WORD PKT' - 

jLOOP IE SELECTtO 

TRAP CJCLPl 

J SET UP DRIVE NUMBER 

jSLBHOUTINE NEEDS PACKET ADDRESS 



!wRITE CHARACTERISTICS COMMAND (CALl TO WRTCHR) 

* 



010752 
002212 



.iSR PC. WRTCHR 

BCS 160$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTHSG . SFIMSG 



160$: 



000002 
000100 

oo^^l^ 



CKLOOP 

MOV 
BIT 
BNE 
INC 



TSSR(R5),R1 
OOFL.Rl 
170$ 
FATFLU 



I ISSUE WRITE CHARACTEiaSTICS 

I BR. IF COMMAND ISSUED OK 

iBUMP COUNT 

jSAVE CONTENTS Of TSSR 

;WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

i SCOPE LOOP 

TRAP 

:GET TSSR CONTENTS 

I CHECK FOR THE OFFLINE BIT SUT 

J BR. IF OFFLINE (GOOD) 

(BUMP COUNT 



C$ERHnD 

517 

WRTMSG 

SFTMSG 

C^CLPl 



TSV: - HARDWARE. Tt STS I 3 
TtST 5: SPACe: RECORDS 



4;->o^ 



4.^94 

4^9' 
4^98 
4?99 
4500 
4501 
450c> 
4505 
4304 
450S 
4506 
4507 
4508 
4 509 
4510 
4314 



451S 
4316 



4517 
4318 
4519 
4320 



047760 
047760 
0^7 7 f>? 
O4:'7o4 
047 76e 
04/7 70 
047770 



10445'_> 
001006 

0r.5054 

oi;n?4 

104406 



0477 72 
050000 
050006 
05001? 
050016 
050022 
050026 
050052 
050054 
050056 
050042 
050042 
050044 
050O46 
050050 
050052 
050052 
050054 
0500S4 
050054 
050056 
050064 
050O66 
050072 



012737 
012737 
012704 
010465 
004757 
016501 
012702 
020102 
001406 
005237 

104456 
001007 
054242 
012136 

104406 



104405 
023727 
105402 
004757 



100410 
000001 
054000 
000000 
016540 
000002 
100306 



002212 



002212 
017272 



I' I [ 
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hRRDK tRRNO . T25Uf- L , SF IHSG 



170$: 



CKl-OOP 



jOFF LINt SHOUUl HAVf. BttN -^F.T (UAD; 



it OOP U SFl-FCTHD 



TRAP 


C JF-RDF 


.WOQD 


Slfl 


. WORD 


T:?MjF I. 


. WORD 


^FTM'V, 



TRAP 
isPACF. REVF.RSF COMMAND IN Pl.ACF 

! 



CiCLPl 



054000 180$ 
054002 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 



0100410. T25PK3 

01.T25RB 

*T25PK3,R4 

R4.TSDB(R5) 

PC.WAITF 

TSSR(R5).R1 

#SSRISC!0FL'BIT1!BIT2.R2 



R1.R2 

190$ 

FAIFLG 



190$ 



000017 



999$ 



fcRRHn J ERRNO . T25TM , PKT SSR 

CKL.OOP 
ENOSUB 



CMP FATFLG.015. 

BLO 999$ 

JSR PC.CKDRUP 



(SPACE REVERSE COMMAND IN PLACE 
J NUMBER OF RFCORDS TO SPACE 
iR4 - POINTER TO PACKET 
» ISSUE COMMAND 
iWAIT FOR SSR TO SET 
*GET TSSR CONTENTS 

iSET UP EXPECTED 
iARE THEY EQUAL 

iBR. IF OK ESP. FUNCTION RFJECT 
J BUMP COUNT 
I TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP CJPRHRD 

.WORD 519 
.WORD T25TM 
.WORD PKTSSR 
iLOOP IF SELECTED 

TRAP C$CIP1 

• >>>>>>>>>>>> t-'NO SUBTEST >»>>»>*>> ^ ^ ■» 

L10073: 

TRAP C5ESU0 

:IS ERROR COUNT AT 25 
iBR. IF I ESS THAN 2^. 
I TRY TO DROP THE UNIT 



aLQ OViO 



TSV.' • HAHDWARf. TfSTs 1-8 
Tt.SI T): SPACt RfcCURDS 



4 5^4 
4?c>S 

4 5c^6 

4,^;^• 

4-^''8 
4<.*^i 
4 350 
4iil 
4,^3? 



. ' i. .J 
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4535 
4 554 
4535 
4536 
455/ 
4538 
4 559 
4 340 
4541 
4 542 
4345 
4544 
4545 
4549 
43^0 



4551 
4 55? 
4555 
4 354 
4 555 
4556 
4557 
4558 
4 559 
4 560 
4 561 
4 5bi> 
4565 
4 567 
4 568 



4 569 
4 370 
4371 
4573 
4575 
4374 



050072 
050072 
050072 
050074 
050100 
050104 



104402 
004737 
004/5/ 
004737 



050110 
050114 
050116 
0501?2 
050124 
050124 
050126 
050150 
050132 
050154 



004757 
10540/ 
005237 
010001 

104455 
001010 
005650 
012124 
015757 



050142 012704 



050146 
050152 
0501^ 
050160 
050162 
050162 
0501t>4 
050166 
050170 



004 737 
105407 
005237 
010001 

104456 
001011 
005054 
012124 



SFQ orn 



055216 
055510 
055352 



JSR 


PC.T25RFnT 


J5R 


PC,T25Rr2 


JSR 


PC.T25RT3 



016064 
002212 



002172 
053660 



053700 10* 



lesT s, suursr ^ 

Vt.RIf IfcS THAI SPACt RECORDS f UHWARO CAN <;PACf GNf- 
RICORD OFf BUT AND CAUSES BOT STATUS TO Ut CLt.V UD 



BGNSUB . >>^>!»>, >..>> BEGIN SUBTEST »>>>>...>> 

T5.5: 

TRAP CJBSUB 
iSF.l COMMAND PACKET 
jf.ET UP OTHER COMMAND PACKt T 
;5ET IP OTHER COMMAND PACKET 

rSSUf CONTROLLER "SOET" INiriALI/E ^ CARRY BIT CLEAR IF ERROR 

iDO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

iBUMP COUNT 

iCONTENTS OF TSSR REGISTER 

J FATAL ERROR TSSR WAS NOT OK 

TRAP CiERDF 
. WORD 520 
.WORD SFIERR 
.WORD SFIMSG 
jSET UP DRIVE NUMBER 



JSR 


PC.SOFINIT 


BC5 


10$ 


INC 


FATFLS 


MOV 


RO.Rl 


ERRDF 


ERRNO. SFIERR. SFIMSG 



(SUHROU^'Nl NEEDS PACKt T ADDRESS 



MOV UNITN.T25DSW 
MOV «T25PACKET,R4 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



010752 
002212 



JSR PC. WRTCHR 

BCS 151 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



;ISSUe WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
tWRlTE CHARACTERlSTlSC FAIltD 

TRAP 
.WORD 
.WORD 
.WORD 

*******«*****4****************4***4*4«4«**4***4*444**44i444444>*4*4* 

ISSUE REWIND COMMAND TO SEl ECTED TAPF ORlVt 

|*4i4444*4^*****44444««444*4«4«44.*«*'«4^«*A««4*44*««4>i4444i44**4>444«**** 



CIERHRD 
521 

WRTMSG 
SFTMSG 



TSV; HAROWARL TtSTS 1 .y 
TtbT 5: SPACt RECORDS 



MACRO M1?00 .^-^-MAH-a^ 09:4A PAGt 63 i 



4,^/^ 








4?S76 


05017? 








050172 


104406 




4.^77 


050174 


004 73 7 


011104 


4?i7fi 


050200 


103407 




4 57*^ 


050202 


010001 




4 5fiO 


050204 


005237 


002212 


4584 


050210 








050210 


104456 






050212 


001012 






050214 


055005 






050216 


012136 




4^ftS 


OS 02 20 








050220 


104406 




4 58b 








4Jtt; 








4 5Ha 








4 38') 








4 590 








4 391 








439^ 








4393 


050222 


013701 


053710 


4 394 


050226 


010102 




4 395 


050230 


052702 


000002 


4396 


050234 


020102 




439/ 


050236 


001406 




4 398 


050240 


005237 


002212 


440^ 


050244 








050244 


104456 






C50246 


001013 






050250 


054175 






050252 


015564 




4403 


050254 








050254 


104406 




4404 


050256 


012737 


000001 


4405 








4406 








4407 








440b 








4409 








4410 








4411 








4412 


050264 


012737 


140010 


4413 


050272 


012704 


054000 


4414 


050276 






4415 


0S0276 


010465 


000000 


4416 


050502 


004737 


016540 


4417 


050506 


016501 


000002 


4418 


050512 


012702 


000200 


4419 


050316 


020102 




4420 


050520 


001411 




4421 


050322 


032701 


000004 


442? 


050326 


001006 




44?5 


050330 


00523/ 


002212 


4427 


050334 








050354 


104456 






050336 


001014 





15S 



30$ 



CKl.UOP 

JSR PC, REWIND 

bCb 50* 

MOV RO.Rl 

INC FAIKLG 

bRRHRO ERRN0,T25RWN,PI<TSSR 



CKl.OOP 



TRAP 


C$CLP1 


CALL TAPt HLWIND COMMAND 




m. If NO PROBLEM 




SAVt. I5SR 




f)UMP COUNf 




REWIND NOT ACCEPTED 




TRAP 


CJFRHRD 


.UORO 


522 


.WORD 


T25RWN 


.WORD 


PKrS'.>R 



;LOaP IF SELECTED 



TRAP 



CJCLPl 



054002 



READ MESSAGE BUFFER EXTENDED STATU'j REGISTER ZERO (X':.TOJ 

PlL., OP XbTO 
SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
DOES EXP - REC'D 
BR, IF EQUAL (OK) 
BUMP COUNT 
J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
jLQOP IF SELECTED 

TRAP 
: NUMBER OF RECORDS TO SPACE OVER 



MOV 


T25BFRi6.Rl 


MOV 


R1»R2 


BIS 


<«IT1,R2 


CMP 


R1.R2 


BEQ 


40i 


INC 


FATFLG 



ERRHRD tRRNO. T25B0T , EXPREC 



40$ 



CKLOOP 

MOV d000001,T25RB 

SPACE FORWARD, ACK.CVC'l COMMAND 



CJERHRD 
525 
T25B0T 
EXPREC 

CJCLPl 



054000 



65<: 



MOV 


0140010. T25PK3 


MOV 


<^T25PI<3,R4 


MOV 


R4.TS0B(R5) 


JSR 


PCWAITF 


MOV 


T5SR(R5).R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


751 


BIT 


0t'IT2.Rl 


BNE 


75$ 


INC 


FATFLG 



ERRHRD KRRNO, T25WDE , fcXPRtC 



;SPACE FORWARD, ACK.CVC-1 COMMAND 
I SET UP R4 UITH PACKET ADDRESS 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

tGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

J CHECK FOR TAPE STATUS ALERT 

iBR. IF rSA IS SET (SUSPECT IS EOI) 

;BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CJ^RHRD 
,WgRD b24 



SE(J 0192 



TSV.' - HAt^nwARt; IF STS 1 8 
TtST 5: SPACr RFCORD;. 
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4A2b 

AA50 

44 54 
4435 
4436 
4457 
4458 
44 59 
4440 
4441 
444:> 
4446 



4447 

4448 
444*i 
44')0 
4451 
4452 
4455 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4470 



4471 

44 72 
4473 
44 74 
4475 
44 76 
4480 



050340 
050342 
0S0544 
050544 
050346 



05411', 
015564 

104406 



050346 
050352 
050354 
050360 
050562 
050364 
050370 
050370 
050372 
050374 
050376 
050400 
050400 
050402 
050406 



050414 
050422 
050430 
050434 
050440 
050444 
050450 
050454 
050456 
050460 
050464 
050464 
050466 
0504 70 
050472 
0504 74 
0504 74 
0504 76 
050502 
050506 
050510 
050512 
050516 



012/37 
013737 
012 704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001016 
005204 
012136 

104406 

017701 
012702 
020102 
001406 
005237 



053710 
000002 



002212 



013701 
010102 
042702 
020102 
001406 
005237 

104456 
001015 
0544 70 
015564 



104406 

004 73 7 055352 

012737 000401 



140001 
003114 
054000 
000000 
016340 
000002 
000200 



002212 



132412 
000001 



002212 



{LOOP IF StLKCThU 



. WORO 
, WORD 



TRAP 



r25w[)t 
^XPRFC 

C$CLP1 



75$: CK1.00P 

120$: 

RF.AD MtSSAGF HU(->t.R LXTtNDFD STATUS RKGISTF.R /FRO (X5T0) 

UUICK CHECK fOR HOT SFT 
SET UP FXPECTFO 
CLEAR THE BOT BIT (XSTO) 
IS THF EOT BIT SET IN XSTO 
BR. If S^-.T CGOOD) 
BUMP COUNT 
jBOT NOT CLbARtD AFTER SPACE FROM BOT 

TRAP CJERHRD 

.UORD 

.l.'ORO 

.UORD 



MOV 


T25BFR*6,R1 ; 


MOV 


R1,R2 J 


BIC 


&BIT1.R2 : 


CMP 


R1.R2 ; 


BEQ 


125$ ; 


INC 


FATFLG ; 


ERRHRD 


ERRN0,T25BNC.EXPREC i 



125$ 



054006 



CKLOOP 

JSR 

MOV 



525 
T25QNC 

EXPREC 



PC,T25RT3 
0257. ,T25SZ 



I CLEAN UP PACKET 

iSET THE CORRECT SIZE U^^ 



TRAP 



C$CLP1 



054000 
054002 



READ DATA COMMAND IN PLACE 

;READ DATA COMMAND IN ^l.ACt 

;REAO BUFFER ADDRESS TO PACKBT 

iR4 - POINTER TO PACKET 

i ISSUE COMMAND 

;WAIT FOR SSR TO SET 

[GET TSSR CONTENTS 

iSET UP FXPECTED 

J ARE THEY EQUAL 

iBR. If OK ESP. FUNCTION REJECT 

;BUMP COUNT 

J TSSR INCORRECT AFTER READ DATA CMO 

TRAP CJEHHRD 
.WORD 
.WORD 
.WORD 
190$: CKLOOP jLOOP IF SELECTED 

TRAP 
;GET FIRST WORD FROM BUFFER 
;SET UP EXPECTED 
;WAS RECORD NUMBERED 1 
iBR. IF CORRECT RECORD 
iBUMP COUNT 
ERRHRD ERRN0,T25WNG, EXPREC fSHOULO HAVE BEEN RECORD NUMBER 1 



MOV 


0140001. T25PK3 


MOV 


FREE.T25RB 


MOV 


0T25PK3,R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


4SSR.R2 


CMP 


R1.R2 


BEQ 


190$ 


INC 


t ATFLG 



ERRHRD ERRNO , RDERR . PK TSSR 



MOV 


blFREE.Rl 


MOV 


01. R2 


CMP 


R1.R2 


BFQ 


200$ 


INC 


FATf LG 



526 
RDERF* 

PKTSSR 

C$CLP1 



SEQ 0193 



Thbl 5: SPACt: Wh'CORDS 



MACRO m?oo :'^ mar t^/i 09.40 pagi-. o-^ 3 



^461 
^48^ 



44a-^ 

4484 
448'j 
4486 



050516 
050520 
0505.'>2 
050524 
050526 
050526 
050550 
0505-^0 
050550 
050552 
050540 
050542 
050546 



104456 
001017 
05440S 
015564 

10*> JOG 



104405 
02572/ 
105402 
004 737 



200 J 



002212 000017 
01727^ 



999$ 



CKl OOP 
HNDSUB 



CMP 

in.o 



TRAP 
,WOHD 
.WORD 
.WORD 



C5P.RHRD 
52/ 

r25WNG 
EXPRfiX 



f Arri.{;,.'n5 

PC.CKDRQP 



TRAP C$CLP1 

;>>>>>>>>>>>> ENO 5UBTLST >>>>•.>>■.^^J> 

L 100/4: 

TRAP CifcSUB 

!S tPRUR COUNT AT 25 
t!R. IF LtSS THAN 25 
TRY TO DROP THt UNIT 



ohQ 0194 



rsV/ HARDWA^r. TE'STS 1 S 



MACRO M1200 



M 1. D 
H?- MAR -04 09:44 PAGt 64 



TLsr 



SPACE RECORDS 



44t^« 
448^> 
4490 
4491 
449^? 
444:^ 
4494 
449^i 
4496 
449/ 
4496 



4499 
4S00 
4501 
450? 
450? 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4515 
4516 



4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4533 
4534 



4535 

4536 
4537 
4538 
4539 



050546 
050546 
050546 
050550 
050554 
050560 



050564 
0505 70 
050572 
050576 
050600 
050600 
050602 
050604 
050606 
050610 



050622 
050626 
050630 
050634 
050636 
050636 
050640 
050642 
050644 
050646 
050646 



104402 
004/37 
004737 
004737 



004737 

103407 
005237 
010001 

104455 
001020 
005650 
012124 
013737 



050616 012704 



004737 
103407 
005237 
010001 

104456 
001021 
005054 
012124 

104406 



05S216 
055310 
055352 



016064 
002212 



00 '2 
05ou60 



010752 
002212 



SBQ 019! 



rrsr 5. suBirsT 4 

VtRIHt-S THAT SPACE RECORDS REVbR^Jt CAN SPACE BACK 
OVER THE FIRST RECORD ON TAPE. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25RESr 
PC, r25RT2 
PC,T25RT3 



• >>>>i> >>>>>> BEGIN SUBTEST >>>>>. *>>>^> 

T5.4: 

TRAP C^BSUB 
J SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
:GET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE ^ CARRY BIT CLEAR IF ERROR 



053700 20$: 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


;BR IF INIT WAS OK 




INC 


FATFUi 


;DUMP COUNT 




MOV 


RO.Rl 


:CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


i FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


528 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T25DSW 


tSET UP DRIVE NUMBER 





MOV 



; SUBROUTINE NEEDS PACKET AODRESS 



*T25PACKET,R4 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



25$: 



JSR PC, WRTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



ISSUE WPITE CHARACTERISTICS 
BR. IF COMMAND ISSUED OK 
BUMP COUNT 

SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC FAILED 

TRAP 
-WORD 
-WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



CJERHRD 
529 

WRTMSG 
SFIMSG 

CjCLPI 



i**A**.A*.*.A*.**AAAm****A******AAA****A*AA*ti4.AA*.A4.A*.A*.A*-4.MA*.AA*.*.*A*.4-A* 

J ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



TtbT «.; SPACt' RlCORn^ 



4S4.' 
4S4^ 
4S44 

4S4t> 
4 '>0 



4SM 

4'S.' 
4S'.^ 
4SS4 
4!>S'. 
4b'>*, 
4SS/ 
4'j*>fl 
45b9 
4S60 
4561 
4b62 
4565 
4564 
456a 



4V.'* 

4s;o 

4S/1 

45:,> 

4575 

45 .'4 

45 r> 

45/6 

45// 

45 /a 

45/9 

4560 

45a I 

45«? 
4586 



4 5ft 7 

4568 
4589 
4590 



CS0650 

050654 

050656 

0506n0 

050664 

050664 

05066* 

0506*0 

OS06.\ 

0SO6 ;4 

0506V4 



0506/6 

050 ro? 

050 704 
050710 
05071? 
050 714 
050 7c*0 
050 /?0 
050 7^2 
050 7?4 
050 7P6 
050/30 
050 730 



050 732 
050 756 
05O74? 
050744 
050750 
050754 
050754 
050756 
050760 
050 76? 
050764 
050764 
050766 



004/5/ 
10540/ 
OlOOOl 
005^5/ 

104*Ei56 
0010.\' 
055005 
01.'U6 

104406 



015/01 
01010"^ 
052 702 
020102 
001406 
005^37 

104456 
001023 
054175 
015564 

104406 



012705 
004737 
105410 
016501 
005237 

104456 
001024 
054115 
0121/2 

104406 
0X^73? 



OlllOJ 
00<V1,' 



055/10 
000002 

002212 



OOOOOl 
010556 

0OOO02 
002212 



MAC(U) MK'OO .''■ MAW 84 *"i;4rt PAl.l 1.4 i 



OOOOOi 054002 



30 1 



.; M PC.Hf WIND 

fiC . ^0« 

MOV «0,R1 

INC MUM (, 

tRRHRL) tRRNO. T^SRwN.HK T'.'.H 



CKL OOP 



iHW. U Nil 
i'.AVf T , .H 

iMKWINU NUT 



Mtwir^j . 



:(JMt1ANl) 



ACCtPThU 



iLUOP l^ ML tcreo 






jRfAD M( 'jSAGf BUff'tR FXTfNOtiD STATUS RtGIM^R /FRO (x-VOl 
1 

«**•***********•**********•*•**************•*****♦*••***♦****♦*♦*♦♦ 

iPICK UP X5T0 
iSM UP t/PtCTtD 
lA T BOT BIT IN f xPtCTf.O 
iDOtS EXP - RFC'O 
iBR, IF FOUAl (OK) 
iHUMP COUNT 

iTAPF NOT AT BOT AFTtR RLUINU 

TRAP 
.WORD 
.WORD 
.WORD 
40t: CKl OOP ilOOP U St'lFCTFD 

TRAP 



MOV 


T258fR*6,Rl 


MOV 


R1.R2 


BIS 


^IT1,R2 


CMP 


R1.R2 


B(0 


401 


INC 


FAULii 



ERRHRD tRRNO,T250OT.t->'PRFC 



]15SI* SPACE RtCOROS COMMAND VAl L>t: IN R5 StTS ^M^et:R 0^ RPCOROS 
iBIT 15 SETS OIRfCTION O-roRWARD l-RLVFRSt 



.Kj OV^h 



r $f php:j 
S',() 

^'^Prri 
PK r-, ,p 



Cifrhrd 

551 

T2SeOT 

F.XPRFC 

C»CL.P1 



MOV 


♦OOOOOl. R3 


J5R 


PC.SPACf 


BCS 


50 » 


MOV 


TSSR(R5i.Rl 


INC 


F ATFLG 



FRRHRD tRRNO, T25W0t , SKKMSli 



j^kJMtEP Of RECORDS TQ SPACt FORWARD 
iCAll :-^ff.. COMMAND 

.(,i'.:Ck F. ■ .^RnOfl 

I'*.' r Tv .'. ■:o',;tnts 

.c.fP COUNr 

I SPACE FORWAHJ BAILED 



TjOJ 



CKl OOP 
HOV 



IlOOP IF Sf.LFCl»-D 



01, Tc'5HH 



TRAP 
.WORD 

.WORD 
.WORD 

TRMP 



iNL^^FW 0* RFCWDb TO SPACF OVER 



CtERh^D 
552 
T25'w0i 
»J^ ^ MSG 

C4CLP1 



} t4^44i«444^444444«««444^444^«4^#«44«4«4«««4«^«*4«««4i4«44>«44L4»4i««*A*«*^ 



ThST S; SPACK Rb CORDS 



MACRO MhH)0 .'< MAR H'l O'*;/i0 PAl,f *,^ <> 



■.F''j Or^/ 



4S'n 

4S^ 

4S9S 

4*S9; 

4-'48 
4St»9 
4600 
4601 
460^ 
4605 
4604 
4605 
4609 



4610 

4611 
461.> 
4615 
4614 
461b 
4616 
461 / 
4618 
4619 
46^0 
46? 1 
4622 
4625 
4624 
46?5 
4626 
4627 
4626 
4629 
46 50 
46S4 



46 55 

4636 
4657 
4658 

•1659 
4640 
4644 



jSPACl Rl V* RSI .ACK.CVC-1 COMMANO 



0507 74 
051002 
051006 
051006 
05101.^ 
051016 
051022 
051026 
051050 
051052 
0510 56 
051056 
051040 
0510*^2 
051014 
051046 
051046 
051050 
051050 

ovao54 



051062 
051070 
051074 
051100 
051104 
051110 
051114 
05U. 
051122 
051124 
051150 
051150 
051152 
051154 
051156 
051140 
051140 
051142 
051146 
051152 
051154 
051156 
051162 
051162 
051164 



U127j>7 
01P704 

010465 
004/57 
016501 
012702 
020102 
001406 
00525 7 

104456 
001025 
0S4115 
012156 

104406 

012705 
013757 



012757 
012704 
010557 
010465 
0O4757 
016501 
012702 
020102 
001406 
005237 

104456 
001026 
005204 

012136 

104406 
017701 
012702 
020102 
001406 
005257 



140410 
054000 

000000 
016540 
000002 
000200 



000400 
003114 



140001 
054000 
054006 
OOOOOO 
016540 
000002 
000200 



002212 



151746 
OOOOOO 



QO^-^U 



054000 



65$: 



MdV 


0140410, U'SPIM 


MOV 


OTP'".PK5,R4 


MOV 


R4. rSDBCRS? 


JSR 


PC.UAITF 


MOV 


!SSR(RS).Rl 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


;5i 


INC 


KATFLl, 


ERRHRD 


ERRN0.T25wDt.PKTS^R 



/5i: 
120 J: 



054002 



CKUOOP 



MOV 
MOV 



I'jPACK HhVtRSe .ACK.CvC'l C'JMMANLi 
J^^T UP M4 WITH PACKET AODRt ToS 

I ISSiJ! COMMANCJ 

jUAir fOR SSR TU SFT 

jCiF.T TSSR CONTFNTS 

|St I UP tXPECTtO 

jARF TM( I f-UUAl 

ibR. If OK 

iBl-^-P COv^^T 

|TbSH INCURRFXT aV TF.R HEAD DATA 

TPAP 
.WORD 
.UORO 
. WORD 



jLOOP IF SELECTED 



TRAP 



C$ERHPD 
55? 

T25WD» 
PKTSSP 

C$CLP1 



0256. .R3 
FREE.T25RB 



I 'STARTING RFAO 



Bl^FtP ADDWtSb 



1 

jREAD DATA,ACK.CVC-1 COMMAND 



054000 



165$! 



MOV 0140001, T25PK5 

MOV 0T25PK5.R4 

MOV R5.T25S/ 

MOV R4.TS0B(R5) 

JSR PC.UAITF 

MOV TSSR(R5).R1 

MOV 0SSR,R2 

CMP R1,R2 

BEQ 1701 

INC FATFLG 

ERRHR'J E RRNO . ROERR . PK T bSR 



jREAO DATA.ACK.CVC-I COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

jSFT UP RFCOWO SIZE IN PACKET 

tissue COMMANO 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

J ARE THEY EQfJAL 

lBR» IF OK 

I BUMP COLW^T 

I TSSR INCORRECT AFTER READ DATA 



170*1 



104456 



0010*; 







TRAP 


CItRHRO 






.WORD 


554 






.WORD 


RDERR 






.W04^0 


PKTS5R 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


CiCLPl 


MOV 


BFREE.Rl 


iGET FIRST WORD FROM BUFFER 


MOV 


00. R2 


iSET UP EXPECTED 




CMP 


R1.R2 


iWAS RECORD NUMBERED 1 




BEQ 


2001 


jBR. IF CORRECT RECORD 




INC 


FATrLG 


;OUMP ClXJNT 




ERRHRO 


tmmt T2^wnu,expre:c 


t SHOULD HAVE BEtN RECORD N(.^ER 


I 






TRAP 


CIE-RHRU 






.WORD 


S55 



TtSi 5: SPACt' RFCORO'- 






'.FO oyiH 



OMU'6 0M40'- 

CM WO 01S'.(.4 

OSIW.' 104406 

obnr4 10440.^ 

4''47 O^iU/^ 0?,^/<V 00. '.M/ 000017 CMP 

•U,48 0-SK^04 10^40.^ (11 

.;m4 obu?ot' 00473: owj/j jsr 

4b50 OM^lc^ 9991: 



PC.CKDROP 



.WOR!) ^/pt^fC 

rpAP CK: fU 

t 100/S: 

TRAP CSF^'JB 

• r, f-tvoow c^'^n AT .". 

jHR, U" I I '. . THAN ,'r 
jTRr ro DROP THF. irt^IT 



i Kj 



Tsv/ Mtun^tjA^^h. US!'. 1 y 

TfcST '>: SPACt RFCORDS 



4hSS 

sN>t>0 
4661 

46b3 
46b4 
4665 



MACRU Mlc?00 ..■-'; H'\R-B4 09:44 Pfltit 65 



4666 
4667 
4668 
4664 
4670 
46/1 
46 7? 
46/3 
4674 
46/S 
46/6 
46/7 
4678 
4679 
4680 
4681 



468? 
4683 
4654 
4685 
4689 



4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 



05121.? 
051212 
0512'.:* 
051214 
051220 
051224 
051230 
051256 
051244 



051252 
051256 
051260 
051260 
051264 
051266 
051272 
051274 
051300 
051502 
051506 
051310 
051514 
051316 
051322 
051526 
051526 
051350 
051552 
051554 
051356 
051556 
051544 



104402 
00473/ 
004757 
004 757 

015/57 
162757 
013737 



SEQ Oiyj 



I 

jVtWUU.S THAT 'jPACf RKCORUS fOMWARD CAN SPACf A 
:MUi ITPIE Nl-JMBfR Of Rf CORDS ( ,'' THRO'H.H 64K OR THF 
; MAXIMUM NUHOFR Of RfcCORDS WRIT TIN UN THF TAPt. 
I WHICH LVfcR lb LtSS. 



055216 
055510 
055552 
054030 
000002 
054030 



054026 
054026 
054032 



BUN5UB 



JSR 
JSR 
J^,R 
MOV 

sue 

MOV 



PC.T25REST 

PC,T25RT2 

PC.T25RT3 

T25CNT.T25CN2 

C2.T25CN2 

T25CNT.T25Dl.r 



i >>>> > >>^ > > >> BF(»IN SUBTEST »>>>^>>^>-»> 

T5.5: 

TRAP CJBSUB 
jShT COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
;SET '^ OTHER COMMAND PACKET 
I HOLD NUMBER O RECORDS 
I ACTUAL NUMBER OF RECORDS ON TAPh 
jSET UP REWIND DELAY COlJNTER 



00-173/ 
103427 

012727 
000000 
015727 
OOOOOO 
005567 
001575 
005567 
001567 
005557 
001356 
016501 
005257 

104455 
001050 
005650 
012124 



015757 002172 053700 
012704 053660 



016064 

000250 

002116 

\ 71112 

1/7/56 

054052 

000002 
002212 



ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR U ERROR 
10 J: 



20$: 



JSR 


PC.SOFIN 


IT 


;D0 INITIALI/t ON CONTROLLtR 




BCS 


20 i 




iBR IE INIT WAS OK 




DELAY 


250 




IWAIT ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


0250. C PC) • 


L$DLY.(PC">* 

6CPC) 
. 4 

-22(PC) 
. 20 


DEC 


T250LY 




I DEC COUNTER 




BNE 


lOi 




iBR. IE MORE LOOPS REQUlRtO 




MOV 


TSSRCRS) 


.Rl 


iCONTENTS OE TSSR REGISTER 


INC 


EATFl G 




;fiUMP COUNT 




ERRDE 


ERRNO.SFlERR.Sf'IMSG 


J FATAL ERROR TSSR WAS NOT OK 










ir^AP 


C$ERDF 








.WORD 


556 








.WORD 


5FIERR 








.WORD 


5FIMSG 



MOv Lf4lTN. T2SD5W 
MOV 0T25PACKET,R4 



I SET 'JP LINIT NUMBER 

iSL«RCJriNE NEEDS PACKET ADDRESS 



i WRITE CHARACTfcHlStlCS COMMAND (CALL TO WRTCHR) 



TSV/ ■ KAPdWAWt rt '>!■; l 6 
Ttsr S: SPACK RtCURDl. 



4698 

4.^00 
4701 
4 70.^ 

4 ;o7 



470H 

4 /O^ 
4/10 
4/11 
47U> 
4/13 
4/14 
4 71b 
4716 
4717 
4718 
4/19 
4723 



4 724 

47.^S 
4/26 
4/27 
4 728 
4 /29 
4/50 
4731 
4/52 
4/55 
4 /',4 
4 75b 
4/56 
4/5? 
4/58 
4/59 
4 740 
4741 
4/42 
4745 
4 744 
4 745 
4/46 
4/4 7 
4 748 
4749 
471iO 



OblSbO 
CM5b4 
0bl5b6 
051562 
051564 
051564 
051566 
051570 
0515 72 
OM5 74 
0513 74 



00475/ 0107S2 

10540/ 

0052 5/ 002212 

010001 

104456 

001051 
005054 
012124 

104406 



051576 
051402 
051404 
051406 
051412 
051412 
051414 
051416 
051420 
051422 
051422 
051424 
051430 
0514 34 
051456 
051440 
051442 
051444 
051446 
051452 



004737 
105407 
010001 
005237 

104A56 
001032 
055005 
012136 

104406 
013701 
012702 
020201 
003002 
010103 
OOO401 
010203 
162/03 
010337 



011104 
0022X2 



054026 
177776 



00000 1 
054002 



051456 
051464 
0514 70 
0514 70 
051476 
051502 
051506 
051512 
051516 

osi:j2o 



012737 
012704 

013737 
010465 
004757 
016501 
012702 
020102 



140010 
054 OOO 

054026 
000000 
016540 
000002 
000200 



054000 
054032 



JSR 


PC.WRTCHP 


BCS 


25 J 


INC 


FATFir, 


MOV 


RO.Rl 



bRRHRO HRRNU , WRTMSG , bK IMSG 



MACRU M1200 2^ MAR-84 09:44 F>Ar,F ^>5 1 



ilSS'Jt: WRITt CHARACTLRIsriCS 
I BR, If COMMANO ISSUED (JK 
;R|JMP COHNf 

jSAVe CON TEN rS OF TnSR 
[WRITE CHARACTERISTlbC rAUt.D 

TRrtP 
.WORD 
.WORD 
. WORD 
25$: CKLOOP jl.OOP ir SELECTED 

TRAP 

'iSSUt REWIND COMMAND TO SELECTED TAPE DRIVE 

JSR PC. REWIND 

BCS 30$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO . T25RWN . PK TSSR 



sro 0200 



30$ 



CKLOOP 





MOV 


125CN2,R1 




MOV 


^65534. .R2 




CMP 


R2.RI 




BGT 


46$ 




MOV 


R1.R5 




BR 


47$ 


46$: 


MOV 


R2.R5 


47$: 


sue 


01. R5 




MOV 


R3.T25RB 



C$ERHRO 

557 

WRTMSG 

C$CL.P1 



I CALL TAPE REWIND COMMAND 




jBR. IF NO PROBLEM 




(SAVE TSSR 




lUUHP COLtJT 




; REWIND NOT ACCEPTED 




TRAP 


C$ERHRD 


.WORD 


538 


.WORD 


T25RWN 


.WORD 


PKTSSR 



iLOOP IF SELECTED 

TRAP 
(NUMBER OF RECORDS ON TAPE 
iMAX IT CAN SPACE OVER 
(WHICH VALUE CAN WE USE 
iBR. IF WRITTEN > 64K 
;9 WRITTEN CAN BE USED 
(MOVE ON 
lUSE MAX NUMBER 
;DUN* T GO ALL THE WAY YET 
iNLWBER OF RECORDS TO SPACE OVER 

; ******* A** ******♦*♦********»♦* ***********«***4i4.***44,4^44.4,4^*4,^***4, 4,* 
J 

I SPACE FORWARD, ACK.CVC-l COMMAND 

* 

{* 4 ********** 4t «**•• 4* • *•**•*•**** *4t444i«4* ****-««****************«** * 



CJCLPl 



65$: 
67i: 



MOV 0140010, T25PK3 

MOV 0T25PK3,R4 

MOV T25CN2.T25DLr 

MOV R4.TSDB(R5^ 

JSR PC.WAITF 

MOV TSSR(H5),R1 

MOV 0SSR,R2 

CMP R1.R2 

BEQ 75$ 



I SPACE FORWARD, ACK.CVC-1 COMMAND 
iSET LP R4 WITH PACKET ADDRESS 

(NUMBER OF RECORDS USED AS DtLAY COUNTER 

(ISSUE COMMANO 

(WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

jSET UP EXPECTED 

iARE THET EQUAL 

lUR. IK OK 



JSV; HARDWARE 


TfSTS L 


a 


TfcST ',: 


: SPACt: 


Rt-'CORDS 




^rM 


051 S^c' 








osis.-^? 


012 7?/ 


000250 




0515J6 


000000 






051550 


015727 


002116 




051534 


000000 






051556 


00556 7 


1/7772 




05154? 


0015 75 






051544 


005567 


1/7/56 




051550 


00156/ 




•l.'^c? 


05155? 


005557 


054052 


4/1)5 


051556 


001551 




4/54 


051560 


005257 


002212 


4 75b 


051564 








051564 


104456 






05! 566 


001035 






051570 


0543)5 






05157? 


012156 




47S9 


051574 








0515/4 


104406 




4 /60 


051576 


012703 


010000 


4/61 


05160a 


015757 


005114 


4 7t>? 








4 76? 








4/64 








4 /6S 








4/66 








4/67 








4/68 








4/69 


051610 


012757 


I 00001 


4 7 70 


051616 


012704 


054000 


4//1 


051622 


010557 


054006 


477? 


051626 


010465 


000000 


4775 


051652 


004737 


016340 


4 7 74 


051656 


016501 


000002 


4775 


051642 


012702 


000200 


4 7 76 


051646 


020102 




4777 


051650 


001411 




4/78 


051652 


052701 


0OO004 


4779 


051656 


001006 




4 780 


051660 


005257 


002212 


4 784 


051664 








051664 


104456 






051666 


001054 






051670 


005204 






051672 


012156 




4 785 


051674 








051674 


104406 




4 786 


051676 


017701 


151212 


4/8 7 


051702 


015702 


054026 


4 788 


051706 


162702 


000001 


4 789 


051/1? 


020102 




4 790 


051714 


001406 




4/91 


051716 


005257 


002212 


4V95 


05172? 








0517?? 


104456 






051/24 


001055 






051726 


054405 





HACRU M120U 2.^ MAR H4 09:44 



PAUL 65 2 



Otl.Al 



250 



; OKI At .25 StCONUS 



DtC 
INC 



12501 r 

b/$ 

^ ATFUi 





5K0 0201 


MOV 


.7250. r PC)* 


, WORD 





MOv 


L $01 '.(PCj - 


.WORD 





Df C 


'6rPC J 


BNt- 


. 4 


DFC 


22rPC) 


BN^ 


. 20 



HRRHRO HRRNlU.T25WDt.Pi<TSbR 



75$ 



054002 



CKl OOP 

MOV 
MOV 



04096. ,R5 
rREE,T25RB 



J BUMP DUWN COl»N[KR 

iHR, V NOr AT f-NO OP DFL AY 

tBUMP COUNI 

iTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IP SELECTED 

TRAP 

.RECORD StZE 

: STARTING READ Bl>> ER A00RE5S 



CiFRHRD 
559 
T25W0E 
PKTSSR 

CiCLPi 



JREAD DATA.ACK COMMAND 

;444444***4**«*4i4>*«********«**«444**«*4i<)i*****4*****-»«44*«**«**«ft4** 



054000 



165$ 



MOV 


«10<X)01,T25PK5 


MOV 


«T25PK3,R4 


MOV 


R3.T25SZ 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TS5R(R5).R1 


MOV 


0SSR.R2 


CHP 


RI.R2 


BEQ 


170$ 


BIT 


*eiT2,Rl 


ONE 


170$ 


INC 


FATFLG 



170$ 



ERRHRD ERRNO , RDERR , PK T^^bR 



CKLOOP 



MOV 


SFREt.Hl 


MOV 


T25CN2,R2 


sue 


01, R2 


CMP 


R1.R2 


BEQ 


200$ 


INC 


PATPLG 



ERRMRD ERRNO. T25WNG,EXPHtC 



iREAD DATA.ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD Si/F IN PACKET 

(ISSUE COMMAND 

jWAIT FOR S5R TO SET 

:GET TSSR CONTENTS 

iSET UP EXPECTED 

(ARE THET EQUAL 

(BR. IF OK 

(CHECK FOR TAPE STATUS ALERT 

(IF SET ALL IS WELL 

(BU»> COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 

.WORD 540 
.WORD RDERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(GET FIRST WORD FROM BUFFER 
;SET UP EXPECTED 

I 'iJULO BE LAST RECORD 

(WAS RECORD NUMBERED R5 

(BR. IF CORRECT RECORD 

(BUMP COUNT 

(SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP C$tRt-'RD 
. WCRO 54 1 
.WORD T25WNG 



TtbT 5: SPACt. HeCOHlVi 

OSWV 10440b 
4 7^7 OSl/M 
05W54 

051731 10440.? 

4;^H osiT.^t. o?j;.?7 00c\n;' 

4/'*^ OSl '44 10540^' 

4^100 0SW4h 004757 017d7c' 

4a01 Obl7f^^ 



MAC(U) Mlc^OO 



rfOOS 



00001/ 



999$ 



-•'' fV\R 84 0'):44 PAUK ^S 5 



CKi am' 

bNDSUH 



CMP h AIM f,..'/!'.. 

JSR PCCKDHUP 



[RAP C^C! PI 

J > > >i . . > . > ^ > > KNO SUBrFST >>>>>>. ^ ,>;. > 

I I007f,: 

TPAP CJESUB 

r. KRROR CCUJNT Af .'''> 
BR, IF I tSS THAN ;". 
THi 10 DROP THE UNIT 



Sf:Cj 0(:'0^ 



»::. 



TSV:* HAPOWAWt TI-sT^ I y 
TtST S; SPACt RECORDS 



4804 
4 SOS 
4H06 
4807 
4808 
4fl0** 
4H10 
4HU 
4rtK^ 
4813 
48U 
481S 
4816 



MACRO M1200 .^? fiAR-ti<5 09 j ^4 PAUt- hi 



4817 
4818 
4819 
4850 
48^1 
48c^^ 
48c^5 
4824 
48a=> 
48^6 
482/ 
4828 
4829 
4850 
4831 



OS1752 
051752 
051752 
051754 
051760 
051766 
051772 
051776 



104402 
004737 
013757 
004737 
004737 
013737 



055216 
054030 
0S5310 
055352 
054030 



4832 
4833 
4834 
4835 
4839 



4840 
4841 
4842 
4843 
4844 
4845 
4846 
484 7 
4848 
4849 



052004 
052010 
052012 
052012 
052016 
052020 
052024 
052026 
052032 
052054 
052040 
052042 
052046 
052050 
0520S4 
052060 
052060 
052062 
052064 
052066 
052070 



004 737 
103427 

012727 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005567 
001367 
005337 
001356 
016501 
005237 

104455 
001036 
005650 
012124 

013V37 



016064 

0O02S0 

002116 

177772 

i;77b6 

0S4032 

00O002 
002212 



052076 012704 



002172 
053660 



054026 
054032 



SfJ 0203 



TtSl 5, SUHTt-ST 6 

VFRTf IF.S THAT SPftCt: RhCORUS RLVLRSt CAN SPACf, A 
MU.TIPLE NUMBER OF RFCORO'j C ,'^ THRQU.H ^.41< OR THt 
MAXIMUM NUMBER OF RECORDS WRITTFN UN THF TAPt 
WHICH LVtR lb LtbS. 



BtiNSUB 



JSR 
MOV 
JSR 
JSR 
MOV 



PC,T25REST 

i25CNT.T25CN2 

PC.T25RT? 

PC,T25RT5 

T25CNT.T25DI.Y 



j>>>>>^>>>>^> BEGIN SUBTEST 

TS.6: 

TRAP 
I SET COMMAND PACKET 
I SET UP RECORD COUNTER 
I SET UP OTHER COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
jSET UP REWIND DEI AY COUNTER 



■» ■> 1 J > ^ 



C$BSUB 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRt BIT CLEAR IF ERROR 
10$: 



JSR 

BCS 
DtLAY 



PC.SOFINIT 

20 J 

250 



053700 20* 



DEC 
BNE 
MOV 
INC 
ERRDF 



MOV 

MOV 



T25DLY 

lOi 

TSSR(R5).R1 

FATFLG 

ERRNO.SFltRR.sriMJiO 



UNITN,T25DSW 
*T25PACKET,R4 



«250.CPC)* 


L $DLTf .CPO* 


-6(PC) 
. 4 
22CPC) 
, 20 



iDO INITIALIZE ON CONTROLLER 

iQR IF INIT WAS OK 

jWAIT ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

;OEC COUNTER 

iBR, IF MORE LOOPS REQUIRED 

iCDNTENTS OF TSSR REGISTER 

iBUMP COUNT 

jFATAL ERROR TSSR WAS NOT OK 

TRAP CJERDF 
.WORD 542 
.WORD SFIERR 

.WORD SFIM3G 
iSET UP UNIT NUMBER 

J SUBROUTINE NEEDS PACKFT ADDRESS 



; 

;WRITE CHARACTERISTTCS COMMAND (CALL T'J WRFCUR) 

i 



rsv: ■ HARlhJARK H STS 1 iJ 
TtST 5: SPACh: RFCORDS 



48S0 


05210.^ 


004/5/ 


01075<^ 


4H^a 


0S2106 


103407 




4as.> 


O^iPllO 


00525/ 


002212 


4flfi6 


052114 


010001 




4857 


052116 








052116 


104456 






052120 


001057 






052122 


005054 






052124 


012124 




A&r-,s 


052126 








052126 


104406 




4«S'* 








4860 








4861 








486? 








4865 








4864 








466S 








4866 


052150 


004 75 7 


011104 


4867 


052134 


103407 




4868 


052156 


010001 




486Q 


052140 


005257 


002212 


4873 


052144 








052144 


104456 






052146 


001040 






052150 


055005 






052152 


012156 




48/4 


052154 








052154 


104406 




48/5 








48/6 








4877 








4878 








48/9 








4880 








4881 








4882 


052156 


013701 


055710 


4885 


052162 


010102 




4884 


052164 


052 702 


000002 


4885 


052170 


020102 




4886 


052172 


001406 




4687 


052174 


005257 


002212 


4891 


052200 








052200 


104456 






052202 


001041 






052204 


OM175 






052206 


015564 




4 892 


052210 








052210 


104406 




46*^5 


052212 


013701 


054026 


4894 


052216 


012702 


177776 


4895 


052222 


020201 




48% 


052224 


003002 




4897 


052226 


010105 




4898 


052250 


0004C1 




4899 


052252 


010203 




4900 


052234 
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JSR PC.WRTCHR 

HCS 25t 

INC F ATFLG 

MOV RO.Rl 

HRRHRO KRRNO , WRTMbti , SF IMbG 



25$ 



CKLOOP 



[ISSlJF WRITK CMARACrLRI'jTlC'j 
jRR, If-' COMMAND ISS'JrD OK 
iBUMP COUNT 

jSAVf CONTENTS OF TSSR 
jWRXTt CHARACTERlSriSC FAIi t D 

TRAP 
. WORD 
.WORD 
. WORD 
iLOOP IF 5El.t:CTF:0 

TRAP 



I 



ISSUF. REWIND COMMAND Tu ^J,F:iRCTbO TAPt DRIVE 



30$: 



JSR PC. RE WIND 

BCb 50$ 

MOV RO.Rl 

INC FATH.G 

tRRHRD ERRNQ , T25RWN . Pl< T SliR 



CKLOOP 



■.CALL TAPE REWIND COMMAND 

:BR. IF NO PROBLEM 

;SAVE TS5R 

;BUMP COUNT 

iREWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

FRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



MOV T25BFR»6.R1 

MOV H1,R2 

BIS ^IT1J^2 

CMP R1.R2 

BEQ 40$ 

INC FATFLG 

ERRK'tO ERRNO , T25B0T , EXPREC 



40$ 



46$ : 
47$: 



CKLOOP 

MOV 

MOV 

CMP 

BGT 

MOV 

BR 

MOV 



T25CN2.R1 

065554, ,R2 

R2,R1 

46$ 

;^1,R5 

47$ 

R2,R3 



jPICK UP XSTO 

:SET UP EXPECTED 

iSET SOT BIT IN EXPECTED 

:OOES EXP - REC'D 

:BR, IF EQUAL COK) 

tBUMP COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 

t NUMBER OF RECORDS ON TAP£ 

;hAX IT CAN SPACE OVER 

t WHICH VALUE CAN WE USE 

iBR. IF * WRITTEN > 64K 

lO WRITTEN CAN BE USED 

-.MOVE ON 

lUSE MAX NUMBER 



C$ERHRD 
54 5 

wrtm:/, 

SFIMSu 
C$CLP1 



C$ERHRD 
544 

T25RWN 
PKTSSP 

C$CLP1 



C$ERK/?D 
545 
i25B0T 
EXPREC 

C$CLP1 



')EQ 0204 



TSV; - HAPOWARL TtSTS I S 
TtST ^: SPACr RFCORD^ 



4901 

4905 
4904 
4 90S 
490() 
490-' 
4900 
4909 
4910 
4911 
491? 
491"^ 
4914 
491h 
4916 
'^917 
4918 



4919 
49^0 
49r'l 
4925 



4926 

492/ 
4928 
4929 
4930 
4931 
4932 
4935 
4934 
49.fS 
4936 
493; 
4458 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 



052234 01033V 



052240 
052246 
052252 
052256 
052264 
052270 
052274 
052300 
052302 
052304 
052504 
052510 
052312 
052316 
052320 
0r2324 
0^2326 
052332 
052334 
052340 
052342 
052346 
052546 
052350 
052352 
052554 
052556 
052556 
052560 
052364 
052370 
052572 
052574 
052376 
05240O 
052402 
052406 



052412 
052420 
052424 
052430 
052436 



01275/ 
012/04 
010465 
013737 
004 737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001567 
005537 
0015:^1 
005237 

104456 
001042 
054113 
015564 

104406 
013701 
012702 
020201 
003002 
010105 
0OO401 
010203 
162705 
010337 



01275/ 
012/04 
010465 
013/57 
004 737 



140010 
054000 
000000 
054026 
016540 
000002 
000200 



000250 
002116 
l"7/772 
177756 
054032 
002212 



054026 
177776 



000001 
054002 



140410 
054000 
000000 
054026 
016340 
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MOV R5.T25Rn jNUMHtR f> HKCOHU^; TU SPACF OVfR 

*jPACt.. t-UHWAHD.ACK.CVC 1 COMMAND 



'jLO 0205 



054000 
054032 



48$ 



HOV 


0140010, T25PK3 


MOV 


flT25PK5.R4 


MOV 


H4.T5DB(R5) 


MOV 


T25CN2.T25DI.Y 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BCQ 


50$ 


OtLAY 


250 



t5PACE F0RWAR0.ACK,CVC"1 COMMAND 

SF:T up R4 with PACKFT ADURtSS 

ISSUE COMMAND 

SF I UP L",' ft\ COUNUR 
iWAIT fOR SSR TO 5tT 

GtT TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

WAIT .25 bECUNDS 



DFC 


T25DI y 


BNE 


48i 


INC 


FATFLG 



MOV 


<?250.rPC J* 


.WORD 





MOV 


LJDl.T .rpo* 


.WORD 





DEC 


-ti(PC) 


BNE 


. 4 


DEC 


-22tPC) 


BNE 


.-20 



50 J 



ERRHRD ERRNO . T25WDE , tXPREC 



CKLOOP 



DEC THE DELAY COUNTER 
BR. IF COUNTER HASN'T EXPIRED 
BUMP COUNT 
iTSSR INCORRECT AFTER READ DATA 



TRAP 


CiERHRD 


.WORD 


546 


.WORD 


T25W0F 


.WORD 


EXPREC 



TRAP 
I NUMBER OF RECORDS ON TAPE 
(MAX IT CAN SPACE OVER 
WHICH VALUE CAN WE USE 
BR. IF * WRITTEN > 64K 
<» WRITTEN CAN BE USED 
riOVE ON 

I USE MAX NUMBER 
:DON T GO ALL THE WA> itT 
(NUMBER OF RECORDS TO SPACE OVER 

I SPACE REVERSE. ACK.CVC-l COMMAND 

i 





MOV 


T25lN2.R1 




MGv 


065554. ,ft2 




CMP 


R2.R1 




BGT 


55$ 




HOV 


Rl .R3 




BR 


60$ 


55$: 


MOV 


R2.R5 


60$: 


SUB 


01, R5 




MOV 


R3.T25RB 



C$CLP1 



054000 
054032 



70$: 



MOV 0140410. T25PK3 

MOV OT25PK3,R4 

MOV R4,TSDBCR5) 

MOV T25CN2. 125DLY 

JSR PC.WAITF 



SPACE REVERSF .ACK.CVC-l COMMAND 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 

{^e T UP COUNTER 

iWAIT FOR SSR TO SET 



TSy/ ■ HA^^[>WARK. TtSTS 1 « 
TbijT 5: SPACr. RtXOHDS 
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4948 
494^i 
49S0 
4951 
4952 



49Si 
49b4 
49Sb 
49b9 



4960 

4961 
496? 
4965 
4964 
496^) 
4966 
4967 
4968 
4969 
4970 
4971 
49/2 
4973 
4974 
4975 
4976 
4977 
4978 
49/9 
4980 
4981 
498? 
4985 
4987 



4988 

4989 
4990 
4991 
4992 



05244^ 
052446 
05P45? 
052454 
052456 
052456 
052462 
052464 
052470 
052472 
052-^^76 
052500 
052504 
052506 
052512 
052514 
052520 
052520 
052522 
052524 
052526 
0S2550 
052550 
0525S2 
052536 



052544 
052552 
052556 
052562 
052566 
052572 
052576 
052602 
052606 
052612 
052614 
052616 
052622 
052624 
052650 
052650 
052632 
052654 
052656 
052640 
052640 
052642 
052646 
052652 
052654 



016501 
01270? 
0,^010? 
001425 

012727 
000000 
013727 
000000 
005567 
00i;^75 
005567 
001567 
005557 
001551 
005237 

104456 
001045 
054115 
015564 

104406 
012703 
013737 



012757 
012704 
012700 
004 757 
010537 
010465 
004757 
016501 
012702 
020102 
001411 
052701 
001006 
005257 

104456 
001044 
005204 
015564 

104406 
01/701 
012/02 
020102 
001406 



00000? 
000200 



000250 
002116 
177772 
177 756 
05405? 
002212 



010000 
003114 



I 00001 
054000 
177777 
017512 
054006 
000000 
016540 
000002 
000200 



000004 
002212 



150246 
000001 



'jEQ 0206 



MOV TSSR(R5),R1 

MOV .VS''.R,P2 

CMP R1.R2 

BE Q 75$ 

DtLAir 2bO 



jGt T TS5R CONTENTS 
SF r UP KXPf-CTf-O 
ARF THf-y E-.QUAL 
BR, ih UK 
WAIT ABOUT .25 SECONDS 



DEC 


T250L Y 


BNF- 


/o$ 


INC 


FATFLG 



MOV 


,v?SO,''PC)» 


.WORD 





MOV 


I $Dl ' . I'PC)'- 


.WORD 





OFC 


-6CPC; 


BNt 


. 4 


DEC 


??i'PC) 


ONt 


. -20 



ERRHRD F.RRNO . T25WDE , EXPREC 



75$ 



0S4002 



CKLOOP 

MOV 
MOV 



i>4096. ,H5 

rREE.T25RB 



I BUMP COUNTER DOWN 

jBR» IK COUNTtR HASN'T EXPIReD 

;BUMP COUNT 

iTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

;LOaP If- SELECTED 

TRAP 

: RE CORD 'UZE 

; STARTING RFAD BUfFER ADDRESS 



C$tRHRD 
54 7 

T25WUE 
EXPRFC 

C$CLP1 



READ OATA.ACK COMMAND 



054000 



165$ 



MOV 


0100001, T25PK3 


MOV 


#T25PK5.R4 


MOV 


0177777. RO 


J5R 


PC.FILLMEM 


MOV 


R5.T25S7 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEG 


170i 


BIT 


0BIT2.R1 


BNE 


I70i 


INC 


FATFLG 



170* 



ERRHRD ERRNO . RDERR , EXPREC 



CKLOOP 



MOV 


aFREE.Rl 


MOV 


01, R2 


CMP 


R1.R2 


BEQ 


200$ 



I READ DATA.ACK COMMAND 

J SET UP R4 WITH PACKET ADDRESS 

;StT ALL ONES INTO CORRECT RtCilSTER 

iFILL HEMORY WITH RECORD SIZE 

iSET UP RECORD SIZE IN PACKET 

J ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

tSET UP EXPECTED 

;ARE THEY EQUAL 

(BR. IF OK 

(CHECK FOR TAPE STATUS ALERT 

jBR. IF BIT SET 

I BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 548 
.WORD RDbRR 
.WORD EXPREC 

jLOOP TF SELECTED 

TRAP CJCLPl 
iGET FIRST WORD FROM BUFFER 
jSET UP EXPECTED 
:WPS RECORD NUMBERED R5 
iBR. IE CORRECT RECORD 



TSV/ HAROWAnK TfSTs 1-6 
Ttsr 5: f>PACe: RFCORDG 



MACRO Ml.'OO »:? MAR-«^ 09:^5^ PAlif- ^7 A 



4997 



•1998 



4999 



^000 
5001 
500J 
b003 



052656 
052662 

05266^ 
052664 
052666 
052670 
0526^2 
052672 
0526 /4 
052674 
052674 
0526 /6 
052704 
052/06 
052712 



005257 

104456 
001045 
054560 
015564 

104406 



104403 
025 72/ 
105402 
004737 



200$ 



002212 000017 
01/272 



999$ 



1.NC 
ERRHRO 



CKi nop 

ENDSUB 



CMP 
Ri.O 
JSR 



rATTLCi 
F.RRN0.T25WNH,tXPRfcC 



^ ATFLCi..'U5 
999$ 

PC.CKDROP 



{BUMP COUNT 

{SHOULD HAVfc BtEN RECORD NUMUFR I 

TRAP C^FRHRO 
.WORD 549 
.WORD I25WNH 
.WORD EXPRFC 

TRAP C$Cl PI 

1.10077: 

TRAP C$tGUB 
I;, ERROR COUNT AT 25 
RR. Xy LESS THAN 2S 
TR.- TO DROP THE UNIT 



SEQ 0207 



UStR DOCUMtiNTATlON 



CI 

[)1 
hi 
fl 

VA 
HI 
II 
,.J1 
Kl 
l.l 
Ml 
Nl 



[IS 

OS 
tb 
KS 
GS 
HS 
IS 
JS 
KS 
L.S 
MS 
N5 



C '> 
D'> 

.S9 

I '> 
MV 
N9 



I- 1.5 

^ 13 
HI? 

I I'. 
Ni;-5 



G2 
H? 
I? 

J? 

L? 

N? 



Bd 
C6 
Ofy 
E6 
r6 
G6 
H6 
16 
J6 
K6 
Lb 
M6 
N6 



tJlO 
LIO 
DIG 
MO 
HO 
GIO 
HIO 
110 
JIO 
KIO 
LIO 
MIO 
NIO 



Eil4 
Cl^* 
D14 
f:14 
F 14 
G14 
H14 
114 
J 14 
K14 
L14 
M14 
N14 



C3 
D3 
E3 
F3 

G3 
H3 
13 
J3 
K3 
L3 
M'. 
N3 



B7 
C7 
0/ 
h7 
F 7 
G7 
h7 
17 
J7 
1<7 
L/ 
M/ 
N7 



Bll 
Cll 
Oil 
Ell 

rii 

Gil 
Hll 
111 
JU 

Kll 
Lll 
Mil 
Nil 



BIS 
CIS 
OlS 
EIS 
K15 
G15 
HIS 
IIS 
J15 
KIS 
LIS 
MIS 
NIS 



04 
C4 

D4 
E4 
F4 

G4 
H4 
14 
J4 
K4 
I 4 
M4 
N4 



ua 
rs 

f 8 

Gtt 
H8 
18 
J8 
l<8 
L8 
M8 
N8 



B12 
C12 
Dl? 
E12 
F12 
G12 
hl2 

-m 
m 

Li:? 
r.i:? 



Bit. 
C16 
Di6 
Flf^ 
F16 
G16 
Hlb 
116 
J 16 
K16 

Lie 

M16 



TSv; ■ HAROWARt. TfSTs 1 y 
TtST 5: SPACE RECORDS 



SOO'j 

500 .' 
SOOH 
S00'> 

^olu 

SOI? 
so 15 
S014 

5016 



MACRL' MU\10 .'^ MAR rt-^ o'i.4^ pAl,( hH 



SOL' 
5018 
5019 
50^\"i 
5021 
50tV^ 
SO^^ 
50^4 
5025 
502^ 
5027 
5028 
5029 
505^ 
5034 



50^5 
5056 
505/ 
5036 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5051 
5052 



.053 



ovr/w 

05J712 
052712 
052714 
0'>2 (20 
052724 



052730 
052734 
052736 
052 742 
052 744 
052 744 
052746 
052 750 
052752 
052754 



J 



054 
5055 
5056 



052766 

0527 72 
0527 74 
053000 
055002 

053002 
053004 
053006 
053010 
053012 
O5301S 



104402 

004 73; OS^.'U, 

004:? 7 055310 

004737 055552 



004737 01^064 

10540 7 

00525 7 002212 

OlOOOl 



104455 
001046 

oo56::o 

012124 
013737 



052762 012704 053660 



004737 010752 

105407 

005237 002212 

010001 

104456 

00104 7 
005054 
012124 

10440^ 



'^FO 0206 



If-'ST S. SLWTfM ; 

VlWlMf-^ THAT sPflCl Rt-COR'J'. Rt VJ RSt IS'.'fll UHll F T Hf 
'APf IS AT BOT RfSUTs IN »'^CMON Rt JM. ^ TepMlNAM^'N 
WITH ThF NONfVtCUTAHU H>NLTl(iN fNM 1 fcPRJR BIT St T . 



BaNSlJP 



JSH 
JSR 

i-.R 



I 



>■»!»>>> 



PC. T2SRI • 
PC. T.-SRT2 
PC,T2SHT3 



>> BEGIN SUBTl T 
T5. 7: 

TRAP 
; ^FT COMMANU PACKt T 
iSl 1 ^Jf^ UTH(.R COMMANU PA:~KF T 
}Sf T IIP OTMfR COMMAND PAC-^"!- T 



CJBSJH 



mS'.* CONTROt I FR ■ ,rw T ' INIMAil/F C^RRt BH ClFAR If ePRO« 



JSR 


PC.SOF INIT 


BCO 


20 1 


INC 


FAT* L L, 


HOv 


RO.Rl 


f-RRUE 


ERRNO.Srit.KR.SF IMSl, 



0021 72 053 700 -HU : 



NOV ».'NITN.T250-.U 

MOV 0T25PACKf T ,R4 



lOU iNITlALT/e OH CONTROt.LFP 




iBR IF INIT WAS O*' 




iBUMP CO'JNT 




;CONTfNTS 0? TS5R RfOIST^R 




;FATAl tRRDR Tb'iR WAS NOT QK 




TRAP 


CJFWD* 


.WORD 


550 


.U0«0 


Sf URR 


WORD 


SFIMbG 


:SF T <»^ ')NTT Nt.MBFR 





iSl«R(KtTINt NtEDS PACkI T ADDRESS 



URITF CHAPACTFRISTICS COMMAND I CAl 1. TO WRTCHR) 



jlSSUt WRITE CHARACTERISTICS 
iBR. If COMMAND ISSLH-D OK 
iBUMP COCINT 

;SAvt CONTENTS W TSSR 
IWRITE CHARACTERI5TISC FAILED 

TRAP 
.W0«D 
.WORD 
.WORD 



JSP 


PC.WP^CHR 


BCS 


25 » 


INC 


F ATf I (. 


MOV 


RO.Rl 


ERRHRO 


FRRNO . WR THSG . SF IMSU 



i: 



CKl OOP 



;l OJP IF- SELECTFD 



TRAP 



C$ERMRD 
551 

WRTMSG 
SF IMSG 

C$CLPI 



; *'******«>*«*«i)ti4«*>).i«'*4i44:**>«L4.>fc«*4*44 4A4.««44*44 4i4i4«A4^4>4i4'4-% + 4^ + A4.ff 4.^44. 



TSV* n-WOwAHt M.STS I y 
Tt.bT 6: RhREAOS 



MACRO MU>00 /^ Maw rt4 O'J.^^ pAlil ,\> .1 



.F''J O^-^? 



S6? 7 
5650 



S656 

5*S5? 
5658 
5659 
5640 
5641 
564,-^ 
5645 
5644 
5645 
5646 
5647 
5643 
5649 
5650 
5651 
565? 
5653 
5654 
5655 
5659 



5660 

5661 
5662 
5663 
5664 
5665 
5666 
5667 
5666 
5669 
5673 



5674 

5675 
5676 
5677 



05612^^ 
056126 
056150 
056134 
056140 
056144 
056144 
056146 
056150 
056152 
056154 
056154 
056156 
056162 



056W0 
056176 
056202 
056206 
056212 
056216 
056222 
056226 
056230 
056232 
056236 
0.>6236 
056240 
056242 
056244 
056246 
056246 
056250 
056254 
056256 
056262 
056264 
056266 
056270 
0**6272 
056274 
056300 
056300 
056302 
056304 
056306 
056310 
056310 
056312 
056314 
056316 



004 75; 
1054 U^ 
016501 
012702 
00523 7 

104456 
001140 
07241; 
015564 

104406 
013703 
013737 



012757 
012704 
010337 
010465 
004 757 
016501 
012702 
020102 
001406 
005237 

104456 

001141 
073640 
012136 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 

104456 
001142 
073062 
015564 

104406 
005724 
160204 
020403 



01055t> 

ooooo:^ 

000200 
002212 



JSH 


PC.'.PACt 


Hc; 


ISOi 


MOV 


TSSR(R5).R1 


MOV 


ffSSH.R2 


INC 


FATflG 



ERRHRD ERRNO . T26SC , F XPRF C 



150$ 



07200P 
003114 



0?1752 



CKLOOP 

MOV 
MOV 



iCAl i '.;PACf- ROUMNE 

iHR. IF NO PROniFH wrTH ".PACK CQMHAno 

j(;f-T r/,R 

iSF T OP t>P»:CTf D rS'jP 

jH'iMP COlti! 

jPOSiriON (SPACE HECOROb; ^AIIFD 

TRAP CtKRHRD 

. WORD 60ft 

.UORD T26SC 

.WORD E/PREC 



T26RS/.R5 
rREE.T?f,RH 



TRAP 
;RtCORD SIZE 
ISTARTIK4G READ BUfTER ADDRESS 



C$Ci.Pl 



t 

iREREREAD DATA.CVC-l ,ACI< COMMAND 

! 



141001 
071750 
071756 
000000 
016340 
000002 
000200 



002212 



071750 



165$: 



MOV 


«141001.T26PI<3 


MOV 


«T26PK3,R4 


MOV 


R3.T26SZ 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR.R2 


CMP 


R1.R2 


BEQ 


170« 


INC 


FATELG 


ERRHRD 


ERRNO, T26WDC,PI<TbSR 



003114 
000400 



1/OJ: CKLOOP 



173J: 



002212 



MOV 


rREE.R2 


MOV 


R3,R4 


sue 


•256. ,R4 


ADO 


R2,R4 


CMP 


(R4).R5 


BEQ 


180* 


MOV 


CR4).R1 


MOV 


R5.R2 


INC 


rATFLO 


ERRHRD 


ERRNO. T260TA,tXPREC 



1801: CKLOt P 

TST (R4). 

sue R2,R4 

CMP R4,R5 



iREREREAD OATA.CVC- 1 ,ACK COMMAND 

;SET UP R4 UITH PACKET ADDRESS 

jSET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

jWAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

iSET UP EXPECTED 

,ARE TmEY equal 

iBR. IF OK 

iBUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 



TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 

J CURRENT BUFFER ADDRESS TO R2 

iCLWRENT RECORD SIZE 

jFIRST LOCATION IN BUFFER 

I SET UP POINTER 

iCHECK DATA READ (R5-DATA ALSO) 

(BR, IF ALL IS WELL 

iRECD DATA 

lEXPECTED DATA 

J BUMP COUNT 

lOATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

ilOOP IF SELECTED 

TRAP 

iBUMP VO NEXT LOCATION 

: CORRECT RECORDS Sl^E V^UUe 

I END QF RECORD lET 



CiERHRO 
609 
T26W0C 
PKTSSR 

CJCLPl 



OERHRD 
610 
T2t^DTA 
EXPREC 

CtCLPX 






MAffu; Ml. '00 ,'f tV\i} HA n-i.^A P/UjI *>H .' 



Mil 
Ml^ 
Ml'- 

M : 4 

Mlt. 
Ml 7 
^118 
511'^ 

S121 
5127 



Sl^tt 
5129 



blJO 

':>i5i 

5133 



ori5r>4 
os3ir.t, 

OSJlbb 



055160 
0b?l64 
0S3166 
0551 7P 
053174 
053176 
05320^ 
053202 
053204 
053206 
053210 
055212 
053212 
053214 
0^3214 
053214 
053216 
053224 
053226 
055232 



0121 ^r 
I0440t> 



( w : 



CKl dl"' 



1 1 OOP \i ')f.i.Kreo 







'.fj 0210 


.UOfV) 


PKT'.':,P 




TPAP 


CiCLPl 





« * * 



NtAD Mf '.SACf- RMffrP fXTFNUn) MATu'. RfGr)UR 7FR0 (>,STO) 



015701 C55:iO 

010102 

052 702 002000 

02010.^ 

001406 

005237 002212 

104456 
001055 
05464 5 
015564 

104406 



104405 

023 727 002212 000017 

103402 

004737 017272 



170$ 



MOv 


i.'^tuf^.*,.ni 


f^OV 


Hl.R*' 


MIS 


^IT10.R2 


CMP 


fn.R2 


m Q 


1 70$ 


INC 


» ATf I {. 



999* 



PRRHRU FRRNO, T2iNtF .EXPREC 

CKlOOP 
tNC;»un 



CMP FAff LG.OIS. 

JSR PC.CKDROP 



;EjKT 


XbTO ^TATUb WORD 






, --.t T 


UP fcXPKCTEU 






J SET 


THE NEF BIT 






;ARE 


THEY EQUAl 






;BR. 


IF fOUAl (GOOD) 






;B"JMP COLtNT 






iNEr 


SMOU.O BE SET 










TRAP 


Ct^RHRO 






.WORD 


555 






.WORD 


T25NE^ 






.WORD 


EXPRFC 






TRAP 


CiCLPl 




I.IOIOO: 










TRAP 


cJEsue 



J IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
:TRY TU DROP THE UNIT 



TtSr 5: SPACK RtCORDb 



MAC'^u MK-'*io r'- rvxHHA fy■il^*^ PACif ^-.9 



'jBO 0^11 



"'Ml 

M44 
S14S 
514t. 
514^ 
^148 



5149 
51S0 
5151 
515J 
515^ 
5154 
5155 
515^ 
5157 
5156 
5159 
5160 
5161 
51r)5 
5166 



5167 
5168 
5169 
5170 
5171 
517^ 
5W5 
5174 
5175 
5176 
5177 
5178 
5179 
5185 
5184 



5185 
5186 



05525^^ 
053252 
055P52 
053234 
053240 
053244 



104402 
004^57 
004 73 7 
0047?? 



053250 
053254 
053256 
053262 
053264 
053264 
053266 
053270 
053272 
053274 



004 737 
103407 
005257 
010001 

104455 
001054 
003650 
012124 
013737 



05330c' 012704 



053306 
053312 
055514 
055320 
053322 
053522 
053524 
053526 
053550 
055552 
053532 



004/57 
105407 
005257 
OlOOOl 

104456 
001055 
C05054 
012124 

104406 



055216 
055510 
055352 



016064 
002212 



TfST 5, ■MJtUr-sT 8 

VfRUUs IHAT A SPACe RtCuRDS Pl.VtRSE COMMAND THAT 
CMASt ', IHI. TAPF TO Wl^N 1NT(J HOI (WITH FHf TAPf- NUT 
INITIAl.l > AT BOD CAU5f '"^ A TAPt STATU', AltMT 
URMINATION ANO SETS THE. RbVERSt IN^O BOT (RIB) 
STATUS BIT 



BGNSUB 



JSR 


PC.T25REST 


JSR 


PC.T25RT2 


JSR 


PC\T25RT5 



• >>>>>>>>>>>> BF.GIN SiJBTEST >>>> ^ ■->*>>> > 

T5.8: 

TRAP C$B5UB 
iSr.T COMMANO PACKET 
J SET UP OTHtR COMMANO PACKET 
i SET UP OTHtR COMM'XNO PACKET 



ISSUE CONTROLLER "SOFT" INITIALI/E ■ CARRY Br CLEAR IE ERROR 



002172 
053660 



053700 20$: 



JSR 


PC.SOf'INIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


jBR IF INIT WAS OK 




INC 


EATELG 


iBUMP COUNT 




KOV 


RO.Rl 


;C0NTENTS OF TSSR REGISTER 




ERRDE 


ERRNO.SEIERR.SEIMSu 


iFATAL ERROR TSSR UAS NOT OK 








TRAP 


CtERDF 






.UORO 


556 






.WORD 


SFIERR 






.WORD 


SriMSG 


MOV 


UNITN,T250SW 


J SET UP UNIT NUMBER 





MOV 



*T25PACKtT.R4 



tSl©ROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 

• 4**«*««**#«««4i**««4*44444******4iA****4*A***4**4****4******4«***** 



010752 
002212 



JSR 
BCS 
INC 
MOV 



PC.WRTCHR 
25» 

FATFLG 
RO.fll 



25$; 



ERRHRD ERRNO.WRTMSG.SFIMSG 



CKt.OOP 



i ISSUE WRITE CHARACTERISTICS 
(BR, IF COMMAND ISSUED OK 
I BUMP COUNT 

;SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECrtO 

TRAP 



CJERHRD 
55 7 
WRTMSG 

SFIMSb 

C$CLP1 



TSV.' H'\(?[)W'^Ht TLSTS I 8 
Ttsr 6; REREADS 



5/45 
S744 

b746 
b74V 
!^748 
S.'49 
5750 
5751 
5752 
5753 
5757 



5758 

5754 
5 760 
5761 
576^ 
576? 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5775 



5776 

5777 
5778 
5779 
5780 
5/81 
578P 
5783 
5784 
5785 
5786 
578/ 
5788 
5789 
5/90 
5791 
5792 
5795 
S794 



056460 
056464 
056466 
0564 7p 
0564 76 
056500 
056504 
056504 
056506 
056510 
056512 
056514 
056514 



004 737 
103413 
016501 
012702 
010004 
005237 

104456 
001145 
073304 
012136 

104406 



011104 

000002 
000200 

002212 



056516 
056522 
056524 
056530 
0S6532 
056534 
056540 
056540 
056542 
056544 
056546 
056550 
05G550 
056552 
056556 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001146 
073015 
015564 

104406 
012703 
013737 



071660 
000002 

002212 



000400 
003114 



056564 

056572 
056576 
056576 
056600 
056604 
056610 
056614 
Q56620 



012737 
012704 

010300 
004737 
010337 
010465 
004757 

016501 



U0005 
071750 



017512 
0/1756 
000000 
016540 
000002 



MACRO MU-*(JO ,"< MAR H4 0'i:44 PAGf- /3 1 



I-:;SU. REWIND COMMAND TO St-.LKCTFD TAPh DRIVE 

iCALL TAPE REWIND COMMAND 

jBH, IF NO PROBLEM 

:GET T'-jSR 

jSET UP EXPECTED TSSR 

; PACKET ADDRESS SET iJP 

;BUMP COUNT 

iREWiND NOT ACCEPTED 



SPQ o^;^5 



071752 



071750 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


MOV 


H0,R4 


INC 


FATELCi 



tRRHRD ERRNO . TP6RWN » Pl< TbSR 



30$ 



CKLOOP 



il-OOP IF SELECTED 



TRAP 
• WORD 
.WORD 
.WORD 

TRAP 



READ MES^i 'JE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

;PICK UP XSTO 
iSET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
jDOES EXP - REC'D 
iBR. IF EQUAL COK) 
jBLinP COUNi 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP ;LO0P If SELECTED 

TRAP 
: RECORD SI2E 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T26BrR.6.Rl 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


40i 


INC 


FATFLG 



ERRHRD ERRNO, T26B0T . EXPREC 



CKLOOP 

MOV 
MOV 



ft256. .R5 
FREE,T26RB 



WRITE DATA.ACK.SWB COMMAND 

****** ^ *♦♦♦♦*«♦♦ t *♦♦*»♦♦♦♦«♦♦♦♦ + * 4i *44^4* » ^ * 4^ » 4i ** 4 ** 4 4 #* 4^ * 4 * ^ 4 * ^ 4 » ^ 



65$: 



MOV 


<>1 10005, T26PK3 


MOV 


0T26PK3,R4 


MOV 


R3,R0 


J5R 


PC.riLLMEM 


MOV 


R3.T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITF 


MOV 


T5SRCR5)>R1 



CIERHRD 
615 

T26RWN 
PKTSSP 

CJCLPl 



C$ERHRD 
614 
T2680T 
EXPREC 

C$CLP1 



iWRITE DATA, ACK, sue COMMAND 
J SET UP R4 WITH PACKET ADDRESS 

iSET PATTERN IN CORRECT REGISTER 
iFILL MEMORY WITH RECORD SIZE 
(SET 1^ RECORD SIZE IN PACKET 
1 ISSUE COMMAND 
iWAIT FOR 5SR TO SET 
iUET TSSR CONTENTS 



TSV ' HARDWAMt. ThSTS L-8 
TEST 6: RF.Rf.AOS 



b/95 

5798 
S802 



S803 

5804 
5805 
5806 

5807 

5808 
5809 
5810 
5811 
5812 
581? 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5825 



5826 

582? 
5828 
5829 
5850 
5831 
5832 
5833 
5834 
5635 
5836 
585/ 
5858 
5639 
5643 



5844 



056624 
056630 
056632 
056634 
056640 
056640 
056642 
056644 
056646 
056650 
056650 
056652 
056654 
056660 
056662 
056662 
056664 



056664 
056670 
056672 
056676 
056702 
056704 
056710 
056710 
056712 
056714 
056716 
056720 
056720 



056722 
056726 
056730 
056754 
056736 
056740 
056744 
056744 
056746 
056750 
056752 
056754 
056754 



012 70J 
0.?0102 
001406 
005237 

104456 

001147 
005111 
012136 

104406 
005723 
022703 
001346 

104406 



004737 
105413 
016501 
012702 
010004 
005237 

104456 
001150 
73504 
012136 

104406 



015701 
010102 
052702 
020102 
001406 
005257 

104456 
001151 
075015 
015564 

104406 



000200 
002212 



MACRO ML200 .'^ MAR 84 0^)!4n PAGl /S 2 



MOV t'/S'jn,R2 

CMP R1,R2 

BFQ 75i 

INC TATFLG 

t RRHRD tRRNO , WRTtRR , PK I SSR 



SBQ 0226 



000414 



011104 

000002 
000200 

002212 



071660 
000002 

002212 



75$ 



CKLOOP 

1ST 
CMP 
BNE 
CKLOOP 



(H3)* 
*268. ,R3 
65$ 



iSEV UP EXPt.CTt.U 

;ARf- THFY f-.QUAL 

;BR V OK 

:BUMP COUNT 

jTSSR INCORRECT AF rp.R WRITb DATA 

TRAP CiFRHRD 

.WORD 

. WORD 

• WORD 
jLOOP IK SELECTED 

TRAP 
(RUMP RECORD ST/E 
:ENO Of RECORD YET 
iBR. IF MORE RECORDS TO WRITS: 
iLOOP IF SELECTED 

TRAP 



80$: 

120$: 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 

;BR. IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

(BUMP COUNT 

(REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


150$ 


MOV 


TS5RCR5).R1 


MOV 


*SSR.R2 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO , T26RWN , PK TSSR 



130$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

* 

(PICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
(DOES EXP • REC'D 
(BR. IF EQUAL COK) 
(BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
,WORO 
140$; CKLOOP (LOOP IF SELECTED 

TRAP 



MOV 


T26BrR»6.Rl 


MOV 


R1.R2 


BIS 


»eiTl.R2 


CMP 


RI.R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T . EXPREC 



615 

URTEHP 

PKTqSR 

C$CLP1 



C$CLP1 



C$ERHRO 

616 

T26RWN 

PKTSSR 

C$CLP1 



C$ERHRD 
617 
T2t.B0T 
EXPREC 

C$CLP1 



TtSl t>i HLWtADS 



MACRO H1200 :!7> MAR-fl4 09:40 PAGF. 73 3 



SFQ 0^;^/ 



bfl4'3 

5H4 .' 
584a 
5849 
5850 
5851 
585? 
5853 
^>854 
5855 
5856 
5857 
5858 
5859 
5863 



5864 

5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5885 
5887 



5888 

5889 
5890 
5891 
5892 
5893 
5894 
5895 
5896 
5897 



056756 012737 000400 072002 



056764 
056770 
056774 
056776 
057002 
057006 
057012 
057012 
057014 
057016 
057020 
057022 
05 7022 
057024 
057030 



057036 
057044 
057050 
057054 
057060 
057064 
057070 
057074 
057076 
057100 
057104 
057104 
057106 
057110 
057112 
057114 
057114 
057116 
05 7122 
057124 
057130 
057132 
057134 
057136 
057140 
057142 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001153 
073640 
012136 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 



151001 
071750 
071756 
000000 
016340 
000002 
000200 



002212 



003114 
000400 



MOV ft256. ,T26R'i/ jSET UP Rt'CORD SIZE 

ISSUE SPACE RECORDS COMMAND VALUE IN H', SETS NUMBER OF RECORDS 
BIT 15 Sl-.TS DIRECTION ■ 0-EORWARD 1 -REVERSE 



012703 000001 

004737 010556 
103412 

016501 000002 

012702 000200 

005237 002212 

10445^ 
00iiS2 
0/241/ 
015564 

104406 

013703 072002 

013737 003114 071752 



145$ 



MOV 


i>i.R5 


JSR 


PC, SPACE 


BCG 


150t 


MOV 


TSSRCR5).R1 


MOV 


OSSR.RP 


INC 


KATFLC. 


ERRHRD 


ERRN0,T26SC.EXPREC 



150$ 



CKLOOP 

MOV 
MOV 



SPACE ONE RECORD PARAMETER 

CALL SPACE ROUTINE 

BR. IF NO PROBLEM WITH SPACE COMMAND 
;GET TSSR 

SET UP EXPECTED TSSR 

BUMP COUNT 

POSITION CSPACE RECORDS) FAILED 

TRAP CiERHRD 
.WORD 618 
.WORD T26SC 
.WORD EXPREC 



T26RSZ,R3 
rREE.T26RB 



TRAP 
jRKCORD SIZE 
: STARTING READ BUFFER ADDRESS 



CJCLPl 



REREAD DATA.CVC-l.ACK.SWB COMMAND 



071750 



165$ 



MOV 


0151001, r26Pl<3 


MOV 


#T26PK3,R4 


MOV 


R3,T265Z 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


T5SR(R5),R1 


MOV 


05SR.R2 


CMP 


R1.R2 


BEQ 


170i 


INC 


FATFLG 



170$ 



175$ 



ERRHRD ERRN0,T26WDC.PI<TSSR 



CKLOOP 



002212 



MOV 


FREE.R2 


MOV 


R3,R4 


sue 


0256, .R4 


ADO 


R2.R4 


CMP 


(R4).R3 


BEQ 


180$ 


MOV 


(R4),R1 


MOV 


R3,R2 


INC 


EATFUG 



iREREAD DATA.CVC-l.ACK.SWB COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE C0^t1AN0 

WAIT FOR 3SR TO SET 

GET TSSR CONTENTS 
(SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

BUMP COUNT 
I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 619 
.WORD T26WDC 
.WORD PKTSSR 
{LOOP IF SELECTED 

TRAP C$CLP1 
jCURRENT BUf'FER ADDRESS TO R2 
(CURRENT RECORD SIZE 
jFIRST LOCATION IN BUFFER 
iSET UP POINTER 

CHECK DATA READ (R3-0ATA ALbO) 

BR. IF ALL IS WELL 

RECD DATA 
;EXPECTED DATA 
J BUMP COUNT 



TSV^ - HARPWARL !tSTb 1 -y 
TtSr 6: RFREADS 



S901 



S90P 

S904 
f)905 
S90fc 
5907 
5908 
5909 
5910 
5911 

591.? 



5913 
5914 
5915 
5916 



057146 
057146 
057150 
05715c? 
057154 
05715b 
057156 
057160 
05716? 
057164 
05/166 
057170 
057172 
057176 
05720^ 
057204 
057204 
057206 
057206 
057206 
057210 
057216 
05 7220 
057224 



1044^6 

ooirj4 

0V3062 

015b64 

10440vS 
005724 

160204 
020403 
001360 
005723 
010337 
022703 
001270 

104406 



104405 

023727 
103402 
004737 



MACRO ril200 :.'? MAR -84 09:44 PAGK 73-4 



tRRHRD ERRN0.T26DTA,axPHKC 



180i 



072*^02 
0004X2 



190J 



002212 
017272 



000017 



CKl.OOP 



TST 


(R4)» 


SUB 


R2.R4 


CMP 


R4,R3 


BNt 


173$ 


TST 


(R3)* 


MOV 


R3,T26RSZ 


CMP 


0266. ,R3 


BNt 


145$ 


CKLOOP 





tNosue 



999$ 



CMP 


FATrLG,015 


BLO 


999$ 


JSR 


PC.CKDROP 



'^iF.Q 02;>e 



iOATA RtAU NOT - WRITTF.N 

TRAP C$tRHRD 
.WORD 620 
.WORD T26D"'A 
.WORD EXPPf-C 

jlOOP 11- St-LHCTtO 

TRAP C$CLP1 

;BiJMP TO NEXT LOCATION 

; CORRECT RECORDS SI/E VALUE 

jENO or RECORD rET 

;BR. IE NOT AT END Of RECORD 

iBUMP RECORD SI/E 

; STORE RECORD SIZE 

I END OF RECORD YET 

;BR. IF MORE RECORDS TO READ 

iLOOP IF SELECTED 

TRAP C$CLP1 

.^>>>%>>>^>>^ EMD SUBTEST * ^ ^ > ■. > t. , -^ ^ , . 

L 10104: 

TRAP C$ESUe 
J IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
;TRY TU DROP THE UNIT 



TSV.' - HAROWARK TtSTS 1 S 
Tti>T 6: RERtAOS 
5919 

^^}?\ 
b9c'5 

S9.?6 

:>92/ 

b9^8 

S9?9 

5930 
3931 

5954 
5935 
5936 
595/ 
5938 
5959 
5940 
5941 
594D 
5945 
5944 
594*^. 
5946 
594 7 
5948 
5949 
5950 
5951 



MACRO H1200 :-'3 MAR-84 09:4^ PAUb' /4 



SEQ {Jd>.9 



TtST 6, SUBTFST S 

VERIFIES THAT THt REHtAD PREVIOUS COMMAND WITH QPP-l 
(READ REVERSE, SPACE FORWARD) AND SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER C INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD PREVIOUS COMMAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

?. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITICNFD 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND lb SET 
TO THE LENGTH OF THE EXPECTED RECORD. SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



5952 
5953 
5954 
5955 
5956 
595/ 
5958 
5959 
5960 
5961 
596? 
5963 
5964 
5965 
5969 
5970 



5971 



057224 
057224 
057224 
057226 
057232 
057236 
057242 



104402 
004737 
005037 
004 737 
004737 



074540 
0/1776 
074632 
074674 



BGNSU6 J i%i>i^>-»>i>> BEGIN SUBTEST >>>>■»> ^ >>> >> 

T6.3: 

TRAP C$BSUe 
J SET COMMAND PACKET 
CLEAR TAPE RECORD COUNTER 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 

ISSUE CONTROLLER "SOFT" INITIALISE ^ CARRY BIT CLEAR IF ERROR 



JSR 


PC,T26RE5T 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC.T26RT3 



057246 
057252 
057254 
057260 
057262 
057262 
057264 
057266 
057270 
057272 



004737 
10540/ 
005237 
010001 

104455 
001155 
003650 
01^124 
013737 



016064 
002212 



002172 071650 20i: 



JSR 


PC.SOFINIT 


iDO TNITIALIZE ON CONTROLLER 




BCS 


20$ 


J BR IF INIT WAS OK 




INC 


FATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


;CONTENrs OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


621 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T26DSW 


iSET UP UNIl NUMBER 





TSV7 - hARDWARf TtlSTS 1 -45 
TtSr 6: Rr.RtAOS 



MACRO ril,H)0 .V? riARa4 09:44 PAGF. /4 1 



SfcQ 0^50 



59 74 
59 Vb 
5976 
597'; 
59.'a 
59 79 
5960 
5981 
5982 
5983 
5987 
5988 



5989 

5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6006 



6007 

6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6018 
6019 
6020 
6024 



057300 01:^704 071630 



057304 
057310 
057312 
057316 
057320 
057320 
057322 
057324 
057326 
057330 
057330 



004737 
103407 
00''23V 
010001 

104456 
001156 
005054 
012124 

104406 



057332 
057336 
057340 
057344 
057350 
057352 
057356 
057356 
057560 
057362 
057364 
057366 
057366 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001157 
073304 
012136 

104406 



057370 
057374 
057376 
057402 
057404 
057406 
057412 
057412 
057414 
057416 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001160 
073015 



010752 
002212 



011104 

000002 
000200 

002212 



071660 
000002 

002^l2 



MOV ^U26PACKLT.R4 ;5UBR0UTINF NEEDS PACKET AODRFSS 

WHITE CHARACTERISTICS COMMAND CCAl.l TO URTCHR) 



26$: 



JSR PC.WRTCHR 

BCS 26$ 

INC EATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG . SFIM5G 



CKLOOP 



ISSUE WRITE CHARACTERISTICS 
BR. IE COMMAND ISSUED OK 
BUMP COUNT 

SAVE CONTENTS OF TSSR 
WRITE CHARACTERiSTISC EAIl ED 

TRAP 
. WORD 
.WORD 
.WORD 
;L00P IF SELECTED 

TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

iCALL TAPE REWIND COMMAND 
:BR. I." NO PROBLEM 
(GET TSSR 
SET UP EXPECTED TSSR 
PACKET ADDRESS SET IJP 
BUMP COUNT 
REWIND NOT ACCEPTED 



JSR 


PC.rEUIND 


BCS 


30$ 


MOV 


T5SRCR5).R1 


MOV 


«SSR.R2 


MOV 


R0,R4 


INC 


FATFLG 



30$: 



ERRHRD ERRNO . T26RWN . PKTSSR 



CKLOOP 



;LOOP IF SELECTED 



TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



i 

(READ MESSAGE BU*-EER EXTENDED STATUS REGISTER ZERO (XSTO) 

i 

J j4t«4*'f*4^4** *4^ 4> 4> *** ****4 **«** 4i 4 4*4 *i4>* 4^*4' 4i4i* ****************** A****** 

iPICK UP XSTO 

;SET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
DOES EXP - REC'O 
BR, IF EQUAL (OK) 
BUMP COUNT 

TAPE. NOr AT BOT AFTtR REWIND 

TRAP 
.WORD 
.WORD 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


<»6IT1,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FAfFLG 



F-RRHRD ERRNO . T26B0 T » tXPRtC 



C$ERHRD 
622 

WRTMsG 
SFTMSG 

C$CLP1 



C$ERHRD 

623 

T26RWN 

PKTSSR 

C$CLP1 



C$ERHRD 

624 

T2bB0T 



TSV7 t^Rln^ARK 


Tt.STS 1 


iJ MACRO 


TtS: 6: Re.RF.ADb 




0^7420 


015564 




eO.'^S 057422 






057422 


104406 




6026 0^7424 


012703 


000400 


b02/ 057450 


013737 


005114 071752 


ti028 






6029 






^030 






6051 






b052 






b055 






6054 






6035 057436 


012/37 


140005 071750 


6036 057444 


012704 


071750 


6037 057450 






6058 057450 


010300 




6039 057452 


004737 


017512 


6040 057456 


010337 


071756 


6041 057462 


013777 


071776 123424 


6042 057470 


062737 


000001 071776 


6043 057476 


010465 


000000 


6044 057502 


004737 


016340 


6045 057506 


016501 


000002 


6046 057512 


012702 


000200 


6047 05.'516 


020102 




6048 057520 


001406 




6049 057522 


005237 


002212 


6053 05 7526 






057526 


104456 




05^530 


001161 




057552 


005111 




057554 


01?136 




6054 057536 






0575.^6 


104406 




6055 057540 


005723 




6056 057542 


022703 


000414 


6057 057546 


001401 




6058 057550 


000737 




6059 057552 






6060 057552 


005037 


071776 


6061 






6062 






6063 






6064 






6065 






6066 






6067 






6068 057556 


004 737 


011104 


6069 05 7562 


103415 




6070 0')/564 


016501 


000002 


6071 057L>70 


012702 


000200 


6072 057574 


010004 




60/3 057576 


005237 


002212 


60V7 05/602 






05 7602 


104456 




057604 


001162 




057606 


073304 





MACRO N1200 ;»5 MAR-84 09:44 PAGL- /4 2 



40$! 



CKI OOP 

MOV 
MOV 



FREE,T26RB 



;LOOP If- SKLF.CTED 



jRhCORD Sl/t 

;STARTiNG writf: bu>p:r ADDRPSS 







'jFQ 0^51 


.WORD 


FXPRFC 




TRAP 


C$CLP1 





WRITE DATA,CVC-1,AC!< COMMAND 



65$ 



MOV 


0140005. T26PK3 


MOV 


0T2oPI<3.R4 


MOV 


R5.H0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


T26CNT.afREE 


ADD 


*1,T26CNT 


MOV 


R4.TSDB(H5) 


JSR 


PC.WAITr 


MOV 


TSSR(R5).R1 


MOV 


0SSH.H2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



75$ 



tRRHRD ERRNO . WRTERR . PKTSSR 



CKLOOP 



TST 


(R3:)t 


CMP 


0268. ,R3 


BEQ 


120$ 


BR 


65$ 



120$ 



iWRITE DATA.CVC-l.ACK COMMAND 
J SET VP R4 WITH PACKET ADDRESS 

SET PATTERN IN CORRECT REGISTER 

FILL. MEMORY WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 

MOVE TAPE RECORD NLWiBER TO BUFFER 

NUMBER READY FOR NEXT RECORD 

ISSUE COMMAND 

WAIT FOR S5R TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

BUMP COUNT 

TSSR INCORRECT AFTER UlRITE DATA 

TRAP C$ERHRD 
.WORD 625 
.WORD WRTERR 
.WORD PKTSSR 
jLOOP IF SELECTED 

TRAP C$CLP1 

BUMP THE RECORD SIZE 

MAXIMUM SIZE YET 

bR. IF AT END OF WRITE SEQL^ENCE 

WRITE MORE RECORDS 



CLR 



I26CNT 



i J 



ET RECORD COUNTER BACK TO ZERO 



i 

J ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

J CALL TAPE REU'INO COMMAND 
iBR. IF NO PROBLEM 
;GET T5SH 

I SET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 
BUMP COUNT 
RewiNO NOT ACCEt^ieO 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRO ERRUO, T26RWN, PKTSSR 



TRAP 

,WOR0 

.WORD 



C$ERHRD 

626 

T26RWN 



TtST 6: RF.RF.ADS 



MACf?U M1?00 .-'? MAR-a4 09:44 PAGf. M 3 



St a 0if5i> 





057610 


012136 




6078 


057612 








05761i^ 


104406 




60/** 








r>08C 








t>081 








608.} 








608-7 








6084 








608S 








b086 


057614 


013701 


071660 


6087 


057620 


010102 




6086 


057622 


052702 


000002 


6089 


057626 


020102 




6090 


057630 


001406 




6091 


057632 


005237 


002212 


6095 


057636 








057636 


104456 






057640 


001163 






057642 


073015 






057644 


015564 




6096 


057646 








057646 


104406 




6097 








6098 








6099 








6100 








6101 








6102 








6103 








6104 








6105 


057650 


012703 


000001 


6106 


057654 


004737 


010556 


6107 


057660 


013703 


000400 


6108 


057664 


013737 


003114 


6109 








6110 








6111 








6112 








6115 








6114 








6115 








6116 


057672 


012737 


161001 


6117 


057700 


012704 


071750 


6118 


057704 


010337 


/1756 


6119 


057710 


010465 


000000 


61?0 


057714 


004737 


016340 


61?1 


057720 


016501 


000002 


61?2 


057724 


012702 


000200 


6123 


05 7730 


020102 




6124 


057732 


001406 




6125 


05/734 


005237 


002212 


6129 


057740 








057740 


104456 






057742 


001164 






057 744 


072522 






057746 


012136 





130$: CKl.OOP 



;LOOP IF" SELF.CTFD 



.WORD 
READ MES!")AGF BUFFFR EXTFNDFO STATUS RFGISTFR ZtRO (XSTO) 

PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 
jDOES EXP = REC'D 

BR. IF EQUAL C OK) 

BUMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
. WORO 
. WORD 
. WORD 
140$: CKLOOP iLOOP IF SELECTED 

TRAP 



MOV 


!26BFttf6,Rl 


MOV 


R1.R2 


BIS 


<miTl,R2 


CMP 


R1.R2 


BED 


140$ 


INC 


FATFLG 



ERRHRO ERRNO , T26B0T , EXPREC 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

SPACE 1 RECORD FORWARD 
SPACE CALL 
RECORD SIZE 
071752 150$: MOV FREE.T26ftR j STARTING READ BUFFER ADDRES-b 

REREAD DATA.CVC-l.ACK. OPP COMMAND 



MOV 


<^1.R3 


JSR 


PC. SPACE 


MOV 


*256. .R3 


MOV 


FREE.T26ftR 



PKTSSR 
C$CLP1 



CJERHRD 
627 
T26B0T 
EXPREC 

CJCLPl 



071750 



165$: 



MOV 


«16U)01.T26PI<3 


MOV 


«T26PK3,R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


#SSR.R2 


CMP 


R1,R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO. T26RRG,PI<TSSR 



REREAD DATA.CVC-l.ACK. OPP COMMAND 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SI/E IN PACKET 
ISSUE COrlMANO 
(WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
J ARE THEY EQUAL 
iBR. IF OK 
J BUMP COUNT 
I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHf^D 
.WORD 628 
.WORD 126RRG 
.WORD PKTSSR 



TSV7 - HARDWARE TESTS 1-ti 
TEST 6: REREADS 



7373 
7374 
7375 
73 76 
7577 
7378 
7379 
1 580 
7381 
7382 
7383 
7384 
7388 
7389 



739r 

7?91 
7' 92 
7:.93 
7394 
7395 
7396 
7397 
7398 
7399 
7400 
7401 
7402 
7403 
7407 



7408 

7409 
7410 
7411 
7412 
7413 
7414 
7415 
7416 
7417 

7418 
7419 

7420 
7421 
742:3 



064264 012704 071630 



064270 
064274 
064276 
064302 
064304 
064304 
Ct64306 
:)64310 
064312 
064314 
064314 



064316 
064^22 
064324 
064330 
064334 
064336 
064342 
064.342 
064344 
064346 
064330 
064352 
064552 



064354 
064 560 
064362 
064366 
064370 
064372 
064376 
064 376 
064400 

064402 



004737 
103407 
005237 
010001 

104456 
001252 
005054 
012124 

104406 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001253 
073304 
012)36 

104406 



013701 
01010? 
052702 
020102 
001406 
005237 

10445r 

OOlc'54 

07301^ 



MACRO M1200 23 MAR -84 09:44 PAGE 80-1 

MOV ^a26PACKET,R4 j SUBROUTINE NEEDS PACKET ADDRESS 

WRITE CHARACTERISTICS COMMAND CCAL.L TO WRTCHR) 



010752 
002212 



011104 

000002 
000200 

002212 



071o60 
000002 

002212 



2c $: 



JSR PC, WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



ISSUE WRITE CHARACTERISTICS 
BR. If- COMMAND ISSUED OK 
BUMP COUNT 

SAVE CONTENTS QE TSSR 
jWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



T<;SUE REWIND COMMAND TO SELECTED TAPE DRIVE 

:CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
GLT rSSR 

SET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 
BUMP COUNT 
REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN . PKTSSR 



30$: 



CKLOOP 



;LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER 7ER0 (XSTO) 



MOV T26BFR*6.R1 

MOV R1.R2 

BIS <>0TT1.R2 

CMP R1.R2 

BED 40i 

INC FATFLG 

ERRHRD ERRNO, T26B0T,EXPREC 



PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOES EXP » REC D 

BR. IF EQUAL C OK *) 

BUMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
. WORD 



CJERHRD 
682 

WRTMSG 
SFIMSG 

C$CLP1 



C*ERHRD 
683 
T26RWN 
PKTSSR 

C$CLP1 



CUHHRD 

684 

T26B0T 



SEa 0259 



•I 



-■\ ' MAR[iwA(n 'LST^^ 1 8 



M*KRO HUVO .'^ MAR 84 0'»:4/l PAGF- 



J /. 



It; 



b: WhRtADS 



*>^ :** 
s'\ :»» 

•■S80 
'^ HI 

558S 

ssa6 

5591 
559^ 
5593 
5597 



5598 

5599 
5600 
5601 
560c? 
5605 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5615 



*=ol6 

5617 
5618 
5619 

5620 
5621 

56?? 

56?; 

5624 



056O0.' 

0*^600<* 
0560 1 c' 
056014 

oi-bra*! 

056016 



104^v>> 

005/,^^ 

001 M6 
104406 



056016 
0560?? 
0560?4 
056030 
056054 
056036 
056042 
05604? 
056044 
056046 
056050 
056052 
056052 



00473; 
105413 
016501 
012702 
010004 
005237 

104456 
001136 
073304 
012136 

104406 



056054 
056060 
056062 
056066 
056070 
056072 
056076 
056076 
056100 
056102 
056104 
056106 
056106 
056110 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001137 
075015 
012136 

104406 
012737 



000414 



011104 

00000c' 
000200 

002212 



071660 
000002 

002212 



000400 072002 



^^o^ : 


CMP 
0<\ OOP 


65* 


.R^ 


l.;OJ: 









TRAP 
(Hinp RKORn M/F 
tf ND Of Rf-CORD 'M 
iHH, If MORI. RECORDS TO URTTI 
il OOP IF' SM FCTFD 



ISSif Rf-WIND COMMAND TO 5M FCThO TAPF ORIVF, 

iCAU TAPF RtUiND COMMAND 

iBR. If NO PROBl fM 

iGtr TSSR 

[OtT UP EXPtCTF.O T<,SR 

jPACKFT ADDRFS . '.( T 'JP 

ttlUMP COUNT 

iRtWINO NOT ACChPTF.D 



JSR 


PC.RFWIND 


BCS 


150» 


MOV 


TS5R(R5).R1 


MOV 


aSSR.R? 


MOV 


R0.R4 


INC 


FATf LU 



ERRHRD ERRNO . T26RWN . Pt< TSSR 



130J 



CKLOOP 



ilOOP IF SFl F-CTFn 



TRAP 



t 



(READ MESSAGE BUFFER FXTENDFD STATUS REGISTER /FRO (XSTO^ 



140J: 



I ISSUE SPACE RECORDS COMMAND VALUE IN RS SETS NU»iBER OF RECORDS 
BIT 15 SETS DIRECTION 0-FORUARO I -REVERSE 



5626 056116 01^/03 000001 



X45$i MOV ftl,R3 



iSPACt ONE RECORD PARAMETER 



C5CLP1 



CJCl.Pl 



TRAP 


CIERHRD 


.WORD 


60*; 


.WORD 


T26RWN 


.WORD 


PKT'-.SR 



CJCLPl 



MOV 


T26BFR.6,R1 


iPICK UP XSTO 




MOV 


R1.R2 


iSET LP EXPECTED 




BIS 


^IT1.R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1,R2 


iDOES EXP - REC'D 




BEQ 


140J 


;Bfl. IF EQUAL COK) 




INC 


FATFLG 


I BUMP COUNT 




ERRHRO 


ERRNO, T26B0T.PKT55R 


iTAPE NOT AT BOT AFTER REWIND 








TRAP 


CIERHRD 






.WORD 


607 






.WORD 


T26B0r 






.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CSCLPl 


MOV 


0256. .T26RS/ 


I SET RECORD SUE 





sFo o;^;^! 



Tt.ST 6: RhREAOS 



MACRO Mlc'OO .'^ MAR rt4 O'):40 Pl\[][ /,' A 



St.? 7 


05612? 


004 757 


01055t. 


5b.\H 


056126 


10541? 




^6J^9 


056150 


016501 


00000? 


5650 


056134 


012702 


000200 


s^?l 


056140 


005237 


002212 


•->fS35 


056144 








056144 


104456 






056146 


001140 






056150 


0724K 






056152 


015564 




S656 


056154 








C56154 


104406 




5fi37 


056156 


013705 


07?00? 


5650 


056162 


013737 


005114 


5659 








S640 








5641 








564? 








5643 








5644 








5645 








5646 


0561/0 


012757 


141001 


564 7 


056176 


012704 


071750 


5643 


056202 


010337 


071756 


5649 


056206 


010465 


000000 


5650 


056212 


004 757 


016340 


5651 


056216 


016501 


000002 


5652 


056222 


012702 


000200 


5653 


056226 


020102 




5654 


056230 


001406 




5655 


056232 


005237 


002212 


5659 


056236 








0.>6236 


104456 






056240 


001141 






056242 


073640 






056244 


012136 




5660 


056246 








056246 


104406 




5661 


056250 


013702 


003114 


5662 


056254 


010304 




5663 


056256 


162704 


000400 


5664 


056262 


060204 




5665 


056264 


021403 




5666 


056266 


001410 




5667 


056270 


011401 




5668 


0^>6272 


010302 




5669 


056274 


005237 


002212 


5673 


056300 








056300 


104456 






056302 


00U42 






056304 


073062 






056306 


015564 




5674 


056310 








056310 


104406 




5675 


056312 


005724 




5676 


056314 


160204 




b677 


056316 


020403 





JSH 


PC.SPACt 


BC. 


ISOt 


MOV 


T',Sfl(R5),Rl 


MOV 


OSSR.H? 


INC 


TATflG 



ERRHRD ERRN0.T26SC,rxPRFC 



150$ 



071752 



CKLOOP 

MOV 
MOV 



iCAl 1 SPACf- ROUlINt 

tMR. If NO PROBI FM wrTH '\Pf\Cr COMMAND 

»(;H TS'iR 

iSf T -jM t/Pf-.CTf-D T -.SR 

jH'JMP COUNl 

jPOSITlON (SPACt Ht-lCORDb; MXIlFO 

TRAP CIKRHRD 

. WORD 60ft 
.UORO T26SC 
.WORD F/PREC 



T26RSZ.R5 
rRFE.T?6RR 



TRAP 
;RtCORO SI/E 
; STARTING RF.AD B'JFFf-.R ADDRESS 



CJCl-Pl 



i 

iREREREAO DATA.CVC-1 . ACK COMMAND 



071750 



165$: 



MOV 


0141001. T26PK3 


MOV 


«T26PK3,R4 


MOV 


R3.T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCfl5),Rl 


MOV 


*SSR.R2 


CMP 


R1,R2 


BEQ 


1701 


INC 


FATFLG 


ERRHRD 


ERRN0,T26WDC.PI<TbSR 



1/0$: 



173$: 



CKLOOP 



MOV 


FREE.R2 


MOV 


R3.R4 


SUB 


«256.,R4 


ADO 


R2.R4 


CMP 


(R4).R5 


BEQ 


180$ 


MOV 


CR4).R1 


MOV 


R5.R2 


INC 


FATFLCj 


ERRHRD 


EHRN0,T260TA,tXPREC 



160$ J CKLOrP 

TSI (R4). 

SL« R2.R4 

CMR R4.R5 



iREREREAO DATA.CVC- 1 ,ACK COMMAND 

J SET UP R4 WITH PACKET AOORF SS 

il^ET UP RECORD SIZE IN PACKET 

I issue COMMAND 

(WAIT FOR SSR TO SET 

iGET TS5R CONTENTS 

(SET UP EXPECTED 

I ARE TmEY equal 

iBR, IF OK 

iBLWP COUNT 

iTSSR INCORRECT AFTER REREAD DATA 



TRAP 
.UOPD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

J CURRENT BUFFER AODRESIj TO R? 

tCt^RENT RECORD SIZE 

iFIRST LOCATION IN BUFFER 

iSET UP POINTER 

iCHECK DATA READ (R5-0ATA ALSO) 

I BR, IF ALL IS WELL 

jRECO DATA 

(EXPECTED DATA 

iBUMP COUNT 

iDATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

lOUMP 10 NEXT LOCATION 

: CORRECT RECORDS SUE VAtUt 

iEND QF RECORD 1ET 



C$ERHRO 
609 
T26W0C 
PKTSSR 

C$CLP1 



OERHRD 
610 
T2t>DTA 
EXPRFC 

CiCLPl 



1). • 



TtSI 6: RFRFADS 



MACRO M1AH> .'^ MAR m 'V).4^ PAQ. /. 



.' > '; 



b6 78 


05^.520 


001360 




56 • 4 


05632? 


005 ^^^ 




5680 


056324 


01053/ 


OU'OQ.' 


5681 


056330 


U22703 


000412 


5682 


056334 


001270 




568? 


056336 








056336 


104406 




Sr>84 


056340 

056340 








056340 


104403 




5685 


056342 


02372/ 


002212 


5686 


056350 


103402 




568? 


056352 


004 737 


0LV2 72 


seatj 


056356 







l-^OS: 



000017 



t^Nt 


l/'>5 


ISI 


CR^). 


MOV 


R5. T26R'"-/ 


CMP 


^266. ,R5 


BNt 


145$ 


on OOP 





999$; 



tNDSi.ftl 



CMP 
B! 
JSR 



> ATi-L (,./)15 

4'^9i 

PC.CKOROP 



'Af4 o;.'>"^ 



;HR, n NOT AT tNO Of MKORD 
iM'JMP ReCORD 3I?F. 
jRfcSKT RFCORD 5I/f 

f-ND Of RFCORD iFT 

HR. IF MORt: RECORDS TO RHM) 

I OOP If SFi Fcreo 

TRAP 
J >^-.>,>-»^ .>>> f_ND SUBTEST .*. 

I 10101: 

TRAP 
y. ^RROR COijNT AT /', 
EiP. If Lf :>•; THAN ■:'j 
TRr TO DROP THt UNIT 



C$Cl PI 
• > > > ^ / J ^ . 



TbST 6; RtRtADS 



MACRO MU'OO :'< MAR SA (ViiAA PAGl 75 



^6^0 
56"n 

569? 

5Sf,9S 

"'t^96 
Sr9 7 

!^699 
^700 
5701 
5702 
5705 



5704 

5705 
5706 
570 7 
5708 
5709 
5710 
5711 
5712 
5715 
5714 
5715 
5716 
5720 
5721 



5722 
5723 
5724 
5725 
5726 
5727 
5728 
5 729 
5^50 
5731 
5732 
5733 
5734 
5 758 
5739 



5740 
5741 



056356 
056356 
056356 
056360 
056364 
056370 



056374 
056400 
056402 
056406 
056410 
056410 
056412 
056414 
056416 
056420 



056432 
056456 
056440 
056444 
056446 
056446 
056450 
056452 
056454 
056456 
056456 



104402 
004757 
004757 
004737 



074540 
074652 
074674 



004757 
105407 
005237 
010001 

104455 
001143 
003650 
012124 
015757 



016064 
002212 



056426 012704 



OOP 172 
071650 



004737 
105407 
005237 
010001 

104456 
001144 
005054 
012124 

104406 



010752 
002212 



'^ilCi 02^4 



TF5T 6, SUBTEST 2 

VfRIf IF.S THAT THE REREAD PREVIOUS COMMAND WITH OPP-0 
AND SWB-1 OPERATES PROPERl Y . THE TEST SEQUENCE IS 
THE SAME AS THAT USED IN SUtUl ST 1, BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PC,T26RT2 

PC.T26RT5 



.>>>i>>>>i>>i BEGIN SUBTEST 

T6.2: 

TRAP 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 



c$BSije 



i ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IE ERROR 

* 



071650 20$: 



JSR 


PC.SOFINIT 


:D0 INITIALIZE ON CONTROLLER 




BCS 


20 » 


iBR IF INIT WAS OK 




INC 


FATFLG 


lBL*1P COUNT 




MOV 


RO.Rl 


;C0NTENT5 Of TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


i FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


611 






A?ORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T260SW 


;5FT UP UNIT NUMBER 





MOV 



<^T26PACKET.R4 



jSL©R0UTINE NEEDS PACKET ADDRESS 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

; ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
J BUMP COUNT 

iSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
26$: CKLOOP (LOOP IF SELECTED 

TRAP 



JSR 


PC. WRTCHR 


BCS 


26$ 


INC 


FATFLG 


MOV 


RO.Rl 



ERRHRD ERRNO , WR TMSG . SF IMSG 



CJFRHRD 

612 

Wr^TMSG 

SFIMSG 

C$CLP1 



TtSI 6: REREADS 



b?^? 








5/4 5 








S74C 








574^ 








S746 








b74V 








^748 


056460 


004737 


011104 


s;49 


056464 


103413 




"^750 


056466 


016501 


000002 


")751 


056472 


012702 


000200 


S752 


0564 76 


010004 




5755 


056500 


005237 


002212 


5757 


056504 








056504 


104456 






056506 


001145 






056510 


073304 






056512 


012136 




5759 


056514 








056514 


i04406 




5754 








5 760 








5761 








5762 








576? 








5764 








5765 








5766 


056516 


013701 


C71660 


5767 


056522 


010102 




5 768 


056524 


052702 


000002 


5769 


056530 


020102 




5770 


056532 


001406 




5771 


056534 


005237 


002212 


5775 


056540 








056540 


104456 






056542 


001146 






056544 


073015 






056546 


015564 




5776 


056550 








056550 


104406 




57 7 7 


056552 


012703 


000400 


5778 


056556 


015737 


003114 


5779 








5780 








5?61 








578P 








5783 








5784 








5 785 








5786 


056564 


012737 


110005 


5787 


056572 


012704 


071750 


5788 


056576 






5789 


056576 


010300 




5790 


056600 


004737 


017512 


5791 


056604 


010337 


071756 


5792 


056610 


010465 


000000 


5793 


056614 


004757 


016540 


5794 


05662Q 


016501 


000002 
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i;SU. R^-.WIND COMHAND TO StLECTED TAPf- DRIVE 

:CAL.L TAPE REWIND COMMAND 

jBR. IF NO PROBLEM 

;GET TS5R 

;SET UP EXPECTED TSSR 

; PACKET ADDRESS SET iJP 

;BUnP COUNT 

;REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


1SSRCR5).R1 


MOV 


0SSR.R2 


MOV 


R0,R4 


INC 


EATEUi 



ERRHRD ERRN0.T26RWN.PKTSSR 



3CJ 



CKLOOP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



071752 



READ MESFi tJE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

*4*4i4i4i*.«<Aik******************4>4t**4 ♦***<. **************44**«*«*4>**4>*v 

iPICK UP XSTO 
J SET UP EXPECTED 
jSET SOT BIT IN EXPECTED 
jDOES EXP • REC'D 
iBR. IF EQUAL (OK) 
: BLIMP COUNi 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP jLOOP IF SELECTED 

TRAP 
J RECORD SIZE 
iSTARTING WRITE BUFFER ADDRESS 



MOV 


T26BrR»6.Rl 


MOV 


R1.R2 


BIS 


#eiTl,R2 


CMP 


R1.R2 


BEQ 


40i 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T . EXPREC 



CKLOOP 

MOV 
MOV 



*256. ,R5 
FREE,T26RB 



***********«*4> ********** ***«4>***4i**4.4>********4i*****4i****4t***4i***** 

WRITE DATA.ACK.SWB COMMAND 

*«****%***«*4i««************4****4,«44^44««*««*4,4«««4,«4««4.««««4«4,««A 



071750 



65$ i 



MOV 


0110005, T26PK3 


MOV 


0T26PK3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R5,T26SZ 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TiiSRCR5)»Rl 



SEQ Oi^-^.'j 



CIERHRD 
615 

T26RWN 
PKTSSP 

C5CLP1 



C$tRHRD 
614 

T26B0T 
EXPREC 

C5CLP1 



iWRITE DATA, ACK. sue COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

iSET PATTERN IN CORRECT REGISTER 
jFILL MEMORY WITH RECORD SIZE 
; SET LP RECORD SIZE IN PACKET 
1 ISSUE COMMAND 
iWAIT FOR 5SR TO SET 
J GET TSSR CONTENTS 



TSV ' HARHUARt. ThSlS L -8 
Ttsr 6: RF.RF.AOS 



5/95 

579; 
5798 
5802 



5805 

5804 
5805 
5806 
5807 

5808 
5809 
5810 
5811 
581? 
5815 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5825 



5826 

582/ 
5828 
5829 
5850 
5831 
5832 
5855 
5854 
5855 
5856 
585/ 
5858 
5859 
5843 



5844 



056624 
056650 
056652 
056654 
056640 
056640 
056642 
056644 
056646 
056650 
056650 
056652 
056654 
056660 
056662 
056662 
056664 



056664 
056670 
056672 
056676 
056702 
056704 
056710 
056710 
056712 
056714 
056716 
056720 
056720 



056722 
056726 
056730 
056754 
056736 
056740 
056744 
056744 
056746 
056750 
056752 
056754 
056754 



012 /OJ 
0.?0102 
001406 
005237 

104456 

001147 
005111 
012136 

104406 
005725 
022705 
001346 

104406 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001150 
73504 
012136 

104406 



013701 
010102 
052702 
020102 
001406 
005257 

104456 
001151 
073015 
015564 

104406 



000200 
002212 



HACRO M1200 .'/^ MAH 84 09:4^ PAGt 75 2 



MOV .'JSSR,R2 

CMP R1.R2 

BPQ 75i 

INC rATFLC. 

ERRHRO kRRNO,WRThRR,PKrSSR 



SfcQ o^;^6 



000414 



011104 

000002 
000200 

002^12 



071660 
000002 

002212 



75$ 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 



CH3)* 
*268. ,R5 
65$ 



iSEV UP EXPi-.CTt.D 

;ARK THFY f-.QUAl. 

;BR U 0\< 

I BUMP COUNT 

iTSSR INCORRECT AFTER WRITt DATA 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IK SELECTED 

TRAP 

J RUMP RECORD SIZE 

;ENO Of RECORD TET 

(BR. IF MORE RECORDS TO WRITE 

jLOOP IE SELECTED 

TRAP 



80$: 
120$: 

I^SUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL lAPb REWIND COMMAND 

;BR. IF NO PROBLEM 

;GET TSSR 

J SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

jBUMP COUNT 

IREWINO NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


150$ 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


MOV 


RC.R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN , PK TSSR 



130$: 



CKLOOP 



iLOOP IF SELECTED 



TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

**44^44.4****4><«>****4*«*44***444>*4i*44i44i4i4**4*4*******«*«****«44«4** 

iPICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
(DOES EXP - REC'D 
iBR. IF EQUAL (OK) 
tBUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140$: CKLOOP iLOOP IF SELECTED 

TRAP 



MOV 


T26BFR.6.R1 


MOW 


R1,R2 


BIS 


*eiTl,R2 


CMP 


RI.R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNQ,T26B0T,tXPREC 



C$ERHR[) 
615 
WMTERP 
PKTf^SR 

CiCLPl 



C$CLP1 



TRAP 


C$ERHRn 


.WORD 


616 


.WORD 


T26RWN 


.WORD 


PK TSSR 



C$CLP1 



C$ERHRD 
617 
T26B0T 
EXPREC 

C$CLPl 



TSV/* - HAK'DW'^Kt.. ThSTS 1 -y 
TbSr O: MbWtAUS 



MACRO M1200 .??; MAR -64 00:44 PAGP 73 5 



SfQ 0^^7 



^a4S 
5^4^ 
5H4 / 
5848 
^>84C) 

S8b0 

SQ55 
5856 
5857 
5858 
5859 
5863 



5864 

5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5887 



5888 

5889 
5890 
5891 

5892 
5893 
5894 
5895 
5896 
5897 



056756 012757 000400 072002 



056764 
056770 
056774 
056776 
057002 
057006 
057012 
057012 
057014 
057016 
057020 
057022 
05/022 
057024 
057030 



057036 
057044 
057050 
057054 
057060 
057064 
057070 
057074 
057076 
057100 
057104 
057104 
057106 
057110 
057112 
057114 
057114 
057116 
05 7122 
057124 
057130 
057132 
057134 
057136 
057140 
057142 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001153 
073640 
012136 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 



151001 
071750 
071756 
000000 
016340 
000002 
000200 



002212 



003114 
000400 



MOV W2''j6. ,T26Rf^/ jSET UP RF.CORD SI/E 

ISSUK SPACE RECORDS COMMAND VALUE IN R', SET, NUMBER Of RECORDS 
BIT 15 SETS DIRECTION - O'EORWARD 1 -REVERSE 



012703 000001 

004737 010556 
103412 

016501 00000? 

012702 000200 

005237 002212 

104450 
001152 
0/241/ 
015564 

104406 

013703 072002 

013737 003114 071752 



145$: 



***A4^4<f**4<*'***4i**<4L4'**4L*'f4*> + 4"(i4>*****«<«><*4>*«*«***«**«*«***«**4 



MOV 

JSR 

ore 



<?1.R3 

PC, SPACE 

150$ 

MOV TSSR(R5),R1 

MOV OSSR.RP 

INC EATELC. 

ERRHRD ERRNO , T26SC . EXPREC 



150$ 



CKLOOP 

MOV 
MOV 



i SPACE ONE RECORD PARAMETER 

jCALl SPACE ROUTINE 

;BR, IE NO PROBLEM WITH SPACE COMMAND 

iGET TSSR 

iSET UP EXPECTED TSSR 

J BUMP COUNT 

iPOSITION (SPACE RE.CORDS) EAILED 

TRPP C$ERHRD 

.WORD 618 
.WORD T26SC 
.WORD EXPREC 



T26RSZ.R3 
rREE.T26RB 



TRAP 
;RtCORD SI/E 
: STARTING READ BLTFER ADDRESS 



CiCLPl 



REREAD DATA.CVC-l.ACK.SWB COMMAND 

**««4i4i4i4**4***4i«A*******4*****« + «+4t4>««4>**«**4> ************ **4****** 



071750 



165$ 



MOV 


*151001.r26Pl<3 


MOV 


0T26PK3.R4 


MOV 


R3.T2657 


MOV 


R4.TSDBCR5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5)»R1 


MOV 


«SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATELG 



170$ 



173$ 



ERRHRD ERRNO, T26WDC,PI<TSSR 



CKLOOP 



002212 



MOV 


FREE,R2 


MOV 


R3.R4 


SUB 


<>256. .R4 


AOO 


R2.R4 


CMP 


(R4),R3 


BEQ 


180$ 


MOV 


(R4)»R1 


MOV 


R3.R2 


INC 


EATEUG 



REREAD OATA.CVC-l.ACK.SWB COMMAND 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SI7E IN PACKET 

ISSUE COMMAND 

WAIT FOR 3SR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

BUM(^ COUNT 

TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 619 
.WORD T26WDC 
.WORD PKTSSR 
iLOOP IF SELECTED 

TRAP C$CLP1 
iCURRENT BUFFER ADDRESS TO R2 
iCURRENT RECORD SI2E 
;FIRST LOCATION IN BUFFER 
iSET UP POINTER 

[CHECK DATA READ (R3-DATA ALSO) 
iBR. IF ALL IS WELL 
;RECD DATA 
(EXPECTED DATA 
(BUMP COUNT 



TSV HAROWAFJL TtSTS 1-6 
TtST 6: RFRFADS 



b901 



S90? 

S^03 
S904 
S905 

5907 
5908 
5909 

5910 
5911 

591^ 



5913 
5914 
5^ IS 
5916 



05/146 
057146 
057150 
05715c? 
057154 
057156 
057156 
057160 
057162 
057164 
05/166 
057170 
05717^ 
057176 
05720? 
057204 
057204 
057206 
057206 
057206 
057210 
057216 
057220 
057224 



104456 
001154 
0V3062 
015564 

104406 
005724 
160204 
020405 
001360 
005723 
010337 
022703 
001270 

104406 



MACRU M1200 .''5 HAH -84 09:44 PAGK 73 4 



ERRHRD ERRN0,T26DTA,EXPRtC 



160$ 



0/2^^02 
000412 



190$ 



104403 

023727 002212 

103402 

004737 017272 



000017 



CKl.OQP 



TST 


CR4)» 


5UB 


R2.R4 


riiP 


R4.R5 


BNt 


173$ 


TST 


CR3)* 


MOV 


R3,T26RS2 


CMP 


*266. .R3 


BNt 


145$ 


CKLOOP 





tNDSUB 



999$ 



CMP 


FAT^LG,i>l5 


BLO 


999$ 


JSR 


PCCKOROP 



SRQ 022fi 



iOATA RtAO NOT - WRITTEN 

TRAP C$ERHRD 
.WORD 620 
.WORD T26D^A 
.WORD EXPPFC 

;100P IF SFLFCTED 

TRAP C4CLP1 

iBi>1P TO NEXT LOCATION 

» CORRECT RECORDS SI/E VAl.UF 

;END OF RECORD fET 

;BR, IF NOT AT END OF RECORD 

I BUMP RECORD SI/E 

; STORE RECORD SIZE 

jEND OF RECORD YET 

:BR. IF MORE RECORDS TO READ 

;LOOP IF SFl.ECTED 

TRAP C$CLP1 

• >>>>^>>^>>>> END SUBTEST > > > >^ > ^ > •. > . . 

L 10104: 

TRAP C$ESUe 

J IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TSV/ HAROWARt. TtSTS I H 
Ttsr 6: RERfcADS 



5918 

59^0 
'S9?l 
59,-?? 
S9c^5 
^9.-^4 

f^9.,^6 
!>92/ 
b9.?8 
59?9 

5930 
5931 
593^ 
5933 
5934 
5935 
5936 
595/ 
5938 
5959 
5940 
5941 
594? 
5945 
5944 
594', 
5946 
594 7 
5948 
5949 
5950 
5951 



MACRO H1?00 :-'3 fiAR-84 09:44 PA(ie; M 



SEQ o^;^9 



TEST 6, SUBTEST 3 

VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-1 
(READ REVERSE, SPACE EORUARD) AND SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD PREVIOUS COMMAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

2, A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COL'NT ON EACH REREAD PREVIOUS COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUt^ 



5952 
5955 
5954 
59S5 
5956 
595 V 
5958 
5959 
5960 
5961 
596? 
5963 
5964 
5965 
5969 
5970 



5971 



057224 
057224 
0572C4 
057226 
057232 
057236 
057242 



104402 
004737 
005037 
004737 
004737 



074540 
0/1776 
074632 
074674 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC,T26REST 
T26CNT 
PC.T26RT2 
PC.T26RT3 



;>v>>ii>-»>>>> BEGIN SUBTEST ^>>>>^>>>>>> 

T6.3: 

TRAP C$BSUB 
J SET COMMAND PACKET 
CLEAR TAPE RECORD COUNTER 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 



ilSSUE CONTROLLER "SOFT" INITIALISE ^ CARRY BIT CLEAR IF ERROR 

* 



057246 
057252 
057254 
057260 
057262 
057262 
057264 
057266 
057270 
057272 



004737 
10540/ 
005237 
010001 

104455 
O0U55 
003650 
012124 
013737 



016064 
002212 



002172 0/1650 204: 



jsn 


PC.SOFINIT 


J DO TNITIALIZE ON CONTROLLER 




BCS 


20$ 


J BR IF INIT WAS OK 




INC 


FATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


iFATAL ERROR TSSR WAS NOT OK 








TRAP 


CSERDF 






.WORD 


621 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNirN.T26DSW 


;S£T UP UNIT NUMBER 





TSV7 - HARDWAF^f" TtiSTS 1 -^ 
Tasr 6: RtRtADS 



^97^ 

59 74 
59 /tj 
5976 
S9 / T 
59''d 
59 79 
5980 
5981 
5982 
5983 
5987 
5988 



5989 

5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6006 



6007 

6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6018 
6019 
6020 
6024 



057300 01:^704 071630 



057304 
057310 
057512 
057316 
057320 
057520 
057322 
057324 
057326 
057330 
057330 



004737 
103407 
00^23"/ 
010001 

104456 
001156 
005054 
012124 

104406 



057332 
057336 
057340 
057344 
057350 
057352 
057356 
057356 
057560 
057362 
057364 
057566 
057366 



004737 
105413 
016501 
012702 
010004 
005237 

104456 
001157 
073304 
012136 

104406 



057370 
057374 
057376 
057402 
057404 
057406 
057412 
057412 
057414 
057416 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001160 
075015 



010752 
002212 



011104 

000002 
000200 

002212 



071660 
000002 

002^12 



MACRU M1200 ^f> MAR -84 09:44 PAGF. /4 1 

MOV /n26PACl<i:T.R4 ;5UBR0UTINF. NEtDS PACKFT ADORF'jS 

WRITE CHARACTERISTICS COMMAND CCAl.l TO URTCHR) 



SEQ 0;>50 



26$: 



JSR PC.WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG . SF IM5G 



CKLOOP 



ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 
BUMP COUNT 

SAVE CONTENTS OF TSSR 
WRITE CHARACTtRiSTlSC FAIl ED 

TRAP 
. WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 
;BR. I" NO PROBLEM 
(GET TSSR 
SET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 
BUMP COUNT 
ERRHRD ERRNO, T26RWN.PKTSSR ; REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



30$: 



CKLOOP 



:LOOP IF SELECTED 



TRAP 



READ MESSAGE BUf-FER FXTENOED STATUS REGISTER ^'ERO (XSTO") 

jPICK UP XSTO 

jSET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
DOES EXP - REC'D 
BR, IF EQUAL (OK) 
BUMP COUNT 

TAPE NOr AT BOT AFTER REWIND 

TRAP 
.WORD 
»WORO 



MOV 


T26BFR*6,R1 


MOV 


R1,R2 


BIS 


<»6IT1,R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



F-RRHRD ERRNO , T26B0T , EXPREC 



C$ERHRD 
622 

WRTMSG 
SFTMSG 

C$CLP1 



TRAP 


C$ERHRO 


.WORD 


023 


.WORD 


T26RWN 


.WORD 


PKTS^.R 



C$CLP1 



C$ERHRD 

624 

T26U0T 



TSV; HARDt^ARK IhSTS 1 y 
TtS: 6: RhRKADS 



MACRO Ml^OO ;»? MAR -84 09:44 PAtit. /4 ?. 





057420 


015564 




^C^S 


057422 








057422 


104406 




6026 


057424 


012/05 


000400 


602/ 


057430 


013737 


003114 071752 


tiOa6 








60?9 








'>030 








6031 








b032 








6055 








6034 








6055 


057436 


012/57 


140005 071750 


6036 


057444 


012704 


071750 


603/ 


057450 






6058 


057450 


010300 




6039 


057452 


004737 


017512 


6040 


057456 


010337 


071756 


6041 


057462 


013777 


071776 123424 


6042 


057470 


062737 


OOOOOl 071776 


6043 


057476 


010465 


OOOOOO 


6044 


057502 


004737 


016340 


6045 


057506 


016501 


000002 


6046 


057512 


012702 


000200 


6047 


05 7516 


020102 




6048 


057520 


001406 




6049 


057522 


005237 


00^212 


6053 


05 7526 








057526 


104456 






05^530 


001161 






057532 


0051U 






057554 


01<i56 




6054 


05 7536 








0575.^5 


104406 




6055 


057540 


005723 




6056 


057542 


022705 


00O414 


6057 


05 7546 


001401 




6058 


057550 


000737 




6059 


057552 






6060 


057552 


005037 


071776 


6061 








6062 








6065 








6064 








6065 








6066 








6067 








6068 


057556 


004 737 


011104 


b069 


05 7562 


103413 




60 70 


057564 


016501 


000002 


6071 


057_>70 


012702 


000200 


60 72 


057574 


010004 




60V3 


057576 


005237 


002212 


60V7 


05 7602 








05 7602 


104456 






057604 


001162 






057606 


073304 





40$: 



CKl OOP 

MOV 
MOV 



V>256. ,R3 

rREE,T26RB 



;t.OOP IK 'iKLFCTED 



iRf-CORD Sli't 

j^'.TARTING WRITF: BU>f-:R ADDRFSS 







SrQ 0231 


.WORD 


FXPRFC 




TRAP 


C5CLP1 





WRITE DATA,CVC-1,AC!< COMMAND 



654 



MOV 


<>140005,T26PK3 


MOV 


^T2oPI<3.R4 


MOV 


R3,H0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


T26CNT,S)fREE 


AOD 


</l.T26CNT 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


T3SR(R5),R1 


MOV 


0SSH,H2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



75$ 



ERRHRD ERRNO , WRTERR . PKT5SR 



CKLOOP 



TST 


(R3n 


CMP 


0266, .R3 


BEQ 


120$ 


BR 


65$ 



120$ 



CLR 



; WRITE DATA.CVC-l.ACK COMMAND 
J SET Lip R4 WITH PACKET ADDRESS 

:5FT PATTERN TN CORRECT REGISTER 
jMLL. MEMORY WITH RECORD SIZE 
J SET UP RECORD SIZE IN PACKET 
MOVE TAPE RECORD NUMBER TO BUFFER 
NUMBER READY FOR NEXT RECORD 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
I BR. IF OK 
;BUMP COUNT 
iTSSR INCORRECT AFTER WRITE DATA 

TRAP C$FRHRD 
.WORD 625 
.WORD WRTERR 
.WORD PKTSSR 
jLOOP IF SELECTED 

TRAP C$CLP1 
GUMP THE RECORD SI/E 
MAXIMUM SIZE YET 
bR. IF AT END OF WRITE SEQL>ENCE 
WRITE MORE RECORDS 

jSET RECORD COUNTER BACK TO ZERO 



I26CNT 

! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
jGET T5SH 

J SET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 
BUMP COUNT 
REWIND NOT ACCEf'TED 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSRCR5).R1 


MOV 


dSSR.R2 


MOV 


R0,R4 


TNC 


FATFLG 



ERRHRO ERRNO . T26RWN , PK T SSR 



TRAP 


C$ERHRD 


.WORD 


626 


.UOKO 


T26RWN 



TSV; MAROwARf Tt.STS 1 iJ 
TbST 6: Rt-RF.ADS 



MACRU M1?00 :-? MAR-64 09:44 PAGt. 74 3 



•bta oi^5^ 





057610 


012156 




6078 


057612 








057612 


104406 




60/<> 








n080 








t>081 








6082 








608-? 








6084 








608S 








b086 


057614 


013701 


0/1660 


6087 


057620 


010102 




6088 


057622 


052702 


000002 


6089 


057626 


OP0102 




6090 


057630 


001406 




6091 


057632 


005237 


002212 


6095 


057636 








057636 


104456 






057640 


001163 






057642 


073015 






057644 


015564 




6096 


057646 








057646 


104406 




6097 








6098 








6099 








6100 








6101 








6102 








6105 








6104 








6105 


057650 


012703 


000001 


6106 


057654 


004737 


010556 


6107 


057660 


013703 


000400 


6108 


057664 


013737 


003114 


6109 








6110 








6111 








6112 








611? 








6114 








6115 








6116 


057672 


012737 


161001 


6117 


057700 


012704 


071750 


6118 


057704 


010337 


71756 


6119 


057710 


010465 


000000 


61?0 


057714 


004737 


016340 


6121 


057720 


016501 


000002 


6l?2 


057724 


012702 


000200 


6123 


057730 


020102 




6124 


057732 


001406 




6125 


05/734 


005237 


002212 


6129 


057V40 








057740 


104456 






057742 


001164 






057/44 


0/2522 






057746 


012136 





071750 



130$: 



CKLOOP 



;LOOP IF SELFXTFO 



.WORD 
TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISThR ZERO (XSTO) 

PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 
J DOES EXP = REC'D 

BR, IF EQUAL (QK^ 

BUMP COUNT 

TAPE NOT AT BOT AFTER REWIfiO 

TRAP 
. WORi;) 
.WORD 
. WORD 
140$: CKLOOP iLOOP IF SELECTED 

TRAP 



MOV 


126BFR*6,R1 


MOV 


R1.R2 


BIS 


*6IT1,R2 


CMP 


R1,R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T , EXPREC 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O'FORWARO 1-REVERSE 

SPACE 1 RECORD FORWARD 
SPACE CALL 
RECORD SIZE 
071752 150$: MOV FREE.T26Rn : STARTING READ BUFFER ADDRESS 

REREAD DATA.CVC-l.ACK, OPP COMMAND 



MOV 


<H.R3 


JSR 


PC , SPACE 


MOV 


*256. .R3 


MOV 


FREE.T26Rn 



PKTSSR 
C$CLP1 



C$ERHRD 
627 

T26B0T 
EXPREC 

C$CLP1 



165$: 



MOV 


#161001. T26PK3 


MOV 


0T26PK3,R4 


MOV 


R3,T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


#SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO . T26RRG . PKTSSR 



REREAD OATA.CVC-l.ACK. OPP COMMAND 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SUE IN PACKET 
ISSUE COriMANO 
jUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
J SET UP EXPECTED 
;ARE THEY EQUAL 
I BR. IF OK 
J BUMP COUNT 
I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHf;D 
.WORD 628 
.WORD 126RRG 
.WORD PKTSSR 



TSV"/ - HARDWARE TtSTS 1-0 
TE.ST 6: RtREADS 



MACRU M1200 1'? HAR-84 09:4/1 



( _ 
PAGt 74 4 



ei7>0 

6151 
6152 
613? 
6154 
6155 
6156 
6157 
6138 
6139 
6140 
6141 
614? 
6143 
6141 
6145 
6146 
6147 
6148 
6152 



6153 

6154 
6155 
6156 
6157 
6158 
6162 



6163 

6164 

6165 
6166 
6167 
6168 



6169 

6 WO 
61/1 
6172 



057750 
05775C 
057 752 
057754 



05776C 
057770 
057774 
060000 
060004 
060010 
060014 
060016 
060020 
060024 
060024 
060026 
060030 
060032 
060034 
060034 
060036 
060042 
060046 
060050 
060052 
060056 
060(J56 
060060 
060062 
060064 
060066 
060066 
060070 
060074 
060076 
060100 
060100 
060100 
060100 
060102 
060110 
0601 1.-- 
060116 



104406 
005725 
062737 



012737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001165 
005204 
012136 

104406 
017701 
013702 
020102 
001406 
005237 

104456 
001166 
072006 
015564 

104406 
022703 
001401 
000672 



104403 
023727 
105402 
004737 



000001 071776 



170^: CKLUOP 

TST 
ADO 



CR5)* 
^^1,T26CNT 



;LOOP IF SFLFCTF.D 

TRAP 
;BUMP RECORD SI7h 
iBUMP TAPF RECORD COUNTER 



140001 
071756 
000000 
016540 
.'*00002 
C "0200 



0')2212 



071750 



123052 
071776 



002212 



000412 



002212 
017272 



MOV 


V>140001.T26P!<3 


MOV 


R3.T265Z 


MOV 


R4.TSDB''R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


195$ 


INC 


FATFLG 


ERRHRD 


ERRNO.RDERR.PKTSSR 



1955 



CKLOOP 



MOV 


oJFREE.Rl 


MOV 


T26CNT.R2 


CMP 


R1.R2 


BEQ 


197$ 


INC 


FATFLG 



ERRHRD ERRNO , T26WNG , EXPREC 



197$ 



200$ 



000017 



CKLOOP 

CMP 
BEQ 
BR 

END^jUB 



CMP 
Bl.U 
J'JR 



0266. ,R3 

200$ 

150$ 



FATf LG.rt:5, 

99S$ 

PC.CKURUP 



SEQ 0233 



C$CLP1 



READ DATA, CVC-1, ACK COMMAND 

READ DATA, CVC-1. ACK COMMAND 

SET SIZE INTO PACKE^ 

ISSUE READ DATA COMMAND 

WAIT FOR 5SR 

PICK UP THE T55R 

SET UP EXPECTED 

IS THE TSSR OK 

BR, IF TSSR OK (GOOD) 

BUMP COUNT 

READ DATA COMMAND FAILED 

TRAP 
.UORD 
.WORD 
.WORD 
;LOOP IF SEl : CTED 

TRAP 
; FIRST WORD t-ROM READ BUFFER 
;SET UP EXPECTED 
;ir. TAPE POSITION CORRECT 
;KElP going POSITION OK 
;BUr1P COUNT 
iTAPE POSITION INCORRECT 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
:AT MAX SIZE YET 
;BR. IF AT END OF THE SUBTEST 
;KEEP ENDING MORE RECORDS 

.>>>>>>i!.^>»>> tND SUBTEST >■>>>> 

-10105: 

TRAP 
15 ERROR COUNT A 25 
BR. IF LESS THAN 25 
.TRY TO DROP THE UNIT 
999$: 



C$ERHRD 
629 
RDERR 
PKTSSR 

C$CLP1 



C$tUHRD 
630 
T26WNG 
EXPREC 

CSCLPl 



i -. i > ^ 1 1 



CJESUB 



TtST 6: RtRtADS 



MACRt) Ml<»00 .'^ MAM HA 0'»:44 PAlU /S 



Sf:Q 0^'.^ 



M ;4 








61 ^'^ 








6 1 ■."6 








t>\ 7^ 








M?8 








M7^ 








MHO 








*^ : e 1 








'-■18J 








t.l85 








M8-1 








bl8'j 








biet 








<.18 7 








M8fl 








6189 


O60116 
060U6 








060116 


104402 




6190 


060120 


00475 7 


074540 


6191 


060124 


005057 


071776 


619? 


060150 


004 757 


07465? 


6195 


060134 


004757 


0746 74 


619^ 








619S 








6196 








6197 








6198 








6199 








6200 








6201 


060140 


004 757 


016064 


620? 


060144 


105407 




6203 


060146 


005257 


002212 


620^ 


060152 


010001 




6208 


060154 








060154 


104455 






060156 


001167 






060160 


005650 






060162 


012124 




6209 


060164 


015757 


002172 


6210 








6211 


060172 


012704 


071630 


6212 








6215 








6214 








6215 








6216 








6217 








6218 








6219 


060176 


004757 


010752 


6220 


060202 


105407 




6221 


060204 


00525 7 


002212 


6225 


060210 


010001 




6^20 


060212 








060212 


104456 






060214 


0011 /O 






060216 


005054 






060220 


012124 





TF-Sl 6, SUfUt-sr 4 

VERIf-ltS THAT JHt HERfcAD PRhVlUUS CQMHANO WITH ()PP - 1 
AND Swe-l OP^RATtS PRQPKRM . Th^ TFST SfClUfNCl. I'. 
THE SAME THAT IS USED IN St»tUl'.I .^ H'JI I I IS 
VFRIFILD THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



I - 



BGNSiJB 



JSR 


PC, r26REST 


CIR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC.T26RT^ 



J >>>•»-► >i-. ^ -. ^ > BEGIN SUBTEST >*>>>>>.>> 

T6.4: 

TRAP CJBS'W 
J SET COMMAND PACKET 
J CLEAR TAPE RECORD COUNTER 
J SET UP OTHER COMMAND PACKET 
tSET UP OTHER COMMAND PACKET 



lISSUE CONTROLLER "SOfY" INITIALIZE CARRY BIT CLEAR IE ERROR 



071650 20*1 



JSR 


PC.SOFINIT 


jDO INITIALIZE ON CONTROLLER 




PCS 


20$ 


iBR ir INIT WAS OK 




INC 


FATELG 


jBUMP COUNT 




MOV 


PO.Rl 


(CONTENTS OE TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SEIMSG 


J FATAL ERROR TSSR WAS NOT OK 








TRAP 


CURDf 






.WORD 


651 






.UORO 


S^ lERR 






.WORD 


SK IMSG 


MOV 


UNIiN,T26DSW 


tSET UP UNIT NUMBER 





MOV 



0T26PACKET.R4 



i SUBROUTINE NEEDS PACKET ADDRESS 



,*4«*«**4i*****« 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

< 



JSR PC, WRTCHR 

BCS 26i 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO » WR TM5G . SF IMSU 



I ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
lOUMP COUNT 
(SAVE CONTENTS OF TSSR 

iWRlTE CHARACTERXSTISC FAILED 

TRAP 

.WORD 

. WORD 

.WORD 



CiERHRD 
652 

WRTMsL. 
SFIM^iU 



ThSI 6: RERt-:ADS 



N/KRO HK'OO .'< Maw H4 O'J-^^ PA(Jl /^) i 



b.^r .' 


06022c^ 








060222 


104406 




fi.\"-8 








6,?^9 








^.^30 








b.Ml 








t>^^?2 








»Sc:55 








bJ54 








t>^35 


060224 


004757 


011104 


t.256 


060250 


103415 




6257 


060252 


016501 


000002 


6258 


060256 


012702 


000200 


6259 


060242 


010004 




6240 


060244 


005237 


002212 


6244 


060250 








060250 


104456 






060252 


001171 






060254 


075504 






060256 


012136 




6245 


060260 








060260 


104406 




6246 








624 7 








6248 








6249 








6250 








6251 








6252 








6255 


060262 


015701 


071660 


6254 


060266 


010102 




6255 


060270 


052702 


000002 


6256 


060274 


020102 




6257 


060276 


001406 




6256 


060500 


005257 


002212 


6262 


060504 








060504 


104456 






060506 


001172 






060510 


075015 






060512 


015564 




6265 


060514 








060514 


104406 




6264 


060516 


C12705 


000400 


6265 


060322 


013737 


005114 


6266 








6267 








6268 








6269 








62/0 








6271 








62/2 








6275 


060550 


012/57 


140005 


6274 


060556 


012704 


071750 


6275 


060542 






6276 


060542 


010500 




6277 


060544 


004757 


01751? 


6276 


060350 


010557 


071756 



071752 



071750 



.V>S: 



CKl OOP 



ii OOP IF :>H.e.cTt.o 



TRAP 



I 

tissue REWIND COMMAND TO SFl.FCTf.D TAPf OPIVI: 
t 

{**4>*******************************************«*******««**444«444* 

(CALL TAPt. RtWIND COMMAND 

tBR, U NO PROei.' M 

jGET TSSR 

iSET UP RXPECTFD TSSR 

jPACKET ADDRESS SET \jp 

(BLIMP COUNT 

(RtWlND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


50$ 


MOV 


TS5R(R5).R1 


MOV 


*SSR.R2 


MOV 


R0,R4 


INC 


FATriCj 



ERRHRD ERRNO » T26RWN . PI< TSSR 



50$ 



CKLOOP 



il OOP IF SELECTED 



TRAP 

;«*««*******«***«**«*•*•*****« 4 ********** ***4 4**<, 4 44 444444 4**41*44*4 

!rEAD message buffer EXTENDED STATUS REGISTER ZERO (XSTO) 

J «4'>>4i**4>A***4**jtk<*********************4>>*************v** ************ 

iPICK UP XSTO 
(SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
(DOES EXP - REC'D 
(BR, IF EQUAL (OK) 
;BUMP COUNT 

(TAPE NOT AT BOT AFTER REUINO 

TRAP 
.WORD 
.UORD 
.WORD 
40$: CKLOOP (LOOP IF SELECTED 

TRAP 
(RECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR»6,R1 


MOV 


R1.R2 


BIS 


oerTl,R2 


CMP 


R1.R2 


6EQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 

MOV 



0256. .R3 
FREE,T26RB 



{*****************4*44********^**««******4t***************4**4«***** 
1 

(WRITE DATA.CVC'l.ACK COMMAND 

; ******«********!*• *************4i4«^^4«444*4********** ****** ******** 



(>bi 



MOV 0140005, T26PK5 

MOV 0T26PK3.R4 

MOV R5.R0 

JS^ PC.FILLMfcM 

MQV R3,T265/ 



',F0 02'/:. 



:iCLPi 



TRAP 


C$FRHRD 


.WORD 


655 


.WORD 


T26RWN 


.WORD 


PKTSSP 



C$CLP1 



C$ERHR0 
654 
T26B0T 
FXPREC 

C»CLP1 



(WRITE OATA.CVC-l.ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

(SET PATTERN IN CORRECT REGISTER 
(MIL MEMORY WITH RECORD SU'E 
(SET UP RECORD Silt IN PACKET 



I ) 



TtST 6: RERtADS 






b^92 

6^93S 

6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6503 
6304 
6305 
6306 
6307 
6306 
6309 
6310 
6311 
6315 



6316 

6317 
6518 
6319 
6320 
6321 
6322 
6523 
6524 
6325 
6326 
6327 
6328 
6329 
6333 



060354 
060362 
060370 
060374 
060400 
060404 
060410 

060412 
060414 
060420 
060420 
060422 
060424 
060426 
060430 
06O430 
060432 
060434 
060440 
060442 
060444 
060444 



060450 
060454 
06O456 
060462 
06 0-466 
06O470 
060474 
060474 
060476 
060500 
060502 
060504 
060504 



060506 
060512 
060514 
060520 
060522 
060524 
060530 
060530 



013?7/ 
06J737 
010465 
004 737 
016501 
012702 
020102 
001406 
00523 7 

104456 

00117? 
005111 
012136 

104406 
OOS723 
022703 
001401 
000737 



013701 
010102 
052 702 
020102 
001406 
005257 

104456 



r 1 7 n^ 

000001 
000000 
016340 
000002 
000200 



00221. 



000412 



005037 071776 



004737 011104 

103413 

016501 000002 

012702 000200 

010004 

005257 002212 

104456 
001174 
073304 
012136 

104406 



071660 
000002 



002212 



MACRO HI 200 /^ MAR H4 04:4^ PAGf 7^, .> 



071776 



"iFO 02 5^. 



MOv 


T26CNT.o)»-RF.[- 


AOO 


^l.T26CNT 


MOV 


R4,Ti.DB(R5") 


j-;r 


PC.WAITF 


MOV 


TSSR(R'>),R1 


MOV 


V>SSR.R2 


CMP 


R1.R2 


BEQ 


/5: 


INC 


rATfl G 



75$: 



ERRHHD ERRNO , URTFRR , PK TSGR 



CKLOOP 



(MOVE TAPE RECOHU NUMtlER TO BlJErpR 
I NUMBER RFADC FOR ht-/!! RtCORO 
I IS5UE COMMAND 
jWAlT FOR O'jR TO SET 

;r,r r t^,^,r content'^ 

J SIT U' EXPECTED 

(AR! THE^ EQUAL 

I BR, IF OK 

;BUMP COUNT 

jTSSR INCORRECT AFTER REREAD DATA 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$E PHRD 
63S 
WRTERR 
PKtsoR 

CJCLPl 



TST 


CR5)* 


CMP 


0266. ,R5 


BEQ 


120J 


BR 


65 J 



120$: 

CLR T26CNT 



iBUMP THE RECORD SIZE 

(MAXIMUM SIZE rET 

iBR, IF AT fcNO Of WRITE SEQUENCE 

J WRITE MORE RECORDS 

[SET RECORD COUt^TER BACK TO ZERO 



(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I 



;♦♦ 



JSH 


PC, REWIND 


BCS 


1301 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0,R4 


INC 


FATFLG 



130$: 



ERRHRD ERRNO, T26RWN,PKTSSR 



CKLOOP 



(CALL TAPE REWIND COMMAND 

jBR. IF NO PROBLEM 

iGET TSSR 

I'-'FT Kjt^ EXPECTED TSSR 

it-ACKET ADDRESS SET UP 

(BUMP COUNT 

iREWINO NOT ACCEPTED 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$FRHRD 
636 
T 26 RUN 
PKTSSR 

CJCLPl 



I 

(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV T26BFR»6.R1 

MOV RI.R2 

BIS ^IT1.R2 

CMP R1.R2 

BEQ 140J 

INC FATFLG 

ERRHRD ERRNO, T26B0T.EXPREC 



(PICK UP XSTO 
iSET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
iOOtS EXP - REC'O 
(BR. IF EQUAL (OK) 
J BUMP COLINT 

(TAPE NOT AT BOV AFTER REWIND 

TRAP 



C$ERHRD 



Ttsr 6: RhREADS 



MACRO Hlt^OO ." MAH H*3 00:4/; PAGt r) 5 



3EQ 0^5/ 





060532 


0011.-5 






060534 


073015 






060536 


015564 




6??4 


060540 








060540 


104406 




t'?;3s 








^?56 








6 » 5 7 








t5.^e 








^^559 








6540 








6341 








6342 








634J 


060542 


012703 


000001 


^344 


060546 


004757 


010556 


6345 


060552 


012703 


000400 


6346 


060556 


013737 


003114 


634; 








6346 








6349 








6350 








6551 








635^ 








6353 








6354 


060564 


012757 


171001 


6355 


060572 


012704 


071750 


6356 


060576 


010537 


071756 


6357 


06^^02 


010465 


000000 


6358 


060606 


004737 


016340 


6359 


060612 


016501 


000002 


6360 


060616 


012702 


000200 


6361 


060622 


020102 




6362 


060624 


001406 




6363 


060626 


005237 


00221^ 


6367 


060632 








060632 


104456 






060634 


001176 






060636 


072225 






060640 


01?136 




6368 


060642 








060642 


104406 




6369 


060644 


017701 


122244 


6370 


060650 


013702 


071776 


6371 


060654 


000302 




6372 


060656 


020102 




6573 


060660 


001406 




6374 


060662 


005237 


002212 


6378 


060666 








060666 


104456 






060670 


001177 






060672 


072006 






060674 


015564 




6379 


060676 








060676 


104406 




6380 


060700 


00572? 




6381 


060702 


062737 


000001 


6382 









140J: 



CKLOOP 



il.OQP ir StLtCTtD 



.WORD 
. UORO 
.WORD 

TRAP 



63 7 

T26B0T 

EXPREC 

CSCLPl 



ISSUE SPACE RECORDS COMMAND ■ VALUE. IN R3 SET 5 NUMBER QF RECORDS 
BIT 15 SET'^ DIRECTION - 0-EORWARD 1-REVERSE 

(SET UP SPACE FORWARD 1 
jISS'JE SPACE COMMAND 
tRECORO SI?E 
071752 150$: MOV rREE.T26RB j STARTING READ BUFFER ADDRESS 

REREAD DATA.CVC-l.ACK. OPP COMMAND 

A***4***4444********4444**4 4*4 4*44*****4**4**4*4 444*«%4*****^***** 



MOV 


tfl,R3 


JSR 


PC, SPACE 


MOV 


i>256. .R3 


MOV 


FREE.T26RB 



071750 



1655 



MOV #171001, T26PK3 

MOV *T26PK3.R4 

MOV R3,T26SZ 

MOV R4.TSDB(R5') 

JSR PCWAITF 

MOV TbSR(R5),Rl 

MOV 0SSR,R2 

CMP R1.R2 

BEQ 1701 

INC FATFLG 

ERRHRD ERRN0.T26RRF.PKTSSR 



(REREAD DATA.CVC-l.ACK, OPP COMMAND 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECOHD SI/E IN PACKET 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 
BUMP COUNT 
TSSR INCORRECT AFTER REREAD DATA 



170J 



190 J 







TRAP 


C.ERHRD 






.WORD 


638 






.WORD 


T26RRF 






.WORD 


PKTSSR 


CKLOOP 




iLOOP ir SELECTED 








TRAP 


C5CLP1 


MOV 


aFREE.Rl 


I FIRST WORD FROM READ BUFFER 




MOV 


T26CNT.R2 


iSET UP EXPECTED 




SWAB 


R2 


(SWAP BYTES IN EXPECTED 




CMP 


R1.R2 


;IS TAPE POSITION CORRECT 




BEO 


190J 


iKEEP GOING POSITION OK 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRNO . T26WNG . EXPREC 


I TAPE POSITION INCORRECT 








TRAP 


CiERHRD 






.WORD 


639 






.WORD 


T26WNG 






.WORD 


EXPREC 



071776 



CKLOOP 

TST 
ADD 



(R3). 

ftl,T26CNT 



TRAP 
;NEXT RECORD SI^E 
(BUMP TAPE RECORD COUNTER 



C$CLP1 






63(^5 
6584 
b^db 
6586 
6587 
b388 
f-389 
6590 
6391 
639a 
6393 
6394 
6395 
6396 
6397 
6401 



640? 

6403 
6404 
6405 
6406 
6407 
6411 



6412 

641? 

641 

6415 

6416 

6417 



6418 
6419 
6420 
6421 



060 '10 
060716 
060722 
060726 
060752 
060736 
060742 
060744 
060746 
060752 
060752 
060754 
060756 
060760 
060762 
060762 
060764 
060770 
060774 
060776 
061000 
061004 
061004 
061006 
061010 
0f.l0l2 
061014 
061014 
^1016 
061022 
061024 
061026 
061026 
061026 
061026 
061030 
061056 
061040 
061044 



012/57 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001200 
072156 
012156 

104406 
017701 
013702 
020102 
001406 
005237 

104456 
001201 
072006 
015564 

104406 
022703 
001401 
000654 



104403 
023727 
103402 
004737 



140001 
071756 
000000 
016340 
000002 
000200 



002212 
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READ DATA. CVC-1, ACK COMMAND 

071750 



SF^J 0258 



*t4**«4**44>4c>kf + 4>'*"f4>4>f'(<4'4<4«* 



MOV 


0140001. T26PK3 


MOV 


R3.T26SZ 


MOV 


R4.TS0BCR5) 


J5R 


PC.WAITF 


MOV 


1SSR(R5).R1 


MOV 


«SSR.R2 


CMP 


R1,R2 


BEQ 


215$ 


INC 


FATfLG 



BRRHRD ERRNO , T26RDF . PKTSSR 



122124 
071776 



002212 



215$: CKLOOP 

MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



000410 



217$: 



220$: 



002212 
017272 



000017 



999$: 



CKLOOP 

CMP 
BEQ 
BR 

ENor.UB 



CMP 
BLO 
JSR 



SFREE.Rl 

T26CNT,R2 

R1.R2 

217$ 

FATFLG 

ERRNO, T26WNG.EXPREC 



0264. ,R3 

220$ 

150$ 



FATFLG. ^>15 

999$ 

PC.CKOROP 



J READ DATA. CVC-1, ACK COMMAND 

;5ET SIZE INTO PACKET 

I ISSUE READ DATA COMMAND 

WAIT FOR SSR 

PICK UP THE TSSR 

SET UP EXPECTED 

IS THE TSSR OK 
(BR. IF TSSR OK (GOOD) 

I BUMP cour-jT 

;READ DATA COMMAND FAILED 

TRAP C$ERHRO 
.UORO 640 
.WORD T26RDf' 
.WORD PKTSSR 
jLOOP IF SELECTED 

TRAP C$CLP1 
; FIRST WORD FROM READ BUFFER 
tSET UP EXPECTED 
IS TAPE POSITION CORRECT 
KEEP GOING POSITION OK 
BUMP COUNT 
TAPE POSITION INCORRECT 

TRAP C$ERHRD 
.WORD 641 
.WORD T26WNG 
.WORD EXPREC 

TRAP C$CLP1 
AT MAX SIZE YET 
BR. IF AT END OF THE SUBTEST 
KEEP GOING MORE RECORDS 

;>>>>>>i>>>>^ EMO SUB TEST :»->>>:.■»■>>>>>> 

L10106: 

TRAP C$ESU6 
IS ERROR C0L»NT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



1 . 



TSV; - HARDWARE, Tt.STS 1 8 
TE.ST 6: REREADS 



64? 5 
64.^4 
642b 
6426 
6427 
6428 
r.429 
64 30 
6451 
6432 
b43? 
64 34 
64 55 
6436 
6437 
6438 



HACRU M1200 23 hAR-tt4 09*44 PAGE 76 



6439 
6440 
6441 
6442 
6443 
6444 
6445 
b446 
6447 
6448 
6449 
6450 
6^51 
6455 
6456 



6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6475 
6474 



6475 



061044 
061044 
061044 
061046 
061052 
061056 



104402 
004737 
004 737 
004737 



74540 
074632 
074674 



061062 
061066 
061070 
061074 
061076 
061076 
061100 
061102 
061104 
061106 



004 737 
103407 
005237 
010001 

104455 
001202 
003650 
012124 
013737 



016064 
002212 



061114 012704 



002172 
071630 



061120 
061124 
061126 
061132 
061134 
061134 
061136 
061140 
061142 
061144 



004 737 
10i407 
005257 
010001 

104456 
001203 
005054 
012124 



010752 
002212 



'--^EQ 0i;?9 



TEST 6. SUBTE-jT 5 

VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
RECORD LONGER THAN THE SPECI'IEO BYTE COUNT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
LONG (RLL) BIT SET. RESULTS ARE VERIFItD FOR BOTH 
STATES OF OPP (0 AND 1). 



JSR 


PC,TP6REST 


JSH 


PC.T26RT2 


JSR 


PC,T26RT3 



071650 20$: 



DGNSUB .>-^>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.5: 

TRAP C$6SUe 
;SET COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 
: SET UP OTHER COMMAND PACKET 

ISSUE CONTROLLER "SOFT" INITIALISE - CARRY BIT CLEAR IF ERROR 

DO INITIALIZE ON CONTROLLER 

BR IF INIT WAS OK 

BIJiP COUNT 

CONTENTS OF TS5R REGISTER 

FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 642 
.WORD SFIERR 
.WORD SFIMSG 
J SET UP L»NIT NUMBER 



JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO. SFIERR, SFIMSG 



[SUBROUTINE NEEDS PACKET ADDRESS 



MOV UNITN.T26DSU 
MOV 0T26PACKET,R4 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



26$: 



JSR PC. WRTCHR 

BCS 261 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



iISSUE WRITE CHARACTERISTICS 

jBR. IF COMMAND ISSUED OK 

I BUMP COUNT 

(SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 



Cir-RHRD 
64 3 

WRTMSG 
SFIMSG 



TSV7 - HARDWARE ItlSTS 1-3 



64 't^ 

6478 
64 79 

Mao 

M81 
6482 
6403 
o484 
6485 
64ci6 
6487 
6488 
6492 



649 5 

6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
6510 



6511 

6512 
6515 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
652V 



061144 104406 



061146 
061152 
061154 
061160 
061164 
061166 
061172 
061172 
061174 
061176 
061200 

06120r' 

061202 



004737 
103413 
016501 
012702 
010004 
005237 

104456 
001204 
073304 
012136 

104406 



011104 

000002 
000200 

002212 



061204 
061210 
061212 
061216 
061220 
061222 
061226 
061226 
061230 
061232 
061234 
061236 
061236 
061240 
061244 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001205 
073015 
0155S4 

104406 
012703 
013737 



071660 



002212 



001000 
003114 



061252 
061260 
061264 
061264 
061270 
061274 
061300 



012737 
012704 

010337 
010465 
004737 
016501 



140005 
071750 

071756 
OOOOOO 
016540 
000002 
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TRAP 
♦ ♦*♦.*♦** »*****♦♦♦***♦♦♦♦*♦*♦ + *♦♦♦*♦♦*♦*♦♦♦♦♦♦♦ + ♦♦♦*♦ i********,***** 

ISSUE-: REWIND COMMAND TO StLECTtD TAPE DRIVE 

(CALL TAPE REWIND COMMAND 

(BR. IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TbSR 

jPACKET ADDRESS SET UP 

iBUMF COUNT 

iREWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



bEQ 0240 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5).R1 


MOV 


*SSR,R2 


MOV 


R0.R4 


INC 


EATFLG 



30$ 



tRRHRO ERRN0.T26RWN.PKT5SR 



CKLOOP 



iLOOP IF SELECTED 



071752 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

jPICK UP XSTO 
iSET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
[DOES EXP • REC'D 
iBR. IF EQUAL (OK) 
;BI>1P COUNT 

:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP ;LOOP IF SELECTED 

FRAP 
iRECORD SIZE 
iSTARTING WRITE BU^'FER ADDRESS 



MOV 


T26BFR»6,R1 


MOV 


R1.R2 


BIS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



0512. ,R3 
FRFE,T26RB 



WRITE DATA.CVC-l.ACK COMMAND 



071750 



65$. 



MOV 0140005. T26PK3 

MOV 0T26PK3.R4 

MOV R3.T26SZ 

MOV R4.TS0BCR5) 

JSR PC, WAI IF 

MOV T55R(R5),R1 



(WRITE OATA.CVC-l.ACK COMMAND 
;SET UP R4 WITH PACKET ADC^ESS 

: SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 



C$CLP1 



C$ERHRD 
644 

T26RWN 
PKTSSR 

C$CLP1 



C$ERMRU 
645 
T26B0T 
EXPREC 

CJCLPl 



TSV; - HARDWARt TtSTS 1 6 
TtST 6: RfRGADS 



65?8 

6530 
6S51 
b535 



6536 

6537 
6556 
6539 
tS40 
6541 
654:-' 
654 3 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6559 



6560 

6561 
656? 
6563 
6564 
6565 
6566 
6567 
6568 
6569 
6570 
6571 
65/? 
6573 
657V 



6576 



061304 
061310 
06131? 
061314 
0613?0 
061320 
0613?? 
0613?4 
0613?6 
061330 
061330 
06133? 
061334 



06134? 
061350 
061354 
061360 
061364 
061370 
061374 
061400 
06140? 
061404 
061410 
061410 
06141? 
061414 
061416 
0614?0 
061420 



0614?? 
061426 
061430 
061434 
061436 
061440 
061444 
061444 
061446 
061450 
06145? 
061454 
061454 



01? 70.: 
0?010? 
001406 
O05?37 

104456 
001?06 
005111 
012136 

104406 
005303 
013737 



012737 
01?704 
010337 
010465 
00473 7 
016501 
01?702 
020102 
001406 



104456 
00l?07 
074362 
012136 

104406 



013701 
O10102 
OS2702 
020102 
001406 
005237 

104456 
00l?10 
074130 
015564 

104406 



000200 



00221? 



161001 
071750 
071756 
000000 
016340 
00000? 
100204 



002212 



071660 
010000 

002212 
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MOV V?r/3R.R2 

CMP R1,R2 

BfQ 75t 

INC F'ATf-LG 

ERRHRD ERRNO , WR TfcRR , PK TSSR 



bEQ 0241 



75$ 



003114 071752 



CKl OOP 

DKC 
MOV 



R3 
FREE,T26RB 



;SEr UP tXPtCThD 

(ARf-' THFY EQUAL 

I BR. If OK 

J BUMP COUNT 

iTSSR INCORRECT AF TtR WRITf- DATA 

TRAP C$tRHP[) 

.WORD 

. WORD 

.WORD 
iLUOP If SELECTED 

[RAP 
J SET RECORD SIZE TU 511. 
I STARTING READ BUrrfcR AUURE55 



646 

WHTERP 
PK T^SP 

C$CLP1 



REREAD DATA. CVC-l.ACK, DPP -1 COMMAND 



07l7b0 



1655 



MOV 


0161001. T26PK3 


MOV 


«T26PK3,R4 


MOV 


R3,T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR:SC!BIT2.R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 



170i 



ERRHRO ERRNO. T26TRL.PKTSSR 



CKLOOP 



J REREAD DATA.CVC-1.ACK,0PP-1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

tissue COMMAND 

;WAIT FOR S5R TO SET 

:GET TSSR CONTENTS 

jSET UP EXPECTED 

J ARE THEY EQUAL 

I BR, IF OK 

iBUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP CiERHRD 

.WORD 64 7 
.WORD T26TRL 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP CJCLPX 



i'reAD message BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

* 

jGET Mt:SSAGE BUfTER 

I SET LP EXPECTED 

;SET THE RLL BIT IN EXPECTED 

I ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS WELL) 

iBUMP COUt'iT 

;THE RLL BIT WAS NOT SET IN X^JTO 

TRAP C»ERHf-(D 

.WORD 646 
.WORD T26L0N 
.WORD EXPRtC 

iLQOP IF SELECTED 

TRAP CJCLPl 



MOV 


T?6BFR»6,R1 


MOV 


R1.R2 


BIS 


06IT1?,R2 


CMP 


Rl.R? 


BEQ 


180$ 


INC 


FATFLG 



ERRHRD ERRNO , T26L0N . EXPRtC 



180$: CKLOOP 



ThSr b: RF.RKrtDS 
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t_'S79 


061456 


012703 


0007// 


6530 


061462 


013737 


003114 


6581 








6582 








658? 








6584 








6585 








6">ft6 








6587 








6586 


061470 


012757 


141001 


6589 


061476 


012704 


071750 


6590 


061502 


010337 


071 ?56 


6591 


061506 


010465 


000000 


659^ 


061512 


004737 


016340 


6595 


061516 


016501 


000002 


6594 


061522 


012702 


100204 


6595 


061526 


02C102 




6596 


061550 


001406 




b59 ; 


061532 


005237 


002212 


6601 


061536 








061536 


104456 






061540 


001211 






061S42 


74362 






061S44 


012136 




6602 


061546 








061546 


104406 




6605 








6604 








660*^ 








6606 








660/ 








6608 








6609 








6610 


061550 


015701 


071660 


6611 


061554 


010102 




6612 


061556 


052702 


010000 


6613 


061562 


020102 




6614 


061S64 


001406 




6615 


061566 


005237 


002212 


6619 


061572 








061372 


104456 






061574 


001212 






061576 


074130 






061600 


015564 




66,"^ 


061602 








061602 


104406 




6621 


061604 
0f.l604 








061604 


104403 




662? 


061606 


023727 


002212 


6623 


061614 


103402 




6624 


061616 


004737 


017272 


6625 


061622 







071752 



MOV <>511. ,R5 
MOV FRr:F. ,T26RD 



;SFT RrCOttO Sl/t 

J STARTING RFAD BUFFfR ADORFSS 



REREAD DATA.CVC-l.ACK COMMAND 



071750 



3655 



MOV 


«141001.T26PI<3 


MOV 


^T26PK3.R4 


MOV 


R3,T26SZ 


MOV 


R4,TSnB(tt5) 


JSR 


PCUAITF 


MOV 


T5SR(n5),Rl 


MOV 


.^SSR.'SC!BIT2,R2 


CMP 


R1,R2 


BE.Q 


370J 


INC 


FATFLG 



370$ 



ERRHRD ERRNO . T26TRL , PKTSSR 



CKLOOP 



REREAD DATA.CVC-l.ACK COMMAND 

SET IF R4 WITH PACKET ADDRES5 

SET UP RECORD SIZE TN PACKET 

ISSl^ COMMAND 
;UAIT FOR SSR TO SET 
jGET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

BLfMP COUNT 

TSSR INCORRECT AFTER REREAD DATA 

TRAP CJERHRD 
.WORD 649 
.W^^D T26TRL 
.WORD PKTSSR 
iLOOP IF SELECTED 

TRAP C$CLP1 



READ MESSAGE BUf-"FER EXTENDED STATUS REGISTER ZERO (XSTO) 

iGET MESSAGE BUFFER 
;SET UP EXPECTED 
;SET THE RLL BIT IN EXPECTED 
;ARE THEY EQUAL 
BR. IF EQUAL CALL IS WELL) 
BL^P COUNT 
THE RLL BIT WAS NOT ?:ET IN XSTO 

TRAP C$ERHND 
.WORD 650 
.WORD T26L0N 
.WCRD EXPRFC 



MOV 


T26BFR.6.R1 


MOV 


R1.R2 


BIS 


^IT12,R2 


CMP 


R1.R2 


BEQ 


',80 <: 


INC 


f Aif ^G 



380$ 



ERRHRD ERRNO, T26L0N,EXPREC 

CKLOOP 
ENDSU3 



000017 



999 J 



CMP FATFLG.015. 
BLO 999$ 

JSR PC.CKDROP 



TRAP CJCLPl 

;>>>*>>>>>>>> END SUBTEST >>>■»>>>>>:>>> 

L101071 

lis ERROR COUNT AT 25 
jBR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



SEQ 0242 



Tf.vr - HARDWARt. ThSTS 1 -ti 
rtsr 6: RtRtADS 



6h?J 

eb?.s 

6630 
6651 
665.-^ 
6653 

6655 
ti636 

663 V 

6638 
665c» 

66A0 
6641 
6642 
6643 
6644 
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"■oFQ 0^43 



6645 
6646 
6647 
6649 
6649 
6650 
6651 
665? 
6653 
6654 
6655 
6656 
6657 
6661 
666^ 



6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
66/? 
66 73 
6674 
6675 
6679 
6680 



06162? 
061622 
061622 
061624 
061630 
061634 



104402 
004 737 
004737 
004737 



061640 
061644 
061646 
061652 
061654 
061654 
061656 
061660 
061662 
061664 



004737 
103407 
005237 
010001 

104455 
001213 
003650 
012124 
013737 



061672 012704 



061676 
061702 
061704 
061710 
061712 
061/12 
061714 
Obl7lb 



004757 
103407 
005237 

010001 

V04456 
00:j14 
005054 



074540 
074632 
074674 



016064 
002212 



002172 
071630 



010752 
002212 



TEST 6. SUBTEST 6 

VERIFIES TKAT A REREAD PREVIOUS COMMAND READING A 
RECORD SHORTER THAN THE SPECTEIED BYTE COUNT CAUSIS 
^APE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
SHORT (RLS) BIT SET. IT 15 VERIFIED THAT THE 
RESIDUAL BYTE CGUNTc.R (RBPCR) IN THE MESSAGE BUFEER 
CONTAIN? THE PROPER NONZERO VALUE (E.G.. THE 
DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 AND 1). 



UGN5UB . ^>>>>>>>v>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.6: 

TRAP C$BSUB 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACi^ET 
SET UP OTHER COMMAND PACKET 

;4>*«**4i4t*«4t«*«4,*«****«*«4,4«*A ************** 'k ************ ^*A**4>4i4« 

ilSSL'E CONTROLLER SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 

• *************«4k***ik4i********A4iA**«4i****4t********************«*^l>** 



JSR 


PC.T26REST 


JSR 


PC.T26RT2 


JSR 


PC.T26RT3 



071650 20$ 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20* 


iBR IF INIT WAS OK 




INC 


FATFLG 


;Bl.JMP COUNT 




MOV 


RO.Rl 


;CONTENTS OF TSSR REGISTER 




ERRDF 


ERRN0.S*^1ERR,SFIMSG 


J FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


651 






. WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T260SW 


iSET UP UNIT NUMBER 





MOV 



; SUBROUTINE NEEDS PACKET ADDRESS 



0T26PACKET.R4 

««*******«******«4*********************A********4i*A***<*4.***4i*** + ** 

WHITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

****i«********4,4***«**««4i.ti*4L4t4k«4i«4i4i4i***4i************«**«*******«*« 



JSR PC.WRTCHR 

BCS 26$ 

INC FAfFLG 

MOV R0,R1 

ERRHRD ERRNO . WHTMSG , SF IMSU 



I ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISStCD OK 
BUMP COLIMT 

SAVE CONTENTS OF TSSR 
WRITt CHARACTERISTISC FAILED 

TRAP 
,WORO 
.WORD 



C$ERHRD 

652 

WRTMSG 



TSVr - HARDWARr TESTS 1 -M 
TE.ST 6: RF.READS 



MACRO H1200 :f? MAR-W^ 09:44 PAGf /7 1 





Ob 1720 


012124 




6631 


061722 








061722 


10440b 




668.^ 








668? 








66«4 








6685 








'^f'86 








6b87 








6688 








6689 


061724 


004737 


011104 


6690 


061750 


103413 




6691 


061732 


016501 


000002 


6692 


0617i>6 


012 702 


000200 


6693 


061742 


010004 




6694 


061744 


005237 


002212 


6698 


061750 








061750 


104456 






061752 


001215 






061754 


073304 






061756 


012136 




6699 


061760 








061760 


104406 




6/00 








6/01 








670:^ 








6705 








6704 








6705 








6706 








6707 


061762 


013701 


071660 


6706 


061766 


010102 




6709 


061770 


052702 


000002 


6710 


061774 


020102 




6711 


061776 


001406 




6712 


062000 


005237 


002212 


6716 


0620O4 








062004 


104456 






062006 


001216 






062010 


075015 






062012 


015564 




6717 


062014 








062014 


104406 




6718 


062016 


012703 


000400 


6719 


062022 


013737 


003114 


6720 








6721 








6722 








6723 








6724 








6725 








6726 








6/27 


062030 


012/37 


140005 


6728 


062036 


012704 


0/1750 


6729 


062042 






6750 


062042 


010357 


071 756 


6731 


062046 


010465 


000000 



265: 



CKLOOP 



jl.nOP IF SELFCTFO 



. WORD 
TRAP 

ISSUE REWIND COMMAND TO SFLECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 

;BR, IE NO PROBLEM 

I GET TSSR 

jSET UP EXPECTED TSSR 

;PACKET ADDRESS SET UP 

;BUMP COUNT 

; REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


50 » 


MOV 


TSSRCR5),R1 


MOV 


<?SSR.R2 


MOV 


R0,R4 


INC 


EATFLG 



ERRHRD ERRNO . T26RWN . PKTS5R 



30*; 



CKLOOP 



iLOOP IF SELECTED 



071752 



TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

jPICK UP XSTO 
(SET UP EXPECTED 
:SCT BOT BIT IN EXPECTED 
;D0E5 EXP - REC'O 
I BR, IF EQUAL COK) 
;BUMP COUNT 

;TAPE NOT AT BOT AFTER REWl.iO 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP ;LOOP IF SELECTED 

TRAP 
; RECORD SIZE 
; STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


<>6IT1.R2 


CMP 


F<1.R2 


BEQ 


40* 


INC 


FATFLG 



ERRHRD ERRNO . TS6B0T . EXPREC 



CKLOOP 

MOV 
MOV 



0256. .R3 
rREE,T26RB 



WRITE 0ATA,CVC-1.ACK COMMAND 



071750 



65$: 



MOV 0140005, T26PK; 

MOV OT26PK3,R4 

MOV R5,T26S/ 

MOV R4, TSDB(R5) 



jWRITE OATA.CVC-l.ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

:SFT UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 



sfim:>g 

CICLPI 



TRAP 


C$ERHRD 


.WORD 


653 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
654 
T26B0T 
EXPREC 

C$CLP1 



SEQ 0244 



TSV^ - HARDWARE. TtSlS 1 -a 
TE.ST 6: REREADS 
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6732 


06205? 


004 737 


016340 


6753 


062056 


016501 


000002 


6734 


062062 


012702 


000200 


6735 


062066 


020102 




6736 


062070 


001406 




6737 


062072 


005237 


002212 


6741 


062076 








062076 


104456 






062100 


001217 






062102 


005111 






0621C4 


012136 




6742 


062106 








062106 


104406 




6743 


062110 


012703 


001000 


6744 


062114 


013737 


003114 


6745 








6746 








6747 








6748 








6749 








6750 








6751 








6752 


062122 


012737 


161001 


6753 


062130 


012704 


071750 


6754 


062134 


010337 


071756 


6755 


062140 


010465 


000000 


6756 


062144 


004737 


016340 


6757 


062150 


016501 


000002 


6758 


062154 


012702 


100204 


6759 


062160 


020102 




6760 


062162 


001406 




6761 


062164 


005237 


002212 


6765 


062170 








062170 


104456 






062172 


001220 






062174 


074362 






062176 


012136 




6766 


062200 








062200 


104406 




6767 








6768 








6769 








6770 








6771 








6772 








6773 








6774 


062202 


013701 


071660 


6775 


062206 


010102 




6776 


062210 


052702 


040000 


6777 


062214 


020102 




6778 


062216 


001406 




6779 


062220 


005237 


002212 


6783 


062224 








062224 


104456 






062226 


001221 






062230 


074212 






062232 


015564 





JSR 


PC.wAirr 


MOV 


TSSH(R5),R1 


MOV 


V>SSR,R2 


CMP 


R1.R2 


BEQ 


75$ 


INC 


FATFLG 



ERRHRD ERRNO , WRTERR , Pl< TSSR 



75$ 



071752 



CKLOOP 

MOV 
MOV 



^512. .R3 
FREE,T26RB 



;WAiT roR ssR TO ^;et 






;GET ISSR CONTENTS 






;SET UP EXPECTED 






[ARE THEY EQUAL 






;RR. IF OK 






:i3UMP COUNT 






J TSSR INCORRECT AFTER 


WRITE DATA 




TRAP 


CJERHRD 




.WORD 


655 




.WORD 


WRTFRR 




.WORD 


PKTGSR 


J LOOP IF SELECTED 








TRAP 


C$CLP1 


i RECORD SIZE 






; STARTING READ BUFFER 


ADDRESS 





REREAD PREVIOUS. ACK.CVC'l.OPP'l 



071750 



165$ 



MOV 


*161001,T26PI<3 


MOV 


«T26PK3.R4 


MOV 


R3,T26SZ 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


«5SR!SC!BIT2,R2 


CMP 


R1,R2 


BEfJ 


170J 


INC 


FATFLG 



170$ 



ERRHRD ERRNO . T26TRL . PKTSSR 



CKLOOP 



REREAD PREVIOUS. ACK.CVC-l.OPP-1 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

BUMP COUNT 

TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 
jLOOP IF SELECTED 

TRAP 



656 

T26TRL 

PKTSSR 



C$CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

jGET MESSAGE BUFFER 

(SET UP EXPECTED 

:SET THE RLS BIT IN EXPECTED 

.;'?r- r:HEY eqmal 

sCR, X' . J'JmL call is WELL) 

;Bun-' c :mt 

'■ "- ' iTHif Rl ; BIT WAS NOT SET IN XSTO 

TRAP CJERHRD 

.WORD 65 7 
. .'^"') T261 OP 
. . m> EXPREC 



MOV 


T26V i + t),fU 


MOV 


R' ■ 


BIS 


14. f!^ 


CMP 


t^ -? 


BEQ 


180) 


INC 


FATfi^G 


ERRHRD 


ERR'JO.TSeLOP 



SECJ 0245 



TSV7 - HARDWrtRt: TESTS 1~8 
TEST 6: REREADS 



6 ''84 


062234 








062234 


104406 




6765 


062236 


013701 


071656 


6786 


062242 


012702 


000400 


6707 


062246 


020102 




6 788 


062250 


001406 




6789 


062252 


005237 


002212 


6793 


062256 








062256 


104456 






062260 


001222 






062262 


074274 






062264 


015564 




6794 


062266 








062266 


104406 




6795 


062270 


012703 


001000 


6796 


062274 


013/37 


003114 


6797 








679H 








6799 








6800 








6801 








6802 








6803 








6804 


062302 


012737 


141001 


6805 


062310 


012704 


071750 


6806 


062314 


010-V^7 


071756 


6807 


062320 


010465 


000000 


6808 


062324 


004737 


016340 


6809 


062330 


016501 


000002 


6810 


062334 


012702 


100204 


6811 


C62340 


020102 




6812 


062342 


001406 




6813 


062344 


005237 


002212 


6817 


Ou2350 








062350 


104456 






062352 


001223 






062354 


074362 






062356 


012136 




6818 


062360 








062360 


104406 




6819 








68?0 








6HL^1 








(^^2? 








6823 








6824 








6825 








6826 


062362 


013/01 


071660 


6827 


062366 


010102 




6828 


062370 


052702 


040000 


6829 


062374 


02010:"' 




6850 


062376 


001406 




6831 


062400 


005237 


002212 


6835 


062404 








0S24O4 


104456 






062406 


001224 






062410 


074212 





f^J 






MACRO M1200 23MAR-84 09:44 PAGE 77-3 



180$ 



CKLOOP 



MOV 


T26BFRf4.Rl 


MOV 


^>256. ,R2 


CMP 


R1.R2 


BRQ 


190$ 


INC 


FATFLG 



ERRHRD ERRNO . T26PBP . EXPREC 



TRAP CJCLPl 
PICK UP RESIDUAL BYTE COUNTER 
THIS SHOULD BE THE DIFff:RENCE 
rs THE DIFFERENCE CORRECT 
BR. IF CORRECT 
BUMP COUNT 
RBPCR NOT CORRECT 



190$ 



071752 



CKLOOP 

MOV 
MOV 



'.^AP 


C$ERHRD 


.WORD 


658 


,UORD 


T26PBP 


.WORD 


EXPREC 



V>512. ,R3 
FREE.T26RB 



:LOOP IF SELECTED 

TRAP C$CLP1 
{RECORD SIZE 
{STARTING READ BUFFER ADDRESS 



071750 



REREAD PREVIOUS. ACK,CVC-1.0PP=0 

REREAD PREVIOUS . ACK . CVC = 1 , OPP=0 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 
WAIT FOR 5SR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 
BUMP COUNT 
ERRHRD ERRNO. T26TRL.PKTSSR ;TSSR INCORRECT AFTER READ DATA 



MOV 


*141001.T26PK3 


MOV 


*T26PK3,R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDB(H5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


0SSR!SC!BIT2,R2 


CMP 


R1,R2 


BEQ 


270$ 


INC 


FATFL 



270$: CKLOOP 



jLOOP if SELECTED 



TRAP 


C$ERHRD 


.WORD 


659 


.WORD 


T26TRI 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



READ MESSAGE BL»FFER EXTENDED STATUS REGISTER ZERO (XSTO) 

GET MESSAGE BUFFER 

SET UP EXPECTED 

SET THE RLS BIT IN EXPECTED 

ARE THEV EQUAL 

BR, IF EQUAL (At I IS WELL ) 

BUMP COUNT 

THE RLL BIT WAS NOT SET IN XSTO 

TRAP C$LRHRD 
. WORD bSO 
.WORD T26L0P 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


^TT14.R2 


CMP 


R1.R2 


BE(J 


280$ 


INC 


FATFLG 



ERRHRD ERRNO. T26L0P.EXPPEC 



SEQ 0246 






• •840 



6P45 
»uS4b 



664 ; 

6848 



0634 U^ 
06.'414 
06*^414 
06^416 
06?4^c^ 
0624^6 
06^450 
06^4 34 
0624 54 
06.?4.^6 
06^^440 
06c^44c^ 
060444 
06<?444 
062446 
06^446 
06i?446 
062450 
062456 
062460 
062A64 



015564 

104406 
015/01 
012702 
020102 
00140S 

104456 
001224 
0/42 '4 
015564 

104406 



104405 

025727 
105402 
004 757 
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280$: CKi OOP 



0/1656 
000400 



2^0$: 



002 .'U' 00001/ 
0172/2 



Aoy 


T26nPR»4»Rl 


MOV 


0256. .R2 


CfiP 


R1.R2 


fUCJ 


2*^0$ 


fcRRHRD 


tRRN0.T26PUP,fcXPRlC 



999 J J 



CKLOOP 
KNOSLIB 



CHP 
HI 
JSR 



rAT» L(.,015. 
PC.CKUHOP 



.WOPO F/P'^K 

TPAP CiCLPl 

(PICK l^* Pfc'jIDUAL BtTL CO'J'^I^P 
THIS SHOUD BE. THt OU'f-'lHhHCh 
r. THh DIffhRtNCt CORRtCT 
BH, IF CORRECT 
iRBPCR NOT CORRFCT 

TRAP CIFRHPD 

. WORD 660 
.WORD T,:^PBt' 
.WORD rxPRFC 
jlODP IF SM.ECTED 

TRAP cjclp; 

|/>*>>>>>>>>> FND SI'S T E 5 T ^ . > > ^ > > ^ . . > .. 

I 10110: 

TRAP CJtbOB 
J IS KRROR CniJNT AT 25 
J PR. V LES;, THAN * 5 
jTRT TO OROP THt KHl^ 



':>EQ o;^4/ 



TSV 



H'\R[>wAm 'l.STS I 8 



TtST 6: RtRhADS 
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SF'-J Cje^P, 



6ass 

brt61 
686? 

6864 
6865 
6866 
6-367 
6868 
6869 
6870 
6871 
687i^ 



6875 
6874 
6875 
6876 
68^7 
6878 
6879 
6880 
6881 
6882 
6885 
6884 
6885 
6889 
6890 



6891 
6892 
6895 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6907 
6908 



062464 
062464 
062464 
062466 
0624 72 
062476 



062502 
■562506 
062510 
062514 
062516 
062516 
062520 
062522 
062524 
062526 



062540 
062544 
062546 
062552 

062^54 



104402 
004 737 
004 737 
004737 



004737 
105407 
005237 
010001 

104455 
001225 
003650 
012124 
015737 



062534 012704 



0^^4 73 7 
103407 
005237 
OlOOOl 



074540 
074632 
074674 



016064 
002212 



002172 
071630 



010/52 
002^12 



Tt'Sr 6. SUBTfrST / 



VtRIHtS THAT THE RERKAL) NtXT COHMANO WITH OPP'O 
AND SWB-0 OPERATES PROPFRl/r . THf TAPK IS ^ IRGT 
REUOUND AND THEN WRITTEN WITH A StRIES Of TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. TMf TAPt 
IS THEN REWOUND AGAIN. FOR cACH TEST RECORD. THt 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
NEXT COMMAND ISSUED. RESULTS (STATUS. DATA, 
ETC.) ARE VERIFIED. THE BYTE COLiNT ON EACH RERhAO 
NEXT COMMAND IS SET TO THE LENGTH Or THE EXPECTED 
RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



BGNSUe 



J5R 


PC,T26RE5T 


JSR 


PC.T26RT2 


JSR 


PC.T26RT3 



{^>>>>>>:>>>>> BEGIN SUBTEST >i>>>•»^>».»> 

T6. 7: 

TRAP C5BSUB 
(SET COMMAND PACKET 
J SET UP OTHER COMMAND PACKbT 
J SET UP OTHER COMMANO PACKET 



;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 



071650 20$: 



JSR 


PC.SOriNIT 


lOO INITIALIZE ON CONTROLLER 




BC5 


201 


iBR IF INIT WAS OK 




INC 


FATFLG 


;BUMP COUNT 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SEIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$tRDr 






.WORD 


661 






.WORD 


Sf lERR 






.WORD 


SFIMSG 


MOV 


UN1TN,T26D5W 


(SET UP UNIT NUMBER 





MOV 



0T26PACKET,R4 



iSI^ROUTir>*E NEEDS PACKET ADDRESS 



jWRIlE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 
J 



JSR PC. WRTCHR 

BCS 26i 

INC FATFLG 

MGv RO.Rl 

ERRHRD ERRNO.WRThSO.SI^ IMSd 



(ISSUE WRITE CHARACTERISTICS 
J BR. IF COMMANO ISSUED OK 
J BUMP COUNT 

(SAVE CONTENTS OT TSSR 
iWRITE CHAMACTtRIijTXSC FAILED 



TtSI 6: RliRtADS 



HACWU M1<P00 .'.^ MAR 84 09:44 PAtit 78 1 



SrO 0^4'V 





06^554 


104456 






06.?556 


001226 






06c^S60 


005054 






06.L^b62 


012124 




^909 


06.^S64 








062564 


104406 




rv^lO 








H-ni 








^'?12 








^915 








6914 








691^ 








6916 








6917 


062566 


004737 


011104 


6916 


062*372 


105413 




6919 


062574 


016i>01 


000002 


6920 


062600 


01c702 


000200 


69? 1 


0€>r.604 


010004 




h92?. 


CHi?f06 


005237 


00221? 


6926 


Oo-.:r>12 








(■■(./■: 1? 


104456 






Cj :6i.4 


001227 






.y>26l6 


73304 






'.S:/620 


012136 




69 '7 


' ; . r ? '^ 








06rtoa.. 


104406 


















6'^;-;' 








C'*^^- 








t ','■; 








v.^ r"i 


';'^2624 


013701 


071660 


f ■ : '.. ■. 


062630 


010102 




V .. .' 


062633 


052702 


000002 


r/.'.-.'t 


v-6c'636 


020102 




^'..■■■ . 


0:*?640 


001^06 




^ 9;0 


(h:»2642 


005237 


002212 


6SiA 


062646 








'.>>2646 


104456 






C62650 


001230 






(■t.?.tb^ 


073015 






0*^2654 


015564 




^;CA-, 


062656 








v,'*>2656 


104406 




./''^(. 


0C2660 


012703 


000400 


''.■ ■■* ,' 


062664 


013757 


003114 


c^4« 








6'>^- -.' 








■s9:^-i 








6^<!./ 








69' y\ 








' ' •" ! 1 


Of:.,V6 72 


012757 


140005 


t'-iUi 


062700 


012704 


071750 



071752 



0/1750 



26$: CKLOOP 



jl OOP rr Sf-l.FCTFD 



TRAP 
.WORD 
. WORD 
.WORD 

TRAP 



! ISSUE REWIND COMMAND TO SBLECTf.D TAPt DRIVE 
I 

• 4>A****44<*****«*******A**<fc****«*«**4*4>*****«* «*****«* 4****4.* ««*«*« 4, 

(CALL TAPE REWIND COMMAND 
J BR. IF NO PROBLEM 
iGtT TSSR 

iSET UP EXPECTED T^^SR 
;PACKET ADDRESS SET UP 
iBUMP COUNT 
ERRHRD ERRN0,T26RWN.PI<TSSR iREWlND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


T5SRCR5).R1 


MOV 


0SSR,R2 


MOV 


R0,R4 


INC 


F'ATFLG 



30$ 



CKLOOP 



jLOOP IF SELECTED 



TRAP 



;****4*«**«*«***«******«****************«**0*********4>****4>*****«** 

t 

;RtA0 MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

* 

• «*****«>*******4t***4********«****A**«******A**A**********«4.*4i*4k**** 

(PICK UP XSTO 

(SET UP EXPECTED 
tSET BOT BIT IN EXPECTED 
(DOES EXP - REC'O 
jBR. IK EQUAL COK) 
(BLIMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP jLOOP IF SELECTED 

TRAP 
iRECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


WIT1.R2 


CMP 


R1,R2 


BEO 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



«256. ,R5 
FREE . T26RB 



{***********«*****«**«*4i**********««**j|,4,««4,«4,«4,«*4i4,4,4,^«4,«4,4,4,4*^4^«4 
i 

(WRITE OATA.CVC-l.ACK COMMAND 
1 

J «4 A*4i 4i id* **** 4l 4l 4« 4i ************ A * *44i id 4i4i4l4i4^ ************ ****** ******** 



MOV «140005, T26PK3 
MOV <M26PK3,R4 



tWRITt DATA. CVC- LACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 



662 
WRTMSG 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


663 


.WORD 


T26RWN 


.WORD 


PKTS5R 



C$CLPI 



C$t RHRD 
664 
T26B0T 
EXPREC 

C$CLP1 



TSV MARDWAfU Tt.STS 1-ti 
T£Sr 6: WEREADS 



69S / 


06:^ 704 






t..9S.'^ 


06^704 


010300 




695V 


06;? 706 


004737 


017512 


6960 


06271^ 


010337 


071756 


09C^l 


C>62716 


010465 


000000 


v.%.? 


06? 72:^ 


004757 


016340 


t.06? 


06^7^6 


016501 


000002 


6^\S4 


06^^732 


012702 


000200 


6'>t^'_> 


062736 


020102 




f>966 


002740 


001406 




696? 


062742 


005237 


002212 


697X 


062746 








062 746 


104456 






062750 


001231 






062752 


005111 






062754 


012136 




697? 


062756 








062756 


104406 




b'^/S 


062760 


005723 




69/4 


062762 


022703 


000414 


697^) 


Of.2766 


001346 




:.9V6 


Otj2770 








062770 


104406 




^.97? 


062772 






6976 








69 .-'.^ 








69y() 








69ijl 








69li? 








69ftJ 








693^ 








6985 


0627 72 


004737 


011104 


69fl6 


062 "^76 


103413 




6987 


063000 


016501 


000002 


6968 


063004 


012702 


000200 


6909 


':VJ3010 


010004 




6S90 


063012 


005237 


002212 


6 99 A 


063016 








063016 


104456 






063020 


001232 






0(^3022 


073304 






063024 


012136 




699 rj 


063026 








063026 


104406 




fci'*4^i 








^99 7 








rW9a 








699'.' 








7000 








V'X)] 








f<K>r 








V003 


0( 3030 


013701 


071660 


7004 


063034 


010102 




700 ■:- 


063036 


052702 


000002 


7006 


063042 


020102 




700 ; 


063044 


001406 




vooe 


063046 


005237 


002212 
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65$: 



NOV 


R?,RO 


JSR 


PCMLLMfM 


MOV 


R3.T26S/ 


MOV 


R4,TS0BCR5) 


JSR 


PC.wAirr 


MOV 


TSSRCR5),R1 


MOV 


^SSR,R2 


CMP 


R1.R2 


BFU 


75$ 


INC 


KATrLG 



ERRHRP ERRNO.WRTERR.PKTSSR 



SET PATTERN IN CORRECT REGISTER 

fin. MEMORY WITH RECORD ^il/t 

SET UP RECORD SIZE IN PACKET 

IGSUE COMMAND 

WAIT FOR S*jR 10 SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF 01' 

BUMP COUfJT 

rsSR INCORRECT AFTER WRITE DATA 



75$ I 

80$: 
120$ 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 



LOOP ir SELECTED 



TRAP 


C$ERHRD 


.WORD 


665 


.WORD 


WRTERR 


.WORD 


PKTS3R 



CR3)* 
<>268. ,R3 
65$ 



TRAP 



;BUMP RECORD SIZE 

J END OF RECORD YET 

I BR. IE MORE RECORDS TO WRITE 

:LO0P IF SELECTED 

TRAP 



; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

■ 

J CALL TAPE REWIND COMMAND 
J BR. IF NO PROBLEM 
I GET TSSR 

iSET UP EXPECTED TSSR 
iPACKET ADDRESS SET UP 
iBl^lP COUNT 
ERRHRD ERRN0.T26RWN,PI<TSSR jREWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5).R1 


MOV 


*SSR,R2 


MOV 


R0.R4 


INC 


FATFLG 



130$: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 



IrEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
t 

;PICK UP XSTO 
J SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
DOES EXP • REC'D 
BR. IF EQUAL (OK) 
BUMP COUNT 



MOV 


T26BFR*6.R1 


MOV 


R1.R2 


BIS 


d6ITl,R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 



C$CLP1 



CJCLPl 



TRAP 


C$ERHRD 


.WORD 


666 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



SEQ 0250 



TtSr 6: REREADS 



''OIL' 


063052 








065052 


104456 






06^03-1 


001233 






OiV^Qbh 


073015 






063060 


015564 




'oi:^ 


06306P 








0;>3062 


104406 




;01A 


Cf>o064 


012737 


000400 


>0U> 


0S3072 


000420 




70^6 








'Oii' 








/OUJ 








~01^i 








'.■■(■;><' 








:'o,?i 








7c.\- 








7w;\^ 








7{ ,-4 


0<.3074 


012703 


000001 


7U.^S 


C»^3]00 


00473 7 


010556 


70.?5 


.>t>3.l04 


103413 




70^- ' 


063106 


016501 


000002 


"^O.'JQ 


063112 


012702 


000200 


70?9 


0C3116 


010004 




7070 


0^3I20 


005237 


002212 


/054 


0^3124 








063124 


104456 






063126 


001254 






0^^130 


072417 






063132 


015564 




V0,S'3 


063154 








0<;^'i134 


104406 




■^O'^-l, 


063136 


013705 


072002 


70. V/ 

1^ A v. 


063142 


013737 


003114 


7rAM 








.Trie 








V'-.'-n 








■'o:/ 








7r.'.., 








■< 0?'! 








?;'4-> 


o^:.:^i50 


012737 


141401 


7!.-^^ 


063156 


012704 


071750 


:'jA\' 


06316? 


010337 


071756 


/G'W: 


063166 


010465 


000000 


■/iy»v- 


'^^3172 


004737 


016340 


'0 > f 


053176 


016501 


000002 


^■)^i 


t.*65202 


012702 


000200 


/()'>"' 


06320t) 


020102 




/Ol..^ 


\'iy'S?lO 


001406 




Yl"'^ 


063r]2 


005237 


002212 


7050 


063216 








063216 


104456 






Ob'.iP.iO 


001235 






063222 


073640 






0^3c'24 


012136 




'^O'S'} 


0(.:-c26 
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F.RRHRD ERRNO , T26B0T . EXPRtC 



140S 



072002 



CKLOOP 

Mnv 

BR 



#256. ,T26RSZ 

150J 



;TAPE NOT AT BOT AFTBR RtWiND 

TRAP 
.UORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 

jIjTore start record size 

iSKiP THE SAPCE THIS TIME 



CJERHRD 
667 
T26B0T 
EXPREC 

C«CLP1 



ISSUE SPACE RECORDS COMMAND VALUE IN R5 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O-FORWARO 1-REVERSE 



145$ 



MOV 


«1,R3 


JSR 


PC. SPACE 


BCS 


150J 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO. T26SC .EXPREC 



1505 



071752 



CKLOOP 

MOV 
MOV 



; SPACE ONE RECORD PARAMETER 

I CALL SPACE ROUTINE 

I BR, IF NO PROBLEM WITH SPACE COMMAND 

iGET TSSR 

J SET UP EXPECTED TSSR 

;PACKET ADDRESS SET UP 

;BUMP COUNT 

jPOSITION CSPACE RECORDS) FAILED 

TRAP CIERHRO 

. WORD 668 
.WORD T26SC 
.WORD EXPREC 



T26RSZ,R3 
FREE.T26RB 



TRAP 
(RECORD SIZE 
J STARTING READ BUFFER ADDRESS 



CJCLPl 



REREREAD DATA.CVC-1. ACK COMMAND 



071750 



165$ 



MOV 


^>141401.T26PK3 


MOV 


#T26PK3.R4 


MOV 


R3,T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


CMP 


R1.R2 


6EU 


170$ 


INC 


FATFLG 



0fi3226 104406 



170$ 



ERRHRD ERRNO . T26WDC . PK TSSR 



CKLOOP 



(REREREAD OATA.CVC-1 . ACK COMMAND 

I SET UP R4 WITH PAC'<ET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

J ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

IBU^*P COUNT 

J TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 

. WORD 669 
.WORD T26WDC 
.WORD PKTSSR 

(LOOP IF SELECIED 

TRAP C$CLPi 



-jEQ 0251 



TSV7 M--.RnwARe: TtSTS i-S 
ThST o: ^EHeADS 



L 1' I 
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SfQ 0^S2 



7oe.c 

706.1 
7C6? 
706;. 
7CM 
70<)S 
7066 
70d"^ 

707i^ 



7075 

7074 
707:i 
707f. 
707/ 
70 ?H 
707-5 
70^' 
7ChA 
708? 

706 :. 



7094 
708S 
70fC' 
70a7 



0'^.>:p:i4 

JS.^244 

V ^?550 

; 6/.<?60 

063264 

■16:^270 
v6^r'70 

i.,r3r?74 

■./;:. :^;>76 

'Vj5300 
.. S/.S.>4 

Oo;'^no 

V ':"?il4 

ot.ss^o 

OS5330 
0S5336 



013 70? 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 

104456 
001236 
073062 
015564 

1C4406 
005724 
160204 
020403 
003.360 
005723 
010337 
022703 
001267 

104406 



104403 
023727 
103402 
004737 



003U4 
000400 



173$: 



002212 



180$: 



072002 
000410 



190$: 



002212 
017272 



000017 



MOV 
MOV 
SUB 
ADD 
CMP 
BFQ 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



999$: 



ENDSUB 



CMP 
BLO 
JSR 



rREE,R2 

R5.R4 

#256. .R4 

R2.R4 

(R4).R3 

180$ 

(R4),R1 

R3.R2 

FATFLG 

ERRNO , T26DTA , EXPREC 



TST 


CR4:). 


SUB 


R2,R4 


CMP 


R4.R3 


BNE 


173$ 


TST 


(R3)» 


MOV 


R3.T26RSZ 


CMP 


d264..R3 


SHE 


145$ 


CKLOOP 





FATFLG. fll5 

999$ 

PC.CKDROP 



i CURRENT BUFFER ADDRESS TO R2 
i CURRENT RECORD SIZE 
jFIRST LOCATION IN BUFFER 
(SET UP POINTER 
CHECK DATA READ (R3-DATA ALSO) 
BR. IF ALL IS WELL 
RLCO DATA 
(EXPECTED DATA 
jbUMP COUNT 
{DATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 
LOOP IF SELECTED 

TRAP 
BUMP TO NEXT LOCATION 
CORRECT RECORDS SIZE VALUE 
END Of RECORD YET 
BR. IF NOT AT END OK RECORD 
BUttP RECORD SIZE 
STORE PRESENT RECORD SIZE 
END OF RECORD YET 
BR. IF MORE RECORDS TO READ 
LOOP IF SELECTED 

TRAP 



C$FRHRD 
670 
T26DTA 
EXPREC 

C$CLP1 



>>>>>>>>>>>> 



END SUBTEST 
LlOlll: 

TRAP 
:IS ERROR CO'JNT AT 25 
jBR. if LESS THAN 25 
I TRY TO DROP THE UNIT 



C$CLP1 
>>>>>>>>>>>> 



C$ESU6 



T c: 



V- -i'-/U)W'Mi! Tt:STi; 1-6 
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ThbT ^: ^LRLAUS 

VOM 
7095 

:'09'. 

7v"^^'. 
7C0 7 

7.105 



710;^ 



7Uji 
7iO^* 

: 106 

7U>7 

710'^ 

711 :i 

71. J i 

7Ji:: 
71]:'. 
/I v: 

.'IJ > 
7120 



7i:)i 

71?.-: 
71;:/. 
7i;:.> 

7 1-""^ 

71:?' 

71 ij/ 
7 .1 ?>". 

7n'^> 

7u-^0 
7 1 .* 1 

7 1 .■^;? 
''i.- .^ 

71.>.' 



viv-o 



o(;:553c 
c.6:^'.ao 
<;^5544 

063350 



Of .^-S^.l 

>6336? 
063366 
063370 
i;63370 

Of.33^^ 
0036 V 4 

Ov..*A0O 



063412 
Ot.?41o 
06,'h4P0 
'"•6>4P4 
U6i'U*6 
^>*^34?6 
tih34 50 
^'654 32 

CV:?434 

.)' ;'-436 
063436 



104402 

004737 074540 

004737 074632 

004737 074674 



004737 016064 

103407 

005237 002212 

010001 

104455 

001237 
003650 
012124 
013737 002172 



Ob3406 012704 071630 



004737 010752 

103407 

005237 002212 

010001 

104456 
001240 
005054 
012124 

104406 



StQ 0253 



TEST 6, SUBTEST 8 

VERIFIES THAT THE RERLAD NEXT COMMAND WITH OPP 
AND SUB'l OPERATES PROPERl > . THE TpsT SEQUENCE IS 
THE SAME AS THAT USED IN SUBTEST 1, UUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



BGNSUe 



JSR 
JSR 
JSR 



PC,T26REST 

PC.T26RT? 

PC.T26RT3 



.>■>>>>>>>>>>> BEGIN SUBTEST >>..>.>>>>.>> 

T6.8: 

TRAP CJBSUB 

(SET COMMAND PACKET 

; SET UP OTHER COMMAND PACKET 

: SET UP OTHER COMMAND PACKET 



! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
* 



071650 20$ 



JSR 


PCSOFINIT 


;00 INITIALIZE ON CONTROLLER 




BCS 


20 J 


;BR IF TNIT WAS OK 




INC 


FATFLG 


I BUMP COUNT 




MOV 


RO.Rl 


jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiEROF 






.WORD 


671 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T26DSW 


jSET UP UNIT NUMBER 





MOV 



iSUBROUTINE NEEDS PACKET ADDRESS 



0T26PACKET.R4 
fc-RITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



26$: 



JSR PC.WRTCHR 

BCS 261 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO.WRTHSG. SFIMSG 



CKLOOP 



iISSLl WRITE CHARACTERISTICS 
iSR. IF COMMAND ISSUED OK 
iBLWP COUNT 

(SA^/E CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAllED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



CJFHMRD 
67;? 

WRTM5G 
SFIMSG 

CJCLPl 



TtSI 6: RtiREAUS 



" 1 / ' 








71 K^ 








71^*r 








':U\- 








n.'ih 








''iH' 


Oi->*>^^0 


004737 


01U04 


7:.4c; 


06.^';44 


103413 




"■;4-i 


0.;5'1'16 


016503 


000002 


^ \ !^0 


i:-.>4S.' 


O1P702 


000200 


^M 


0b:TaS6 


010004 




7l'> 


0(v^4uO 


005237 


002212 


71S6 


Co-;') on 








*io:^464 


104456 






vo.546'j 


001241 






06.M?0 


075304 






>H).M/.7 


012136 




7 IS 7 


/;<jM/4 








OoiJa74 


104406 




■'ISH 








7tS9 








7 too 








VVM 








716-' 








7H>.^ 








7 1,S'» 








7u.'^> 


(V.54/r, 


013/01 


071660 


7lf.n 


L-o-'-SO? 


010102 




/Kw 


CA'.StVi 


052702 


000002 


7.r,« 


Ob/.:jio 


020102 




7:'.6'^> 


(^rj'-f-i;,' 


001406 




7170 


o*^::.si4 


005237 


002212 


71Vn 


; ^-^'-r^o 








i:t)'''jo 


104456 






Oo,V^^? 


001242 






o<>;s^P4 


073015 






CnVi^'-j 


015564 




71 7*:- 


'V^.^r^zo 








J^ '^.^0 


104406 




71 .'C. 


'. ^ .^i»^j 


012703 


000400 


?: // 


06j556 


013737 


003114 


717^t 








7 ]■'■■' 








Via.- 








7iSf 








713^: 








.'16^ 








7 1 Ai; 








7lf'i^ 


iX)r'"^4 


012737 


150005 


7u;: 


OoT^^J 


012704 


071750 


7liJ7 


C>c 5536 






- ibh 


':>f>.-j';>:>'_i 


010300 




718* 


rc-.?'y>o 


004 737 


017512 


7 1 ^y^ ) 


OS"5Sf,4 


010337 


0/1756 


Vl'M. 


(''.;^''*/'o 


010465 


000000 


7 i '.*;■■ 


U'J'.^,'4 


004 7 37 


016540 


yvi6 


003600 


016S01 


000002 



I ' [ 
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! ISSUE REWIND COMMAND TO SELECTED TAPE Dr-<IVE 

;**A4Ljfc4i«4'4**4>4i4i4>'*i*********44LA4*******«A*** *************** 4> **+«««**« 

:CALL TAPE REWIND COMMAND 

(HR, IF NO PROBLEM 

;GET TrciR 

iSET UP tXPECTEO TSSR 

; PACKET ADDRESS SET UP 

;BUMP COUNT 

jREWIND NOT ACCEPTED 



071/52 



071750 



JSR 


PC, REWIND 


BCS 


30 J 


MOV 


TSSHCR5),R1 


MOV 


0SSR,R2 


MOV 


H0.R4 


INC 


FATrLG 



ERRHRD ERRNO , T25RWN , Pl< TSbW 



30 J 



CKLOOP 



jLOOP IF SELECTED 



TRAP 


CSERHRD 


.WORD 


6 7i 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

PICK UP XSTO 

SET UP EXPECTED 
SET SOT BIT IN EXPECTED 
DOES EXP - REC'D 
BR, IF EQUAL CDK) 
BUHP COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
,WOR0 
40J: CKLOOP jLOOP IF SELECTED 

TRAP 
•RECORD SIZE 
! STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6.R1 


MOV 


R1,R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


3EQ 


401 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T . EXPREC 



CKLOOP 

MOV 
MOV 



0256. ,R3 
FREE.T26RB 



WRITE OATA.CVC-l.ACK.SWB COMMAND 



C$CLP1 



CSERHRO 
674 
T26B0T 
EXPREC 

CtCLPl 



65^1 



MOV 


0150005. T26PK3 


MOV 


0T26PK3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PCWAIfF 


MOV 


TSSRCR5),Rl 



;WRITE OATA.CVC-l.ACK.SWB COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 
jFILL MEMORY WITH RECORD SIZE 
:SET UP RECORD SIZE IN PACKET 
J ISSUE. COMMAND 
(WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 



SEQ 0254 



"^' 



HAROwAin ThSTs 1-a 



Tt • \ 6: RfRFADr. 



V .OS 
71/'.' 



7:.'oi 

7^04 

7^0b 

7207 
720a 
7309 
7? 10 
7^11 

7^U3 

7.::'i 

7216 

/;n7 

y.ho 



7dtb 

7?26 
722 7 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7242 



7243 



063t0n 
06?fvi0 
0h56U? 

06o6,^J 
uf.:';^20 

Oi,*..(S2'-. 
0() U'.f>0 

o.-.Hf-.:'? 

0*r.,>fK34 
0»j3f-.'0 

'".•■.5^-2 
0636'' ^ 



0631^-1 ' 

06'^^ J .^ 

(''■'',. ' 
C ■>> \, 

0-5f>/2 
0636 74 
065676 
06d''00 
Oo3700 



063702 
063706 
063710 
063714 
063716 
063720 
C63724 
063724 
063726 
063730 
063732 
063734 

063734 



01.rV02 000200 

o<:oio2 

'JO 1406 

00S257 002212 

r044'36 
0C1243 

oo'>i:i 

0U--i:St 



COS 72 3 
0J27O.5 

00i3af'i 

10A406 



004 , . 7 
'.03413 
ul6'50? 

(;i;'/0'? 

t_ iO«X)4 
005237 

1044r6 
CD1244 
073304 
012136 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001245 
073015 
015564 

104406 



000414 



011104 

000002 
00020C 

002212 



071660 
000002 



002212 



MACRO M1200 23 MAH-H4 09:44 PAGt. 79 2 



HOV V?SSR.P2 

CliP H1,R2 

BFQ 75$ 

INC FATFLG 

ERRHRD ERRNO , WR TtRR . PK f'iSR 



75$ 



CKi nop 

TST 
CMP 
BNF 
CKLOOP 



(R3)* 
d268. .R3 
65$ 



J SET UP EXPfr.CTtD 

lARf-. THEY EQUAL 

I BR, IE OK 

I HUMP COUNT 

:TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRn 

.WORD 

.WORD 

.WORD 
jLOOP IK SELECTED 

TRAP 
iBUMP RECORD SIZE 
(END Of- RECORD TET 
jBR. IE MORE RECORDS TO WRITE 
jLOOP IF SELECTED 

TRAP 



80$: 
120$: 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

tGET TSSR 

iSET UP EXPECTED TSSR 

jPACKET ADDRESS SET UP 

;BUMP COUNT 

J REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSRCR5).R1 


MOV 


*SSR,R2 


MOV 


M0,R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN , PKTSSR 



130$ 



CKLOOP 



jLOGP IF StlECTED 



TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZlRO CXSTO) 

{4i444444>*'***«4'f 4>***4i***44<t'«.«4*****4>***4>4i*4'**«*««*«44*4 4*t.*4*4*«444i44 

;P1CK IJP XSTO 
iSET UP EXPECTED 
tSET BOT BIT IN EXPECTED 
jDOES EXP - REC'D 
I BR. IF EQUAL COK) 
;BUtiP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140C: CKLOOP jLOOP IF SELECTED 

TRAP 



nov 


T26BFR»6,R1 


MOV 


R1,R2 


BIS 


*eiTl R2 


CMP 


R1,R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO » T26B0T , tXPRbC 



6 '5 

WRTERR 

PKTSSR 

C$CLP1 



C$CLP1 



TRAP 


C$ERHRO 


.WORD 


676 


.WORD 


T26RWN 


. WORD 


PKTSSR 



CJCLPl 



C$ERHf?D 
677 
T261J0T 
EXPREC 

CJCLPl 



SEQ 0255 






TSV7 - HARDWARF: TtSTS 1-8 
TbST 6: RtRLADS 



7^44 
7?A^ 
7246 
7?.A7 

7?49 

7253 
^254 
7255 
7256 
7257 
7258 
7259 
7260 
7264 



7265 

7266 
7267 
7268 
7269 
-^270 
7271 
7272 
7273 
7rV4 
72/5 
7276 
72/7 
7278 
7279 
7280 
7281 
7282 
7283 
7234 
7288 



7289 

7290 
7291 
7292 
7295 
7294 
7295 
7296 



063736 
063744 



063746 
063752 
063756 
063760 
063764 
063770 
063772 
063776 
063776 
061000 
064002 
0640O4 
064006 
064006 
064010 
064014 



064022 
064030 
064034 
064040 
064044 
064050 
064054 
064060 
064062 
064064 
064070 
064070 
064072 
064074 
064C76 
064 ICO 
064100 
064102 
064106 
064110 
064114 
064116 
064120 
064122 



01275/ 
000420 



03P703 
Or47.^7 
103413 
016501 
012702 
010004 
005237 

104456 
001246 
072417 
015564 

104406 
013703 
013737 



012737 
012704 
010337 
010465 
0C4737 
016501 
012702 
020102 
001406 
005237 

10445C 
001247 
073640 
012136 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 



000001 
010556 

000002 
000200 

002212 



072002 
003114 



151401 
071750 
071756 
000000 
016340 
000002 
000200 



00L'2ia 



003114 
000400 
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SFQ 0256 



000400 0V200i 



MOV ft256. ,T26RS/ 

BR 150 J 



i START RECORD GX/t. 

J SKIP SAPCr THIS TIMF. 



ISSUE SPACE RF.COHDS COMMAND VALUF. IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-rORWARD 1-REVERSE 



145$ 



MOV 


tl.RJ 


J5R 


PC. SPACE 


BCS 


150i 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRO ERRNO . T26SC . EXPREC 



150$ 



071752 



CKLOOP 

MOV 
MOV 



SPACE o.. iCORD PARAMETER 

CALL SPACt-. ROUTINE 

BR. IF NO PROBLEM WITH SPACE COMMAND 

GET TSSR 

SET UP EXPECTED TSSR 

PACKET ADDRESS SF.T UP 

BUMP COl/NT 

POSITION (SPACE RECORDS) FAILED 

TRAP CJERHRD 

.WO«D 678 
.WORD T26SC 
.WORD EXPREC 



T26RSZ,ft3 
FREE,T26RP 



TRAP 
iHFCORD SIZF 
i STARTING READ BUFFER ADDRESS 



C$CLP1 



REREAD DATA, ACK.CVC-1. sue COMMAND 



071750 



165$ 



MOV 


*1514C1,T26PI<3 


MOV 


«r26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4.TS06(R5") 


JSR 


PC.WAITF 


MOV 


T5SRCR5).H1 


MOV 


^SSR,R2 


CMP 


R1.R2 


BEQ 


170* 


INC 


FATKLG 



3 70$ 



X73$ 



ERRHRD ERRNO . T26WDC . PKTSSR 



CKLOOP 



MOV 


FREE.R2 


MOV 


R3.R4 


SUB 


«256. ,R4 


ADD 


R2.R4 


CMP 


CR4"),R3 


BEQ 


180$ 


MOV 


(R4).R1 



: REREAD DATA. ACK.CVC-1 . SWe COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

[SET l^ RECORD SIZE IN PACKET 

;iSSUf: COMMAND 

(WAIT FOR 5SR TO SET 

jGET TSSR CONTENTS 

J SET UP EXPECTED 

I ARE THEY EQUAL 

;BR. IF OK 

tBUM»^ COUNT 

iTSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 679 
.WORD T26WDC 
.WORD PKTS:^ 
[LOOP IF SELECTED 

TRAP CiCLPl 
i CURRENT BUFFER ADDRESS TO R2 
(CURRENT RECORD SIZE 
FIRST LOCATION IN BUFFER 
SET UP POINTER 

CHECK DATA READ (RS-DATA ALSO) 
BR. IF ALL IS WELL 
RECD DATA 






TSV; - HAROWARK TtSTS 1-0 
ThST 6: RtRtADbi 



''tACRQ M1?00 .'? MAR 4 O^-^lfl PAUt /'^ A 



7?97 
7302 



7:<03 

7304 
7 505 
7306 
7307 
7308 
7309 
7310 
7311 
7312 

7313 



7314 
7315 
7316 
7317 



064124 
064126 
064132 
064132 
064134 
0643 36 
064140 
064142 
064142 
064144 
064146 
064150 
064152 
064154 
064156 
064162 
064166 
064170 
064170 
064172 
064172 
064172 
064174 
064202 
064204 
064210 



010302 
005237 

104456 
001250 
073062 
015564 

104406 
005724 
160204 
020403 
001360 
005723 
010337 
022703 
001267 

104406 



002212 



160$ 



072002 
000410 



190$ 



104403 

023727 002212 

103402 

004737 017272 



000017 



BNOSUB 



CMP 

BLO 
JSR 



9995 



rATKLG,*15. 

999$ 

PC.CKDROP 



i STORE RECORD SIZE 
;F_ND Of" RECORD rET 
J BR. IF MORF RECORDS 
iLOOP IF SELECTED 



TO WPITE 



TRAP 



"^.FQ 02=j7 



MOV 


R?,R2 




jFXPFCTED DATA 




INC 


FATFLG 




:nUMP COUNT 




ERRHRD 


ERRN0,T26DTA 


EXPREC 


J DATA READ NOT « WRITTEN 

TRPP 
. WORD 
.WORD 
.WORD 


c$e:RHRr 

680 

T260TA 

FXPRFC 


CKLOOP 






iLOOP IF SELECTED 

TRAP 


C$CLP1 


TST 


CR4). 




jBUMP TO NEXT LOCATION 




sue 


R2.R4 




: CORRECT RECORDS SIZE VALUE 




CMP 


R4.R3 




I END OF RECORD YET 




BNE 


173$ 




iBR. IF NOT AT END OF RECORD 




TST 


CR3)* 




iBUMP RECORD SIZE 





>>>>>>>>>>>> 



IS 

BR. 

TRy 



END SUBTEST 
L10112: 

TRAP 
ERROR COUNT AT 25 



C$CLP1 



>■>>>>>>>>>■> 



CSESUB 



IF 
TO 



LESS 
DROP 



THAN 25 
THE UNIT 



TSV/ HAROW/UH. TtSTS 1-3 

TEST 6: REREADS 

7519 
73.-^0 
7J21 
752? 
7523 
7524 
7525 
7526 
7527 
7526 
'529 
7550 
7331 
7532 
7555 
7534 
7535 
7556 
7557 
7538 
7339 
7340 
7541 
7542 
7543 
7544 
7345 
7546 
7347 
7348 
7549 
7350 
7351 
7352 
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Sfr'Q 0258 



TF.51 6. SUBTEST 9 

VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-1 
(READ FORWARD, SPACE REVERSE) AND SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTe:N 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPF). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD NEXT COMMAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD. SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



7553 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 
7362 
7565 
7364 
7365 
7366 
7370 
7371 



7372 



064210 
064210 
064210 
064212 
064216 
064222 
064226 



104402 

004737 074540 

005037 071776 

004737 074632 

004737 074674 



BGNSUB ;>>>iiv>-»i>>> BEGIN SUBTEST >>>>■•>>>>>>> 

T6.9: 

TRAP C$BSUe 
iSET COMMAND PACKET 
tCLEAR TAPE RECORD COUNTER 
;SET UP OTHER COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



J5R 


PC.T26REST 


CLH 


T26CNT 


JSR 


PC,T26RT2 


JSR 


PC.T26RT3 



064232 
064236 
064240 
064244 
064246 
064246 
064250 
064252 
064254 
064256 



004737 016064 

103407 

005237 002212 

010001 

104455 
001251 
005650 
012124 
013757 002172 



071650 20 



JSR PC.SOrlNIT 

BCS 20$ 

TNC FATFLG 

MOV RO.Rl 

ERRDF ERRNO . SFIERR , SFIMSG 



MOV UNITN,T2bDSW 



iDO INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 
BUMP COUNT 

CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
-WORD 
.WORD 
,WURD 
iSET UP UNIT NUMBEP 



C$FR[)F 
6H1 

SFILRR 
SFIMSG 



TSV7 - HARDWARE TtSTS 1-8 
TtST 6: REREADS 
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PAGt SO-1 



7375 
7574 
7375 

Ihll 
7378 
7379 
7580 
7381 
7382 
/383 
7384 
7388 
7389 



739r 

77 91 

7:9P 

7J95 
7394 
7395 
7396 
7397 
7398 
7399 
7400 
7401 
7402 
7403 
7407 



7408 

7409 
7410 
7411 
74 IP 
7413 
7414 
7415 
/416 
7417 
7418 
7419 
7420 
74? I 

V4i?:> 



064264 012704 071650 



064270 
064274 
064276 
064302 
064304 
064304 
064306 
J64510 
064312 
064314 
064314 



004737 010752 

103407 

005237 002212 

010001 

104456 
001252 
005054 
012124 

104406 



064316 
064?.22 
064324 
064330 
064334 
064336 
064342 
064342 
064544 
064346 
0643'50 
064352 
064352 



064 3S^ 
064360 
064362 
064 366 
064370 
064372 
064376 
064376 
064400 
064402 



013701 
01010? 
052702 
020102 
001406 
0052^7 

10445t 
001254 
07301S 



011104 



000002 
000200 



004737 
103413 
016501 
012702 
010004 
005237 002212 

104456 
001253 
073304 
012136 

104406 



0/1060 
000002 



002212 



StO 0259 



MOV ^/T26PACl<t:T.R4 j SUBROUTINE NEEDS PACKET ADDRESS 

WRITE CHARACTERISTICS COMMAND CCALl. TO WRTCHR) 



2c$: 



JSR PC, WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIHSG 



CKLOOP 



ISSUE WRITE CHARACTERISTICS 
BR. If- COMMAND ISSUED OK 
BUMP COUNT 

SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
;L00P IF SELECTED 

TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

:GLT TSSR 

;SET UP EXPECTED TSSR 

I PACKET ADDRESS SET UP 

;BUMP COUNT 

J REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSRCR5),R1 


MOV 


dSSR,R2 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN , PK TSSR 



30$ 



CKLOOP 



;L00P IF SELECTED 



TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

4i444*-f*^*****44>***** ****** *4i*tk4>«44i4'****4> ****** **4****«**4l4i + *44i*4i«* 

PICK UP XSTO 
SET UP EXPECTED 
SET SOT BIT IN EXPECTED 
DOES EXP - REC D 
BR, IF EQtJm. COK) 
BUMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
. WORD 



MOV 


T26BFR»6.Rl 


MOV 


R1.R2 


BIS 


*0IT1.R2 


CMP 


R1.R2 


BtO 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



C$ERHRD 
682 

WRTMSG 
SFIMSG 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


685 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$tHHRD 

b84 

T26B0T 



i'.'. 



TtST 6: m.RtADS 
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74. > 
74^; 

.'4^:^ 

'4^0 
'4? I 

•4? 5 
^4 54 
74 ?S 
74 56 
7437 
7458 
7459 
7440 
7441 
7442 
7445 
7444 
7445 
744ft 
744 7 
7448 
7452 



7453 

7454 

7455 
7456 
■'457 
7458 
7459 
7460 
7401 
7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
74/0 
7471 
7475 



7476 



064404 
064406 
064406 
0^4410 
064414 



064422 
064430 
064434 
0644 54 
064440 
064446 
064454 
064460 
064464 
064470 
0644 74 
064476 
064500 
064504 
064504 
064506 
064510 
064512 
064514 
064514 
064516 
064520 
064524 
064526 
064550 
064530 



064554 
064540 
064542 
064546 
064550 
064554 
064554 
064556 
064560 
064562 
064564 
064 564 



015S64 

1044O^ 

012 703 000400 

013737 005114 



012757 
012704 

010537 
013777 
062757 
010465 
004757 
016501 
012702 
020102 
001406 
005237 

104456 
001255 
005111 
012156 

104406 
005725 
022705 
001401 
000742 



004757 
105411 
016501 
0100O4 
005257 

104456 
001256 
075504 
012156 

104406 



40J; 



0V1/S2 



CKl OOP 

MOV 
MOV 



0256. .R5 
rRKt ,T.'6RB 



M OOP n SKI FCIFT) 



iRI-CORD Sl/t 

jMARIINC. WR[Tf- HUMKR ADDRt, 'jS 







SFO 0.^60 


.WOP 'J 


K ypt'{- C 




TRAP 


CJCLPl 





IwRITFl DATA.CVC 'l.ACK COMMAND 



{ «4<**f + 



14000'"^ 
71750 

071756 
071776 
000001 
000000 
016540 
000002 
000200 



002212 



000414 



005037 0717 76 



011104 
000002 
002212 



071750 



U6446 
071"'76 



65$ 



MOV 


#140005, T26PK5 


MOV 


6T26PK5,R4 


MOV 


R5,T?6SZ 


MOV 


T26CNT. STREP 


ADD 


«1,T26CNT 


MOV 


R4,T50B(R5) 


JSR 


PC.WAITF 


MOV 


TS5RCR5).R1 


MOV 


«SSR,R2 


CMP 


R1.R2 


BEQ 


751 


INC 


rATFLG 



75» 



ERRHRD ERRNO.WRTERR.PKTiiSR 



CKLOOP 



TST 


(R5). 


CMP 


0268. .R3 


BEQ 


1201 


BR 


651 



120$ 



CLR 



T26CNT 



iWRITt DATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD lil/E IN PACKET 

[MOVE TAPE RECORD NUMBER To BUVP ER 

iNUMBER REAOr TOR NEXT RECORD 

I ISSUE COMMAND 

iWAXT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTFD 

I ARE THEY EQUAL 

I BR, IF OK 

I BUMP COUNT 

iTSSR INCORRECT AFTER REREAD DATA 

TRAP CIERHRD 

.WORD feSb 
.WORD WRTERR 
.WORD PKTSSR 

;' OOP IF SELECTED 

TRAP C$CLP1 

iBUMP THE RECORD SIZE 

JMAXIHUM SIZE YET 

(BR, IF AT EW OF WRITE SEQUENCE 

IWRITE MORE REC0WD5 

I SET RECORD COUNTER BACK TO ZERO 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



1301: CKLOOP 



JSR 


PC.REUINO 


tCALL TAPE REWIND COMMAND 




BCS 


1501 


iBR, IF NO PROBLEM 




MOV 


TSSR(R5),R1 


iGET TSSR 




MOV 


R0.R4 


(PACKET ADDRESS SET UP 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRN0#T26RWN.PKTSSR 


IREWINO NOT ACCEPTED 








TRAP 


C$fRHRO 






. WO'^D 


686 






.WORD 


12^RW^ 






.WORD 


PKTS*^R 



ILOUP IF' S£L&CttD 



TRAP 



CiCLPl 



TSV HAROwARf USTS 1 a 
TtST o: RfcRbADS 
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>f ^J O^^.l 



747; 








74 7t^ 








74 V'^ 








7480 








"481 








748*^ 








7485 








7484 


064566 


013701 


071660 


■'485 


064572 


010102 




'48<:> 


064574 


052702 


000002 


?487 


064600 


020102 




7488 


064602 


001406 




7489 


064604 


005237 


002212 


7493 


064610 








064610 


104456 






064612 


001257 






064614 


073015 






064616 


015564 




7494 


064620 








064620 


104406 




7495 


064622 


012757 


000400 


7496 


064630 


000420 




7497 








;499 








7499 








7500 








7501 








7502 








7503 








7504 








7505 


064652 


012703 


000001 


7506 


064636 


004737 


010556 


7507 


064642 


103413 




7508 


064644 


016501 


000002 


7509 


064650 


012702 


000200 


7510 


064654 


01000< 




7511 


064656 


005237 


C02212 


7515 


064662 








064662 


104456 






064664 


001260 






064666 


072417 






064670 


012136 




7516 


0646 72 








064672 


104406 




7517 


064674 


013703 


072002 


7518 


064700 


013737 


003114 


7519 








75?0 








75P1 








752^ 








7525 








75^4 








7525 








7526 


06-1706 


012757 


161401 


7527 


064714 


012/04 


on/50 


7528 


064 720 


010557 


0/1 /56 


7529 


064724 


010465 


000000 



072002 



071750 



IrFAD M( SSAwt OUrFtR LXTt.NOrD STATUfj RKUSTtR /^ RO tXSTO) 
I 

iPICK UP XSTO 
iStT UP ExPFXTfD 
iSKT BOr BIT IN CXPKCTED 
lOOES tXP - REC'D 
(BR. ir tQUAL COK) 
(BUMP COUNT 

(TAPE NOT AT HOT AFTER REWIND 

TRAP 
.UORD 
.WORD 
.WORD 
135$: CKLOOP jl OOP IF SELECTED 

TRAP 
(STARTING RFCORD SIZE 
tSKIP OVER THE SAPCE THI^ TIME 



MOV 


T26BFR»6,ttl 


MOV 


R1.R2 


Bi:, 


*fliri.R2 


CMP 


RI.R2 


BFQ 


155» 


INC 


FATFLG 



ERRHRD ERRNO. T26B0T .tXPREC 



CKLOOP 

MOV 
BR 



0256. ,T26RS/ 
140$ 



ClfcRHRO 

687 

T26B0T 

EXPREC 

C$CLP1 



I 

iIS5UE SPACE RECORDS COMMAND VALUE IN R3 SETS NUMBER OF RECORDS 
(BIT 15 SETS DIRECTION - 0-FORUARD 1 -REVERSE 



1 



132$i 



MOV 


♦000001, R5 


JSR 


PC. SPACE 


BCS 


140» 


MOV 


TSSR(R5).R1 


MOV 


*SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO , T26SC , PKTSSR 



(SET UP SPACE COMMAND CI FORWARDS 

;CALL SPACE ROUTINE 

(BR, IF NO TROUBLE 

(GET TSSR 

(SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

(BUMP COUNT 

(SPACE (FORWARD) FAILED 



140J 



071752 150» 



CKl OOP 

MOV 
MOV 



TRAP 


CIEHHRD 


.WORD 


688 


.WORD 


T265C 


.WCRO 


PKTSSR 



T26RS/.R5 
FREE . T26RB 



(LOOP IF SELECTED 

TRAP 
(RECORD SI/E 
(STARTING READ BUFFER ADDRESS 



CJCLPl 



[ 

(REREAD DATA.CVC-l.ACK. OPP COMMAND 
( 



MOV 0161401. T26PK3 

I6bl! MOV '»T26PK5.R4 

MOV 05.T26S/ 

MOV R4.TSDBtR5) 



{REREAD DATA.CVC-l.ACK, OPP COMMAND 
(SET UP R4 WITH PACKET ADO'^ESS 
(bET uo RECORD SIZE IN PACKET 
(ISSUE COMMAND 



I-)' 



rtST 6: RHREAOS 



■•lACnO MU\)0 ."■ MAM m O'h^O PAlit HO A 



75^0 


064 730 


00475/ 


016340 


7551 


064 754 


016501 


00000.' 


7^52 


064 740 


012702 


000200 


7r5i5 


064 744 


020102 




'554 


064 746 


001406 




'55'j 


064 V50 


005237 


002212 


"559 


064 754 








064 754 


10445<^ 






064 756 


001261 






064 760 


072225 






064 762 


012136 




7540 


064 764 








064764 


104406 




7541 


064766 


017701 


11612.* 


7bA2 


064772 


015702 


071776 


7543 


064 776 


020102 




7544 


065000 


001406 




7545 


065002 


005237 


002212 


7549 


065006 








065006 


104456 






065010 


001262 






065012 


072006 






065014 


015564 




7550 


005016 








065016 


104406 




Vi51 


065020 


062737 


000001 


7552 


065026 


005723 




755? 


065030 


010337 


072002 


^554 


065034 


022/03 


000412 


7555 


065040 


C01402 




75t>b 


065042 


000137 


064632 


7557 


065^046 






7558 


065046 
065046 








065046 


104403 




•'ssg 


065050 


023727 


002212 


7560 


065056 


103402 




7561 


065060 


004737 


017272 


7562 


065064 







170$; 



190$: CKLOOP 



071776 



200$: 



000017 



999 1: 



ENDSUe 



8L0 
JSR 



SFCi 0262 



JSR 


PCwAirr 






J WAIT rOH SSR TO M: T 






MOV 


TSSRCR5).R1 






i(,FT rSSR CONTF.NTS 






MOV 


'•S5R.R2 






iStT UP exPFCTFO 






CMP 


Rl,^*2 






(ARE THEr EUUAL 






LU(3 


170$ 






lOR. IF OK 






INC 


KATfl.C) 






J BUMP COUNT 






PRRHRO 


FRRN0,T26RRr 


, PK T 


.';r 


jT^jSR incorrect AFTER REREAD DATA 












TRAP 


CiERHPD 












.WORD 


689 












. WORD 


T26RRt 












.WORD 


PkTOjP 


CKLOOP 








;l-OOP XF ^,H.ECTEO 


TRAP 


C$CI_P1 


MOV 


SfRF.t.Pl 






;FIRST WORD F«or- 


READ 


BUFFER 


MOV 


T26CNT.R2 






iSET UP EXPECTED 






cnp 


R1.R2 






ilS TAPE POSITION CORRECT 




BEQ 


190$ 






;KEEP GOING PO^iTTION OK 






INC 


TATfLG 






(BUMP COUN^ 






feRRHRD 


ERRN0.T26WNG 


.EXPREC 


J TAPE POSITION INCORRECT 
















TRAP 


C$ERHRD 












.WORD 


690 












.WORD 


T26WNG 












.WORD 


EXPREC 



ADD 


*1,T26CNT 


TST 


(R3)* 


MOV 


R3.T26RSZ 


CMP 


*266. .R5 


BEQ 


200$ 


JMP 


I6di 



TRAP 
I BUMP TAPE RECORD COUNTER 
jNEXT RECORD SIZE 
iSTORE RECORD SIZE 
jAT MAX SIZE YET 
jBR, IF AT END OF THE SUBTEST 
jKEEP GOING MORE RECORDS 



C$CLP1 



FATFLG.015 

999$ 

PC.CKDROP 



.•»>>>>>>^>>>> END SUBTEST 

L10113: 

TRAP 
IS ERROR COUNT AT 25 
BP. IF LESS THAN 25 
TKr TO DROP THE UNIT 



>>>>>>>>>■»■*> 



C$ESUB 



TSV7 - HAROWARK TbSTS 1 « 

TtST 6: RfcREADS 

7564 

7fS66 
7567 

-570 
V-71 
^57c' 

'575 

?574 
V575 
7576 
757r 
7578 
7579 



7580 
7581 
7582 
7583 
7584 
7585 
7586 
7567 
7588 
7589 
7590 
7591 
7592 
7593 
7597 
7598 



7599 
7600 
760 i 
7602 
7603 
7604 
7605 
7606 
7607 
7606 
7609 
7610 
7611 
7615 
7616 



065064 
065064 
065064 
065066 
065072 
065076 
065102 



104402 

004737 074540 

005037 071776 

004737 074632 

004737 074674 



065106 
065112 
065114 
065120 
065122 
065122 
065124 
065126 
065130 
065132 



004737 016064 

103407 

005237 002212 

010001 

1(')4455 
001263 
003650 
012124 
015737 002172 



065140 012704 071630 



065144 004737 010752 

065150 103407 

065152 005237 002212 

065156 010001 
065160 

065160 101456 

065162 001264 

065164 005054 

065166 012124 
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StQ 0262 



J 



rt^ST 6, suBitsr lo 

VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-l 
AND SWB-l OPERATED PROPERLY. THE TF^T SEQUENCE IS 
THE 5AMF THAT IS USED IN SUBTEST 3. BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



BGNSU6 i>i>i>>>>^^>> BEGIN SUBTEST >>•>>•.>>>> ^ > > 

T6.10: 

TRAP C5BSUB 
[SET COMMAND PACKET 
(CLEAR TAPE RECORD COUNTER 
tSET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 

issue CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 



JSR 


PC.T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC.T26RT3 



071^50 20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


iBUriP COUNT 




MOV 


RO.Rl 


jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSCi 


; FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


691 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T260SW 


jSET UP UNIT NUMBER 





MOV 



tfT26PACKET.R4 



(SUBROUTINE NEEDS PACKET ADDRESS 



• ****4i«4.*****A*«******4*****««*««**«««4««44,4i««*«44,«44i4i4,4i4,^4,4,«44,«^4,4 



I 



WHITE CHARACTERISTICS COMMAND (CALL TO WRTCHR^ 



JSR PC.WRTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO.WRTMSG. SFIMSG 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
692 

WRTMSG 
SFIMSG 



"■ t. 



TSVr ■ HARDWAHt. Tt^STS 18 
TEST 6: REREADS 
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7617 


065170 








065170 


104406 




7618 








7619 








7620 








7621 








7622 








7623 








■^624 








^625 


065172 


00^737 


011104 


7626 


065176 


016501 


000002 


7627 


065202 


012702 


000200 


7628 


065206 


103407 




7629 


065210 


010004 




76SO 


065212 


005237 


002212 


7634 


065216 








065216 


104456 






065220 


001265 






065222 


073304 






065224 


012136 




7655 


065226 








065226 


104406 




7636 








7637 








7638 








7639 








7640 








7641 








7642 








7643 


065230 


013701 


071660 


7644 


065234 


010102 




7645 


065236 


052702 


000002 


7646 


065242 


020' 02 




7647 


065244 


001406 




7648 


065246 


005237 


002212 


7652 


065252 








065252 


104456 






065254 


001266 






065256 


073015 






065260 


015564 




7653 


065262 








065262 


104406 




765A 


065264 


01?703 


00C400 


765S 
7656 
7657 


065270 


013737 


003114 071752 








7658 








7659 








7660 








7661 








7662 








7663 


065276 


012737 


140005 071750 


7664 


065304 


012704 


071750 


7665 


065310 






7666 


065510 


010337 


0/1 'Sft 


7667 


065314 


01377/ 


071. ^0 115572 


7668 


065322 


062737 


000001 071776 



26$: 



CKl.OOP 



iLOOP IF SELECTFO 



rPAP 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J CALL TAPE REWIND COMMAND 

iGET TSSR 

jSET UP EXPECTED TSSR 

;BR. IF NO PROBLEM 

;PACKET ADDRESS SET UP 

(BUMP COUNT 

jREWINU NOT ACCEPTED 



JSR 


PC, REWIND 


MOV 


TSSR(R5),R1 


MOV 


^?SSR,R2 


BCS 


30* 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRN0,T26RWN,PI<TSSR 



30$ 



CKLOOP 



;L0OP IF SELECTED 



TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

iPICK UP XSTO 
;SET UP EXPECTED 
J SET eOT BIT IN EXPECTED 
I DOES EXP • REC'D 
;BR. IF EQUAL COK) 
iBUnP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$; CKLOOP (LOOP IF SELECTED 

TRAP 
I RECORD SIZE 
i STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6.R1 


MOV 


R1.R2 


BIS 


<«IT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO . T26B0T , EXPREC 



CKLOOP 

MOV 

MOV 



*256. ,R3 
FREE.T26RB 



****************** A*4**«******«*4L*44i**«**4«*4>*4>***4i«*4>f«4'l>*4i*4i*4i** 

WRITE DATA.CVC-l.ACK COMMAND 

j*«*4i**4i**<«***^i^******«***** »*«<|i4t«4i*«««4i*************** ************ 



65$i 



MOV <>140005.T26PK3 

MOV 0T26PK3,R4 

MOV R3,T26SZ 

MOV T26CNT.5IFREE 

ADD «1.T26CNT 



SEQ 0264 



CSCLPl 



TRAP 


CJERHRD 


.WORD 


693 


.WORD 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
694 
T26B0T 
EXPREC 

C$CLP1 



(WRITE DATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET AODPESS 

tSET UP RECORD SIZE IN PACKET 
(MOVE TAPE RECORD NUMBER TO BUFFER 
(NUMBER READY FOR NEXT RECORD 



TSV/ - HARDWARt TtSTS 1-8 
TEST 6; REREADS 



7669 
7670 
7671 
7672 
7673 
7674 
76 7b 
7679 



7680 

7681 
7682 
7685 
7684 
7685 
7686 
7687 
7688 
7689 
7690 
7691 
7692 
7693 
7694 
7695 
7696 
7697 
7698 
7702 



7703 

7704 
7705 
7706 
7707 
7 708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7720 



065330 
065331 
065340 
065344 
065350 
065352 
065354 
065360 
065360 
065362 
065364 
065366 
065370 
065370 
065372 
065374 
065400 
065402 
065404 
065404 



010465 
004 73 7 
016501 
012702 
020102 
001406 
005237 

104456 
001267 
005111 



104406 
005723 
022705 
0014C1 
000742 



065410 
065414 
065416 
0654;i2 
065424 
065430 
065430 
065432 
065434 
065436 
065440 
065440 



004737 
103411 
016501 
010004 
005237 

104456 
001270 
073304 
012136 

104406 



065442 
065446 

065450 
065454 
065456 
065460 
065464 
065464 
065466 
065470 
065472 



013701 
010102 
052702 
'V0102 
CO 1406 
005237 

104456 
001271 
0^3015 
015564 



000000 
016340 
000002 
000200 



002212 



000414 



005037 071776 



011104 
000002 
002212 



071660 
00OOC2 

002212 
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MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSRCR5),R1 

MOV V>SSR,R2 

CMP R1.R2 

BF.Q 75 J 

INC FATFLG 

ERRHRD ERRNO.WRTERR.PKTSSR 



SEQ 0265 



75$ 



CK'LOOP 



TST 


CR3)* 


CMP 


r/268. ,R3 


BEQ 


120$ 


BR 


651 



120$ 



CLR 



; ISSUE COMMAND 
;WAIT rOR SSR TO SET 
(GET TSSR CONTENTS 
iSET UP EXPECTED 

tArk they equal 

;BR, IF OK 

;BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 695 
.WORD WRTERR 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLP1 

iBUMP THE RECORD SI/E 

;MAXIMUM SIZE YET 

I BR, IF AT END OF WRITE SEQUENCE 

; WRITE MORE RECORDS 

;SET RECORD COUNTER BACK TO ZERO 



T26CNT 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIMO COMMAND 

;BR. ir NO PROBLEM 

jGET TSSR 

J PACKET ADDRESS SET UP 

:BUMP COUNT 

(REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


TSSRCR5),R1 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO . T26RWN . PKTSbR 



130$ 



CKLOOP 



;LOOP IF SELECTED 



TRAP 


C»ERHRO 


.WORD 


696 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



I 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

jPICK UP XSTO 
I SET UP ilXPECTED 
;SET BOT BIT IN EXPECTED 
tOOES EXP - REC'D 
I OR, IF EQUAL COK) 
jBUMP COUNT 

J TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
,WORO 



MOV 


T?6BFR*6,R1 


MOV 


F1.R2 


BIS 


^3IT1,R2 


CMP 


R1,R2 


BEQ 


1351 


INC 


(-ATFLG 



ERRHRD ^:RRNO , T26B0T . EXPREC 



CSERHRD 
697 
T26B0T 
EXPREC 



TSV7 - HARDWARE TF:STS i-6 
TtST 6: REREADS 
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SEQ Oif66 



n?.\ 

?725 
V724 
?725 
■'7P6 
V :^7 
"^/28 

■•7::9 

?730 
7731 
773<? 
7733 
7/34 
7735 
7736 
7737 
7738 
V74a 



7743 

7744 
7745 
7746 
7 747 
7746 
7749 
7750 
7751 
7752 
7753 
7754 
7755 
7756 
775/ 
7758 
7759 
776r 
7/bl 
776if 
7766 



7767 

7/68 
7769 
7770 
77 71 
7772 



0654 74 
0654 74 
0654 76 
065504 



065500. 
065512 
065516 
065520 
C65524 
065530 
065532 
06553O 
065536 
06S540 
06554;? 
065544 
065546 
065546 
065550 
06555^- 



065562 
065570 
065574 
065600 
065604 
065610 
065614 
065620 
065622 
065624 
065650 
065650 
065652 
065654 
065636 
065640 
065640 
065642 
065646 
065652 
065654 
065b56 



10440^ 
01.?7?? 
000420 



01^^703 
00473? 
103413 
016501 
01P702 
010004 
005237 

10445b 
00127? 
0/2417 
012136 

104406 
013703 
013737 



012737 
0127O4 
C10557 
010465 
004737 
016501 
012702 
020102 
001^06 
005237 

104456 
001273 
072225 
012136 

104406 
017701 
013702 
0201C2 
001406 
005237 



000001 
01055fc 

000002 
000200 

002212 



072002 
003114 



161401 
071750 
071756 
OOOOOO 
016540 
000002 
000200 



002212 



115246 

0/1776 



002212 



135$: 



000400 072002 



CKLOUP 

liOV 
BR 



V^256. ,T26RSZ 

140$ 



iLOOP IF -^.ELECTtD 

TRAP 
J START RECORD SIZE 
iSKiP OVER 5PACE 



CJCLPl 



ISSUE ^PACE RECORDS COMMAND ^ VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD l-REVERSE 



136$ 



MOV 


#00000 1.R3 


J5R 


PC . SPACE 


BCS 


140J 


MOV 


tssr;r5).ri 


MOV 


*SSR.R2 


MOV 


R0,R4 


INC 


fatflg 



ERRHRD ERRN0,T26SC.PI<TSSR 



140$ 



CKLOOP 

MOV 
MOV 



T26R5Z.R3 
FREE,T26RB 



J SET UP SPACE COMMAND Cl FORWARD) 

;CALL SPACE ROUTINE 

:BR. IF NO TROUBLE 

jGEV TS5R 

;SET UP EXPECTED TSSR 

(PACKET ADDRESS SET UP 

;BUHP COUNT 

J SPACE (FORWARD) FAILED 

TRAP CJERHRD 
. WORD 698 
.WORD T26SC 
.WORD PKTSSR 

;L0OP IF SEI ECTEO 

TRAP CJCLPl 

J RECORD SIZE 

J STARTING READ BUFFER ADDRESS 



071750 



071752 150$: 

1 REREAD OATA.CVC-l.ACK. OPP COMMAND 
I 

• «****«i4i*4>***i»4i4>«***«******^«**«4iii4i4*Ait.«* ************** ************ 

iREREAO DATA.CVC-l.ACK, OPP COMMAND 
165$: MOV «T26PK3,R4 jSET UP R4 WITH PACKET ADDRESS 

iSET UP RECORD SIZE IN PACKET 

: issue COMMAND 

;WP1T FOR SSR TO SET 

iGET TSSR CONTENTS 

J SET UP EXPECTED 

I ARE THEr EQUAL 

I BR, IF OK 

iBUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 

TRAP CSERHRD 
. WORD 699 
.WORD T26RRF 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 
:FIRST WORD FROM READ BUFFER 

J SET iP EXPECTED 

ilS TAPE POSITION CORRECT 

[KEEP GOING POSITION OK 

iBUMP COUNT 



MOV 


*161401,T26PK3 


MOV 


«T26PK3,R4 


MOV 


R3,T26SZ 


MOV 


R4.TS0B(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


1701 


INC 


FATFLG 



ERRHRD ERRN0.T26RRF, PKTSSR 



170$: CKLOOP 



MOV 


SFREE.Rl 


MOV 


T26CNT,R2 


CMP 


R1.R2 


BEQ 


190$ 


INC 


FATFLG 



I t 



TSV7 - HARDWARE IhSTS I -S 
TtST 6: REREADS 



777fo 



7 777 

7 '78 
^779 

r;80 

"''781 
7782 
7785 
7 784 
7785 



7786 
7787 
7788 
7789 



06566^ 
065662 
065664 
065666 
065670 
065672 
0656 72 
065674 
065702 
065704 
065710 
065714 
065716 
065722 
065722 
065722 
065722 
065724 
065732 
065734 
065740 



104456 
001274 
072006 
015564 

104406 
062757 
005723 
010337 
022703 
001402 
000137 



104403 
023727 
103402 
004737 
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ERRHRD ERRNO , T26WNG , EXPREC 



190$: 



CKLOOP 



000001 071776 

072002 
000412 

065506 



002212 000017 



MOD 


«1.T26CNT 


TGT 


(R3)* 


MOV 


R3. r26RSZ 


CMP 


<>266. .R3 


BEQ 


220$ 


JMP 


136$ 



220$: 



SE'3 0267 



017272 



999$: 



ENDSUB 



CMP 
BLO 
JSR 



ftl5 



FATFLG 

999$ 

PC.CKDROP 



J TAPE POSITION INCORRECT 

TRAP CiFRHRO 

.WORO 700 

.WORD T?r,WN(, 

.WORD EXPREC 

TRAP C$CLP1 
iMUMP TAPE RECORD COUNTER 
;NEXr RECORD SIZE 
; STORE RECORD SI/E 
;AT MAX SUE fET 
jBR, IE AT END OF THE SUBTEST 
jKEEP GOING MORE RECORDS 

(>>>>>>>>>>>> END SUBTEST >>>>>>.. ^ >.. . 



L10114: 

TRAP 
J IS ERROR COUNT AT 25 
;BR. U LESS THAN 25 
;TRY TO DROP THE UNIT 



C$ESU6 



TSV7 HARDWARL TLSTS 1 -6 

TEST 6: RF.RHADS 

7 791 

7793 
7794 

/79*j 
:'79 7 
V 796 
■' 799 
7800 
7801 
780a 
7803 
7804 
7805 
7806 
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7807 
7808 
7809 
7810 
7811 
781? 
7813 
7614 
7815 
7816 
7817 
7818 
7819 
7823 
7824 



78.75 
78c^6 
76^7 
7828 
7fi?9 
7830 
7c*.?'.l 
78.V 
7833 
7834 
7855 
783£^ 
7837 
7841 
7842 



V843 



065740 
065740 
065740 
065742 
065746 
065752 



065 7SS 
065762 
065764 
065770 
06"=i77? 
065772 
065774 
065776 
066000 
066002 



06601'* 
0660^^0 
0660.'2 
066026 
066030 
066030 
066032 
066034 
066036 
066040 



10440? 

004757 074540 

004737 074632 

004757 074674 



004757 
103407 
005257 
010001 

104455 
001275 
003650 
012124 
OlS??? 



016064 
002212 



066010 012704 



002172 
071630 



001/57 010752 

103407 

003257 002212 

010001 

104456 
001276 
005054 
012124 



SEQ 0268 



TEST 6. SUBTEST 11 

;VF.RIFIES THAT A REREAD NEXT COMMAND READTNG A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
LONG CRLL) BIT SET. RESULTS ARt VERIFIED FOR BOTH 
STATES OF OPP (0 AND 1), 



8GN5UB 



J5R 
J5R 
JSR 



PC,T26R£ST 
PC.T26RT2 

PC,T26RT3 



. >•» >>>^!.>>-»vt» BEGIN SUBTEST >>>>>>>>>*>> 

T6.11: 

TRAP C$BSUB 
I SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALISE - CARRY BIT CLEAR IF ERROR 



071650 20$: 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


iBR IF INIT WAS OK 




INC 


FATFLG 


;BUMP COUNT 




MOV 


RO.Rl 


iCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO,SFIERR»SFIMSG 


I FATAL ERROR TSSR WAS NOT UK 








TRAP 


C$ERDF 






.WORD 


701 






.WORD 


SF lERR 






.WORD 


SFIMSG 


MOV 


UNITN.T26DSU 


(SET UP UNIT NUMBER 





MOV 



{SUBROUTINE NEEDS PACKET ADDRESS 



0T26PACKET,R4 

• ******4i**««***4***A******44**4***4**44*****44**44*4<t>44*4>44*4i4 4*44 

w^RIT^. CHARACTERISTICS COMt^AND (CALL TO WRTCHR) 



26$: 



JSR PC. WHTCHR 

BCS 26$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG » SF IMSG 



CKLOQP 



; ISSUE Wf?TTE Ch.lRACTERISTICS 
;BR, IF C0<1MANU ISSUED CK 
tBUMP COUNT 

iSAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC t-AlLLD 

TRAP 

WORD 
. WORD 
. WORD 
iLOOP ir SELECTED 



rjFRHRD 
I 02 

WRTMSr, 
Sf- IMSG 



Tr.V7 - i-iAfn")WARt ThSTS L-8 
TLST 6: Rf.READS 





066040 


104406 




7844 








7645 








7846 








784 7 








7846 








7849 








7850 








7851 


066042 


004 73 7 


011104 


^852 


066046 


016501 


000002 


''853 


066052 


012702 


000200 


7854 


066056 


103407 




7855 


066060 


010004 




7856 


066062 


005237 


002;?12 


7860 


066066 








066066 


104456 






066070 


001277 






06607? 


073304 






066074 


012136 




7861 


066076 








066076 


104406 




786? 








7863 








7864 








7865 








7866 








7867 








7868 








7869 


066100 


015701 


071660 


78 70 


066104 


010102 




7871 


066106 


052702 


000002 


787i> 


066112 


020102 




7873 


066114 


001406 




7874 


066116 


005237 


002212 


7878 


066122 








066122 


1C4456 






066124 


001300 






066126 


073015 






066130 


015564 




7879 


066132 








066132 


104406 




7880 


066134 


012703 


001000 


7881 


066140 


013737 


003114 


7882 








7883 








7884 








7885 








/886 








7887 








7888 








7889 


066146 


012737 


140005 


7890 


066154 


012704 


071750 


7891 


066160 






7892 


066160 


010337 


071756 


7893 


066164 


010465 


000000 


7894 


066170 


004737 


016340 


7895 


066174 


016501 


OOOOOS 
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TRAP 
ISSUE REWIND COMMAND TO SfcLKCTt-.D TAPE DRIVE 

J CALL TAPE REWIND COMMAND 

(GET TSSR 

;SET UP EXPECTED TSSR 

I BR. IE NO PROBLEM 

jPACKET ADDRESS SET UP 

;BUMP COUNT 

;REWIN0 NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



SfQ 0269 



JSR 


PC, REWIND 


MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


BCS 


50$ 


MOV 


R0.R4 


INC 


FATELG 



30$: 



ERRHRD ERRNO , T26RUN , PI< TSSR 



CKLOOP 



iLOOP IF SELECTED 



071752 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

;PTCK UP XSTO 
SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
DOES EXP - REC'O 
BR. IF EQUAL COK) 
BUMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40*: CKLOOP iLOOP IF SELECTED 

TRAP 
(RtXOHO SIZE 
jSTARTING WRITE BUf-ER ADDRESS 



MOV 


T26BFRf6.Rl 


MOV 


R1.R2 


BIS 


*eiTl.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



d512. .R3 
FREE,T26RB 



• •*****«*******««****«4******4,«4,«4i4,«444,4i4AA4,«44,4,44,4A^4i4,4,^4,44,4,44,4,4^ 

WRITE DATA.CVC-l.ACK COMMAND 

«Ai«*44>4k**i*4>44i4i**** ********* **«>ti4.j4ijf«4i4i4* ******** -k****A**4>*** «*♦*»* 



071750 



65$: 



MOV ^140005. T26PK3 

MOV #T26PI<3,R4 

MOV R3.T26SZ 

MOV R4, TS0BCR5) 

JSR PC.WAITF 

MOV TSSR(a5).Rl 



[WRITE OATA.CVC-1 . ACK COMMAND 
[SET UP R4 WITH PACKET ADDRESS 

:Sf T L^ RECORD SIZE IN PACKET 
i ISSUE COMMAND 
iWAlT FOR SSR TO SET 
iGET TSSR CONTENTS 



C$CLP1 



C$ERHRO 
703 

T26RWN 
PKTSSR 

C$CLP1 



CtERHRD 
704 

T26B0T 
EXPREC 

C$CLP1 



TSV: HAROWARf; TtSTS i H 
TtST 6: RtHtADS 
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V89b 


066200 


012 ('02 


000200 


789/ 


066204 


020102 




7898 


066206 


001406 




7899 


066210 


005237 


002212 


'903 


066214 








066214 


104456 






066216 


001301 






066220 


005111 






066222 


012136 




'904 


066224 








066224 


104406 




790S 








7906 








790 r 








7908 








7909 








7^1^ 








7911 








7912 


066226 


004737 


0ill04 


7915 


066232 


016501 


000002 


7914 


066236 


012702 


000200 


7915 


066242 


103407 




7916 


066244 


010004 




7917 


066246 


005237 


002212 


7921 


066252 








066252 


104456 






066254 


001302 






066256 


073304 






066260 


012136 




792? 


066262 








066262 


104406 




7923 








7924 








7925 








/926 








7927 








7928 








7929 








7930 


066264 


013701 


071660 


7931 


066270 


010102 




7932 


066272 


052702 


000002 


7933 


066276 


020102 




7934 


066500 


001406 




79i5 


066302 


005237 


00ii2l2 


7939 


066306 








066306 


104456 






066310 


001303 






066312 


073015 






066314 


015564 




7940 


066316 








066316 


10440C 




7941 


066320 


005303 




7942 


066322 


013737 


003114 


7943 








7944 








7945 








7946 









MOV 


/?SSR,R2 


CMP 


R1.R2 


BF.Q 


75 1 


INC 


PATKLG 



75? 



b'RRHRD ERRNO , WRTfcRR , PK T SSR 



CKl.OOP 



jIjKT up tXPtClfD 




lARh" THty FQI'mL 




J BR, Ti J,< 




;Uv^MP COUNT 




jTSSR INCORRECT Ar rtR WRITf^ DATA 


TRAP 


C$hRHHO 


.WORD 


705 


. WORD 


WRTFRR 


.WORD 


PKTSSR 


iLOOP IP StLtCTtD 




TRAP 


CSCLPl 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

CALL. TAPE REWIND COMMAND 
GET TS5R 

SET UP EXPECTED TS5R 
BR. if NO PROBLEM 
iPACKET ADDRESS SET UP 
;BUMP COltNT 
I REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


M0\ 


TSSR(R5).R1 


MOV 


0SSR.R2 


BCS 


130$ 


MOV 


R0,R4 


INC 


FATELG 



ERRHRD ERRNO . T26RWN . PK TSSR 



130$ 



CKLOOP 



iLOOP IF SELECTED 



TRAP 


CIERFtRD 


.WORD 


706 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



071752 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

PICK UP XSTO 
SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
iDOES EXP > REC'O 
BR. IF EQUAL (OK) 
BUMP COUNT 

TAPE NOT AT BUT AFTER REWIND 

TRAP 
.WURO 
.WORD 
.WORD 
140$: CKLOOP iLOOP IF SELECTED 

TRAP 
iSET RECORD SIZE TO 511. 
t STARTING READ BUTFER ADDRESS 



MOV 


T26BFRt6.Rl 


MOV 


R1,R2 


BIS 


a6ITl.R2 


CMP 


R1,R2 


BEQ 


140* 


INC 


FATFLG 



ERRHRD ERRNO. T26B0T,tXPRtC 



CKLOOP 

DEC 

MOV 



R3 
FREE.T26RB 



*******«**********4**44 + 4***««4>**»444444,444^4«^4,44 444444^^^4^^4,44,^ 



C$CLP1 



CIERURD 

707 

T26B0T 

EXPRtC 

CJCLPl 



SFO 02/0 



REREAD DArA,CVC»i,ACK,OPP-l COMMAND 



1( 



TSV7 t-iARDwARt TbSTb 1-tf 
TtbT 6: RERbADS 



MACRO M1?00 ?/< hAR-«fl 09 I'll PAGK 8? 5 



SLQ Oc^/1 



794/ 
7948 
7949 
7950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7963 



7964 

7965 
7966 
7967 
7963 
7969 
7970 
7971 
797? 
7973 
7974 
7975 
7976 
797 7 
7981 



798^ 

7963 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 



066330 
066336 
066342 
066346 
066352 
066356 
066362 
066366 
066370 
066372 
066376 
066376 
066400 
066402 
066404 
066406 
066406 



066410 

066414 

06641.6 

0664; '2 

066424 

066426 

066432 

066432 

066434 

0664 3-^ 

06644 

066442 

066442 

066444 

066450 



066456 
066464 
066470 
C66474 
066500 
066504 
066510 
066514 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001304 
074362 
012136 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001305 
074130 
015564 

104406 
012703 
013737 



012/37 
012704 

010337 
010465 
004737 
016501 
012702 
020102 



161401 
071750 
071756 
000000 
016340 
000002 
100204 



002212 



071660 
010000 



002212 



0007 7 7 
003114 



141401 
071750 
071756 
000000 
016540 
000002 
100204 



071750 



;*♦*♦***»*♦»**********♦*****♦******+*♦****•♦♦**♦**♦♦♦***♦♦♦♦♦*♦*♦*♦ 

rvKRF.AD DATA.CVC-l.ACK.OPP'l COMMAND 
1654; MOV ^>T26PI<3,R4 j St F UP R4 WITH PACI<e T ADDHhUS 

SET UP RECORD SI/E IN PACKET 

I5bUE CUIiMAND 

WAIT KOR SSR TO GET 

GET T5SR CONTENTS 

S!:T \JP KXPECTEO 

ARE THEY EQUAL. 

BR. IF 0:< 

BUMP COUNT 

TSSR INCORRECT AFTER REREAO DATA 

TRAP C5ERHRD 
.WORD 
.WORD 
.WORD 
170$: CKLOOP jLOOP IF SELECIED 

TRAP C5CLP1 



MOV 


frl61401,T26PI<5 


MOV 


^>T26PI<3,R4 


MOV 


R3,T26S^ 


MOV 


R4.TSDDCRS) 


J^jR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


<>SSR!SC!BIT2,R2 


CMP 


R1.K2 


BFQ 


170$ 


INC 


F ATKLG 



ERRHRD ERRNO . T26TRL . PKTSSR 



708 

T26TRI 

PKTSSR 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

GET MESSAGE BUFFER 
SET UP EXPECTED 
SET THE RLL BIT IN EXPECTED 
ARE THEr EQUAL 
BR. If EQUAL. CALL tS WEL.L) 
BUMP COUNT 
iTHE RLL BIT WAS NOT SET IN XSTO 



MOV 


T26BFRf6.Rl 


MOV 


R1.R2 


BIS 


oeiT12.R2 


CMP 


R1,R? 


BEQ 


180$ 


INC 


FATFLG 



ERRHRD ERRNO , T26L0N , EXPREC 



180$ 



071752 



CKLOOP 

MOV 
MOV 



TR^P 


C$tRHRD 


.WORD 


709 


.WORD 


T26L ON 


. WORD 


FXPRFC 



0511. .R3 
FREE,TP6RB 



TRAP 
iSfcT L>P SI7F OF RECORD 
; STARTING READ BUFFER ADDRESS 



C$CLP1 



REREAD DATA.CVC-l.ACK COMMAND 



071750 



365$: 



MOV 


0141401, T26PK3 


MOV 


0T26PK3.R4 


MOV 


R3,T26S/ 


MOV 


R4.TSDB(R5) 


JSP 


PC.WAITF 


MOV 


rSSRCR5).Rl 


MOV 


ossr:sc:bit2.r2 


CMF 


R1,R2 



jRERfAO DATA.CVC-l.ACK COMMAND 

J SET UP R4 WITH PACKt T ADDRESS 

iSET UP RECORD SIZE IN PACKET 

] ISSUE COMMAND 

J WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

iSET UP EXPECUD 

jAHE 1HE1 EQUAL 



f'^1 



TSV7 ■ HAf^DwARt. ThSTS 1-a 
TtST 6; RHREADS 



8000 


066516 


001406 




aooa 


066520 


005237 


002212 


800b 


066524 








066524 


104456 






066526 


001506 






066550 


074362 






066552 


012136 




^006 


066534 








066534 


104406 




a00 7 








8008 








8009 








8010 








8011 








i,,.12 








tU)l3 








8014 


066536 


013701 


071660 


8015 


066542 


010102 




8016 


066544 


052702 


010000 


8017 


066550 


020102 




8018 


0.S6552 


001406 




8019 


066554 


005237 


002212 


8023 


066560 








066560 


104456 






066562 


001307 






066564 


074150 






066566 


015564 




80.M 


066570 








066570 


104406 




8025 


066572 
066572 








066572 


104403 




8026 


066574 


023727 


002212 


8027 


06660? 


103402 




6028 


066604 


004737 


017272 


8029 


066610 
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INC KArrLG 

ERRHRD ERRN0,T26TRL.,Pl<TSSR 



370$: 



CKLOOP 



BR, ir OK 

BUMP COUNT 

TSSR INCORRECT AFTER REREAD DATA 

TRAP Ci^RHRD 

.WORD 710 

.WORD T26TRi. 

.WORD P"'TSSR 
:LOOP If SELECTED 

TRAP CSCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO fXSTO) 

GET MESSAGE BUFFER 

SET UP EXPECTED 

SET THE Rl.L BIT IN EXPECTED 

ARE THEY EQUAL 

BR, IF f.QUAl. CALL IS WELL) 

BUMP CUUN^ 

THE .ILL BIT WAS NOT SET IN X3T0 

TRAP CJERHRD 
.WORD 711 
WORD T26L0N 
.WORD EXPREC 



MOV 


T26BFR*6.R1 


MOV 


R1,R2 


BIS 


0BIT12.R2 


CMP 


R1.R2 


BEQ 


380$ 


INC 


EATFLG 



380$ 



ERRHRD ERRNO . T26L0N , EXPREC 

CKLOOP 
ENDSUB 



000017 



999$ 



CMP KATFLG.<?15. 

BLO 999$ 

JSR PC.CKDROP 



TRAP C$CLP1 

;>>>>>>>>>>>> tND SUBTEST ^ ■•>>>>>>>>> > 

L10115: 

TRAP Cicsue 

IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



SEQ 02/2 



Tti^T 6: RHRKAOS 



yo55 
eo?4 
80?;'"' 

805*. 

.MO 58 

.i040 
H041 
804/ 
804 5 
8t.>44 
604".. 
8046 
804/ 
8048 
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PAti( '^^ 



-.y^A cj^/'. 



8049 

8o^o 

80^1 
80S.^ 
80!i5 
80^ 
8055 
8056 
805^ 
80S8 
8059 
8060 
80fjl 
8065 
8066 



806/ 
8068 
8069 
8070 

80 ;i 

80 ?c^ 
8075 
80/4 
80 75 
60/6 
8077 
8078 
8079 
8083 
8084 



066610 
066610 
066610 
0666 IP 
0^66le 
066622 



10440*? 

004/57 074540 

004757 07465^^ 

004757 074674 



Tl'ST 6, SUBTEST Ir* 

VtRIMES THAT A RERFAD NtXT COMMAMO READING A 
RECORD SHORTER THAN THE SPECIFIED BrTE COUNT CAij'.l , 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
SHORT (RLS) BIT SET. IT IS VERUUO THAT THE 
RESIDUAL BTTE COUNTER (RBPCR) IN THE MtSSAGh FV.rFE-R 
CONTAINS THE PROPER NONZERO VALUE (E.G.. THt 
DIFKERENCt BETWEfN THE ORIGINAL BWE COtJNT AKO THE 
ACTUAl RECOR[' LENGTH). RESUL.TS ARE VERIFIED FOR BOTH 
JTATES OK OPP (0 AND l). 



UGN5UB 



JSR 


PC.T26REST 


JSR 


PC.T26RT2 


JSR 


Pr.T26RT5 



,•»,>..>>.>>>. BhGiN sueie/.T 

T6.\2: 

TRAP 
tSLT CLr:MANO PACKET 
j^'.i vJP OTHER COMMAND PACKET 
iSE': \.fP OTHER COMMAND PACKET 



•>>>*■•» 



CJBSiJC 









1 ISSUE 


CONTROLLER "SOU" INITIALIZE 


CARRY BIT CLEAR IF ERROR 




0666 ?6 


004757 


016064 




JSR 


PC.SOriNIT 


;00 '.;• TiALIZE ON CONTROLLER 




066632 


105407 






BCS 


20 » 


(BR I" INIT WAS OK 




066634 


005237 


002212 




INC 


FATFLG 


iBUMP COUNT 




066640 


010001 






MOV 


RO.R- 


(CONTENTS or TSSR REGISTER 




066642 








ERRUE 


ERRNO.SFIERR.SFIMSG 


j.ATAL ERROR TSSR WAS NOT OK 




066642 


104455 










TRAP 


CIERDF 


066644 


001310 










.WORD 


/12 


066646 


005650 










.WORD 


SF lERP 


066650 


012124 










.WORD 


SF IMSG 


066652 


013737 


002 17^ 071650 


20% i 


MOV 


UNITN.T26DSW 


iSET UP UNIT NUMBER 




066660 


012704 


071630 


t * A * * A 


MOV 


«T26PACKET.R4 


iSUCROUTINE NEEDS PACKET ADDRESS 








1 V * • • ^ 

iWRITE 


CHARACTERISTICS COMMAND (CALL 


TO WRTCHR) 










1 


|L 4^**4*** 


***4*4«******«*****4i«* 







066664 004 75 7 010752 

066670 105407 

066672 00525 7 002212 

066676 010001 

066 700 

066 700 104456 

066/02 001 Ul 

066704 005054 



JSR 


PC, WRTCHR 


BCS 


261 


INC 


FATFl G 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG.SFXMSU 



llSSUf. WRITE CHARACTERISTICS 
|BR, IF COMMAND ISS'JED OK 
iBUMP COUNT 
iSAvE CONTENTS Of TSSR 

i WRITE CHARACTERISTISC FAKED 

TRAP 

. WORD 

»WORD 



OtHHRD 
'15 
WRTMIjU 



T v: 



\ .* 



H'\i?:iuMm rtsTs i ^ 



MACHO Ml, '00 .M HAH 84 (y}:AA PAtit. 85 i 



TtST 6: RfRtADl^ 





Ofefi/06 


012124 




808S 


066/10 








066710 


104406 




808^ 








ao8: 








808.H 








8089 








8090 








8091 








A09^ 








8093 


06^712 


004737 


011104 


8094 


066716 


016501 


000002 


6095 


066722 


012702 


000200 


8096 


066726 


103407 




8097 


066730 


010004 




8098 


066732 


005237 


002212 


8102 


066 7 36 








066736 


104456 






066740 


001512 






066742 


073304 






066744 


012156 




8103 


066746 








066746 


104406 




8104 








8105 








8106 








810? 








8108 








8109 








8110 








6111 


066750 


013701 


071660 


8112 


066754 


010102 




8113 


066756 


052702 


000002 


8114 


066762 


020102 




8115 


066764 


001406 




8116 


066766 


005237 


002212 


8120 


066772 








0667^2 


104456 






066774 


001313 






066776 


075015 






067000 


015564 




8121 


067002 








067002 


104406 




8122 


067004 


012703 


000400 


8123 


067010 


015737 


003114 


8124 








8125 








3126 








8127 








8128 








8129 








8150 








8131 


067016 


012757 


140005 


8132 


06 7024 


012704 


0/1750 


8133 


067030 






8134 


067030 


010557 


071756 


dl35 067034 


01Q46S 


000000 



071752 



071750 



26 5: 



CKl OOf 



l\ OOP If SHI f-CTtO 







-jFO 02/4 


.wnH'j 


Sf V^-A, 




TWAP 


CJCI PI 





: 

;ISSUf. REWIND COMMAND TO SH I C M d lAPt. DMtvr 
t 

J CALL TAPJ REWIND COMMAND 

J GET TSSR 

I SET UP EXPECTED TSSR 

I BR, If NO PROei.EM 

, PACKET ADDRESS SET i.iP 

»Bir»P COUNl 

(REWIND NOT ACCEPTED 



JSH 


PC. REWIND 


MOV 


T5SRCH5),R1 


MOV 


<>S5R.R2 


BCS 


50* 


MOV 


R0,R4 


INC 


J-'ATKLG 



50$ 



ERRHRD ERRN0,T26RWN,PI<TSSR 



CKLOOP 



I LOOP If SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



i 

jREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
I 



MOV 


T268rR»6.Rl 


MOV 


R1.R2 


BIS 


♦eiTl,R2 


CMP 


Rl.R? 


BEQ 


401 


INC 


FATFi.G 



ERRHRD ERRN0.T26D0T,t:xPRtC 



40t 



CKLOOP 

MOV 
MOV 



#256. .R3 
KREE.T26RB 



IwRITE DATA.CVC-l.ACK COMMAND 



6b$: 



MOV *140005,T26PK3 

MOV #r2£PK3.R4 

MOV R3.T26S/ 

MOV R4,ISDB(R5) 



iWRITE OATA.CVC-l.ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZt IN PACKtT 
i ISSUE COMMAND 



CtERHWD 
714 

T26RWfi 
PKTSSR 

CSCLPl 



(PICK UP XSTO 




(SET UP EXPECTED 




iSET BOX BIT IN EXPECTED 




iOOES EXP • REC'D 




I BR. IF EQUAL (OK) 




J BUMP COUNT 




iTAPE NOT AT BOT AFTER REWIND 




TRAP 


CtERHRO 


.WORD 


715 


.WORD 


\?6B0T 


.WORD 


EXPREC 


jLOOP IF SELECTED 




TRAP 


C$CLP1 


jRECORD SIZE 




i STARTING WRITE BL»"FER ADDRESS 





n 



ISV ' - HARDWAHK U.STi; 1 S 
TtST 6: REREADS 
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SfJ Oc'/'j 



8156 
815.^ 
8136 
8159 
8140 
8141, 
t*145 



8146 

814 7 
8148 
8149 
31^0 
8151 
815^ 
8153 
81S4 
6155 
8156 
8157 
8158 
8159 
8160 
8164 



8165 

8166 
8167 
6168 
8169 
8170 
8171 
817? 
8173 
8174 
8175 
8176 
8177 
8176 
8182 



8183 

8184 
8165 
8186 



067040 
067044 
067050 
06 7054 
067056 
067060 
067064 
067064 
067066 
067070 
06707,? 
067074 
067074 
0670 76 



067076 
06710;? 
067106 
067U2 
067114 
067116 
067122 
067122 
067124 
067126 
067130 
067132 
067132 



067134 
067140 
067142 
067146 
067150 
067152 
067156 
067156 
067160 
067162 
067164 
067166 
067166 
067170 
067174 



004 757 
016501 
012702 
020102 
001406 
00523 7 

104456 

001314 
005111 
012136 

104406 



004737 
016501 
012702 
103407 
010004 
005237 

104456 
001315 
073304 
012136 

104406 



104406 
012703 
013737 



016340 
00000? 
000200 



002212 



JSH 


PC.WAITF 


MOV 


Tr,SRCR5),Rl 


MOV 


<>SSR.R2 


CMP 


R1,R2 


BEG 


75» 


INC 


KATH.G 



ERRHRO ERRNO , WRTFRR . P!a^,^R 



CKLOOP 



jUAIT rOR SSR TO ^.ET 

iGET TS5R CONTENTb 

(SET UP EXPECTED 

I ARE THEt equal 

;BR. IE OK 

iB'JMP COtJNT 

iT;;SR INCORRECT AETER WRlTt DATA 

TRA'' C JtRHPO 

.WORD 

.WORD 

.WORD 
;LOOP IF SELECTED 

TRAP 



0U104 
000002 
000200 



002212 



75$: 
120* : 

ISSUE REWIND COMMAND TO SELECTED TA.PE DRIVE 

(CALL TAPE REWIND COMMAND 

(GET TSSR 

iSET UP EXPECTED TSSR 

J BR, IE NO PROBLEM 

;PACKET ADDRESS SET UP 

I DUMP COl^T 

;REWIND NOT ACCEPTED 



JSR 


PC.REWINO 


MOV 


T';SRCR5),R1 


MOV 


0SSR,R2 


BCS 


130$ 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO , T26RWN , PKTSSR 



130$: 



CKLOOP 



;L0OP IE SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



; 



013701 071660 

010102 

052702 000002 

020X02 

001406 

005237 002212 

104456 

001316 
073015 
015564 



001000 
003114 



071752 



jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

* 

(PICK UP XSTO 
iSET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
I BR. IF EQUAL (OK) 
iBUflP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
135$: CKLOOP (LOOP IF SELECTED 

TRAP 
'RECORD SIZE 
iSTARTING READ BUFFER ADDRESS 



MOV 


T2&BFR»6.R1 


MOV 


R1,R2 


BIS 


06IT1,R2 


CMP 


R1.R2 


BEQ 


135$ 


INC 


FATFLG 



ERRHRO ERRNO, T26B0T . EXPREC 



CKLOOP 

MOV 
MOV 



fl512. .R3 
FREE.T26Re 



716 

URTERP 

P'^TISP 



C$CLPl 



C$ERHRD 
717 

T26RWS 
PKTSSR 

C$CLP1 



C$ERHRD 
718 

T26B0T 
EXPREC 

C$CLP1 



TEST 6: REREADS 



8107 
8iae 
8189 
8190 
8191 
819? 
8193 
8194 
8195 
8196 
8197 
8198 
8199 
8^00 
8201 
8202 
6206 



8207 

8203 
6209 
6210 
8211 
6212 
8213 
8214 
8215 
8216 
8217 
8218 
8219 
8220 
6224 



6225 

8226 
8227 
8228 
8229 
6233 



8254 

8235 
8256 
8257 



067202 
067210 
067214 
067220 
067224 
067230 
067234 
067240 
067242 
067244 
067250 
067250 
067252 
067254 
067256 
067260 
067260 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001317 
074562 
012156 

104406 



067262 
067266 
067270 
067274 
067276 
067500 
067504 
067304 
067506 
067310 
067512 
067514 
067514 
067516 
067522 
067526 
067550 
067554 
067534 
067336 
067540 
067342 
067544 
067544 
067546 
067352 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

001320 
074212 
015564 

104406 
013701 
012702 
020102 
001405 

104456 

001320 
074274 
015564 

104406 
012703 
01375V 



161401 
071750 
071756 
000000 
016540 
000002 
100204 



071660 
040000 

002212 



071656 
000400 



001000 
003114 



MACRO M1200 ;'? riAR 84 09:44 PAGF 83 3 



REREAD NEXT.ACK.CVC-l.OPP-l 



071750 



165$ 



MOV 


#161401, I26PK3 


MOV 


«T26PK3.R4 


MOV 


R3.r26SZ 


MOV 


R4.rSDB(R5) 


JSR 


PC.WAITr 


MOV 


TSSR(R5).R1 


MOV 


*SSR!SC!BIT2.R2 


CMP 


R1.R2 


BEQ 


1701 


INC 


FATKLG 



170J 



ERRHRD ERRNO , T26TRL . PKTSSR 



CKl OOP 



jREREAO NEXT,ACK,CVC"l,OPP'l 

iSET UP R4 WITH PACKET ADORES.^ 

(SET UP RECORD SIZE IN PACKET 

J ISSUE COMMAND 

iWAIT EOR SSR TO SET 

jGET TSSR CONTENTS 

;SET UP EXPECTED 

iARE THEY EQUAL 

tBR, IE OK 

iBUMP COUNT 

J TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IE SELECTED 

TRAP 



CJERHRO 

719 

T26TRL 
PKTSSR 

CJCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

(GET MESSAGE BUFFER 

;SET UP EXPECTED 

;SET THE RLS BIT IN EXPECTED 

J ARE THEY EQUAL 

I BR, IF EQUAL (ALL IS WELL) 

iBUMP COUNT 

(THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRO 
.WORD 720 
.WORD T26L0P 
.WORD EXPREC 



MOV 


T26BFR»6.R1 


MOV 


R1,R2 


BIS 


*6IT14,R2 


CMP 


R1,R2 


BEQ 


1801 


INC 


FATFLG 



ERRHRD ERRNO . T26L0P , EXPREC 



180$ 



CKLOOP 



MOV 


T26BFR*4.R1 


MOV 


<>256. ,R2 


CMP 


R1.R2 


BEQ 


190* 



ERRHRD ERRNO . T26PBP , EXPREC 



TRAP C$CLP1 
(PICK UP RESIDUAL BYTE COUNTER 
(THIS SHOULD BE THE DIFFERENCE 
tIS THE DIFFERENCE CORRECT 
;BR. IF CORRECT 
(RBPCR NOT CORRECT 



190$ 



071752 



CKLOOP 

MOV 
MOV 



TRAP 


CJERHRD 


.WORD 


720 


.WORD 


T26PBP 


.WORD 


EXPREC 



<>512. .R3 
FREE.T26RB 



(LOOP IF SELECTED 

TRAP C$CLP1 
(RECORD SIZE 
(STARTING READ BUFFER ADDRESS 



SFQ 02/6 



TtST 6: REREADS 



8256 

8240 
8241 
8242 
8243 
8244 
8245 
8246 
8247 
8246 
8249 
8250 
6251 
8252 
8253 
8257 
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8258 

8259 
8260 
8261 
8262 
8263 
8264 
826S 
8266 
6267 
8268 
8269 
8270 
8271 
8275 



8276 

8277 
8278 
8279 
8280 
8284 



8285 
8286 



067360 
067366 
067372 
067376 
067402 
067406 
067412 
067416 
067420 
067422 
067426 
067426 
067430 
067432 
067454 
067436 
067436 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001321 
074362 
012136 

104406 



067440 
067444 
067446 
067452 
067454 
067456 
067462 
067462 
067464 
067466 
067470 
067472 
067472 
067474 
067500 
0675C1 
067506 
067512 
067512 
067514 
067516 
067520 
067522 
067522 
067524 
067524 
067524 



141401 
071750 
071756 
000000 
016540 
000002 
100204 



002212 



013701 071660 

010102 

052702 040000 

020102 

001406 

005237 002212 

104456 
001322 
074212 
015564 

104406 

013701 071656 

012702 000400 

020102 

001405 

104456 
001322 
074274 
015564 

104406 



104403 



REREAD NEXT,ACI<,CVC-1,0PP"0 

071750 MOV ^141401. T26PK3 ;RtREAD NEXT, ACK.CVC-1 .OPP-0 

iSF.T UP R4 WITH PACKFT ADDRESS 
I SET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 
;WAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
jSET UP EXPECTED 
I ARE THEY EQUAL 
iBR. IE OK 
;BUMP COUNT 

J TSSR INCORRECT AETER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
270S: CKLOOP ;LOOP IF SELECTED 

TRAP 



MOV 


^141401. T26PK3 


MOV 


0T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


*SSR!SC!BIT2.R2 


CMP 


R1.R2 


BEQ 


270$ 


INC 


FATFLG 



ERRHRD ERRNO , T26TRL . PKTSSR 



CJERHRO 
721 

T26TRL 
PKTSSR 

C$CLP1 



IrEAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
I 

jGET MESSAGE BUFFER 
iSET UP EXPECTED 
;SET THE RLS BIT IN EXPECTED 
;ARE THEY EQUAL 
;BR, IF EQUAL (ALL IS WELL) 
iBtJMP COUNT 
ERRHRD ERRNO, r26L0P.EXPREC j THE RLL BIT WAS NOT SET IN XSTO 



MOV 


T26BFRt6,Rl 


MOV 


R1.R2 


BIS 


*eiT14.R2 


CMP 


R1.R2 


BEQ 


280* 


INC 


FATFLG 



280$ 



CKLOOP 



MOV 


T26BFR*4.R1 


MOV 


0256. .R2 


CMP 


R1.R2 


BEQ 


290$ 



290$ 



ERRHRD ERRNO » T26PBP . EXPREC 

CKLOOP 
ENDSUa 







TRAF 


C$ERHRD 






.WOf;D 


722 






.WORD 


T26L0P 






.WORD 


EXPREC 






TRAP 


C$CLP1 


(PICK UP RESIDUAL BYTE 


COUNTER 




(THIS SHOULD BE THE 


DIFFERENCE 




(IS THE DIFFERENCE 


CORRECT 




(BR, IF CORRECT 








iRBPCR NOT CORRECT 












TRAP 


C$ERHRO 






.WORD 


722 






.WORD 


T26PRP 






.WORD 


EXPREC 


(LOOP IF SELECTED 












TRAP 


C$CLP1 



SEQ 0277 



j >>>^>>>>>>>> END SL»BTtST 

L10116: 

TRAP 



C$ESUB 



it- 
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62B? 067526 02Z72i 00221^: 
8288 067554 105402 
8269 067536 004737 0172/2 
8290 067542 


000017 

999$ 


CMP rAm.G.^n'^. 

BLO 999* 

JSR PC.CKDROP 



3f0 02/8 



I'. ERROR COUN^ AT 2'> 
HR, If- LESS THAN ?', 
TR^ TO DROP THE UNIT 



TSV.' ■ HAPDW'^RK TtSTS 1 ■» 

TEST 61 REREADS 

8292 

8294 
8295 
8296 
8297 

8299 
8500 
8301 
8502 
8303 
6504 
8305 
8306 
8507 
8308 
0309 
8310 



8311 
8312 
8313 
8314 
8315 
8516 
8317 
8318 
8319 
8320 
8321 
8322 
8325 
8524 
8325 
8326 
8327 
8331 
8332 



8333 
8354 
8335 
8336 
8537 
8538 
8559 
8340 
8541 
8.142 
6343 
8344 
6545 



067542 
067542 
067542 
067544 
067550 
067552 
067556 
067562 
067566 
067572 



104402 
005737 
001002 
000137 
004737 
005037 
004737 
004737 



067576 
067602 
067604 
067610 
06 7612 
067612 
067614 
067616 
067620 
067622 



004737 
103407 
005237 
010001 

104455 
001323 
003650 
012124 

013737 



067630 012704 



067634 
067640 
067642 



004737 
103407 
005237 



003126 

070534 
074540 
071776 
074632 
074674 



016064 
002212 



002172 
071630 



010752 
002212 
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SEQ 02/9 



TEST 6. SUBTEST 13 

VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
NONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 
TERMINATION (TC-4 OR 5) WITH NXM-1 AND THAI THE TAPE 
IS UL.r:MATEL,Y POSITIONED PROPERl. r . ALL COMBINATIONS 
OF REREAD PREVIOUS/NEXT AND OPP-0/1 ARE TESTED. 

CAUTION 

The LSI BUS drivers for all ava'l.*ble address lincsCl6 21) 
afe only checked when running on m 11/23B oystem with more than 
128K words of mamory! 

BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.13: 

TRAP C$BSUB 
;D0 UE HAVE IT? 
J BR. IF ENOUGH 
;SKIP THIS TEST IF NOT 
10$: JSR PC,T26REST ;5ET COMMAND PACKET 

I CLEAR TAPE RECORD COUNTER 
;SEr UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

ISSl€ CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



TST 


NXMFLG 


BNE 


10$ 


JMP 


2001 


JSR 


PC,T26REST 


CLR 


T26CNT 


JSR 


PC,T26RT2 


JSR 


PC.T26RT3 



071650 20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


201 


jBR IF INIT WAS OK 




INC 


FATFLG 


I BUMP COUNT 




MOV 


RO.Rl 


;CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


J FATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


723 






.WORD 


5FIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T26DSW 


;SET UP UNIT NUMBER 





MOV 



0T26PACKET.R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



I WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

* 

iISSU;: WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
J BUMP COUNT 



JSR 


PC. WRTCHR 


BCS 


26$ 


INC 


FATFLG 



1"^. 



TSV7 - HARDWARt TESTS 1-8 



TEST 6: REREADS 



13349 
8350 



83S1 

6354 

8356 
8357 
8358 
8359 
8360 
8361 
8362 
8363 
8364 
8368 



83f9 

8370 
8371 
8372 
8373 
8374 
8375 
8576 
8377 
8378 
8379 
8380 
8381 
8382 
8386 



8387 

6388 
8389 
8390 
8391 
8392 
8393 
8394 
8395 
8396 



067646 
067650 
067650 
067652 
067654 
067656 
067660 
067660 



010001 

104456 
001324 
005054 
012124 

104406 



067662 
067666 
067672 
067674 
067700 
067702 
067706 
067706 
067710 
067712 
067714 
067716 
067716 



004737 
004737 
103411 
016501 
010004 
005237 

104456 
001325 
073304 
012136 

104406 



067720 
067724 
067726 
067752 
067734 
067736 
067742 
067742 
067744 
067746 
067750 
067752 
067752 
067754 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001326 

073015 
015564 

104406 
013737 



MACRO H1200 .''3 MAR-84 09:44 PAGt 84-1 



hUV RO.Rl 

ERRHRD ERRNO . WRTMSG . sr IMSG 



021276 
011104 

000002 

002212 



071660 
000002 

002212 



003114 071752 



26 J: 



CKl.OOP 



iSAVE CONTfNTS OK T^^GR 

tWRITt CHARACTERISTISC FAILED 

TRAP CiFRHRD 
.WORD 7?A 
.WORD WRTMSG 
.WORD SFTM'-jb 

iLOOP IF SELECTED 

TRAP CSCLPl 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

(INVERT THF EXTENDED FEATl.«ES SWITCH 

tCALL TAPE REWIND COMMAND 

(BR» IF NO PROBLEM 

;GET TSSR 

; PACKET ADDRESS SET UP 

I BUMP COUNT 

i REWIND NOT ACCEPTED 



JSR 


PC, INVERT 


JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSR(R5).R1 


MOV 


R0.R4 


INC 


FATFLG 



ERRHRD ERRNO. T26RWN.PKTSSR 



30$: 



CKLOOP 



iLOOP IF SELECTED 



TRAP 


CJERHRD 


.WORD 


725 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



CJCLPl 



• *****. *****************************************4*««*«*************« 



1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

*****4i********«****************l4i*****4i******«******«***i*********** 

iPICK UP XSTO 
I SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
;DOES EXP - REC ' D 
;BR. IF EQUAL (OK) 
I BUMP COLfJT 

jTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 
; STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


^IT1.R2 


CMP 


R1,R2 


BEQ 


40i 


INC 


FATFLG 



ERRHRD ERRNO. T2bB0T .EXPREC 



40$ 



067762 012757 lAQQQb OVlV^Q 



CKLOOP 

MOV FREE.T26RB 

{«******«*******«***««*«**«4i«********4lA«*«,*************^**********^ 

IwRIVt DATA.CVC-l.ACK COMMAND 

! 

• J* 4i*t 414441*4 4i*4iA'f4i4>***->******«>***4i4i4i^4^44^%jf J* ***''«***********•** ******* 

MOV *140005.T2bPK3 jWRlTE DATA.CVC-l.ACK COMMAND 



C$ERHRD 
726 

T26B0T 
FXPREC 

CSCLPl 



SEQ 02^0 



TSV7 - HARDWARt TLSTS 1-t) 
TtST 6: REREADS 



MACRO Mli?00 :-;5 MARtt4 09:44 PAGF 84 ? 



8597 
8598 
8599 
8400 
8401 
840? 
8405 
8404 
8405 
8406 
8407 
8411 



8412 

8415 
8414 
8415 
8416 
8417 
8413 
8419 
8420 
84i?l 
84^? 
8425 
8424 
8425 
8426 
8427 
8428 
8429 
8433 



8434 

8435 
8456 
8457 
8438 
84 59 
8440 
8441 
844? 
8^43 
8444 
8445 
8446 
84)7 
8^51 



067770 
067774 
070002 
070010 
070016 
070022 
070026 
070032 
070036 
070040 
070042 
070046 
070046 
070050 
070052 
070054 
070056 
070056 
070060 
0V0066 
070070 
070072 
070072 



070076 
070102 
070104 
070110 
070112 
070116 
070116 
070120 
070122 
0/0124 
070126 
0V0126 



070130 
070134 
070136 
070142 
070144 
070146 
<)701''jP 
070152 



012704 
012757 
01577/ 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001327 
005111 
012136 

104406 
022757 
001401 
000741 



004737 
103411 
016501 
010004 
005237 

104456 
001330 
073304 
012136 

104406 



C13701 
010102 
052 /02 
020r02 
00 .'.4 06 
00S257 

104456 



071750 
000400 
071776 
000001 
000000 
016340 
000002 
000200 



002212 



005037 071776 



011104 
000002 
002212 



071660 
000002 

oo^j.n2 



SFQ 0281 



071756 
115104 
071776 



65$ 



HOV 


«T26PI<3.R4 


MOV 


<>256. .T26SZ 


MOV 


T26CNT,SFREE 


ADD 


fll,T26CNT 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF- 


MOV 


TS5R(R5),R1 


MOV 


0SSR.R2 


CMP 


Ri.R2 


BEQ 


75$ 


INC 


(■"ATFLG 



ERRHRD ERRNO . WRTERR . ^KTSSR 



000013 071/76 



75 J 



120$ 



CKLOOP 

CMP 
BEQ 
BR 

CLR 



*11. .T26CNT 

120$ 

65$ 

T26CNT 



iSET UP R4 WITH PACKET ADDRE'^S 

I SET UP RECORD SIZE IN PACKET 

I MOVE TAPE RECORD NUMBER TO BUFFER 

J NUMBER READY FOR NEXT RECORD 

I ISSUE COMMAND 

;WAIT rOR SSR TO SET 

;GET TS3R CONTENTS 

I SET UP EXPECTED 

;ARE THEY EQUAL 

J BR. IF OK 

I BUMP COUNT 

:TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHHD 
.WORD 7rf7 
.WORD WRTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLPl 

(CHECK NUMBER OF RECORDS WRITTEN 

:BR, IF AT END Of WRITE SEQUENCE 

iWRITE MORE RECORDS 

J SET RECORD COUNTER BACK TO ZERO 



! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
i 



130$ 



JSR PC. REWIND 

BCS 150$ 

MOV TSSR(R5).R1 

MOV RO . R4 

INC FATFLC, 

ERRHRD ERRNO , T26RWN , PKTSSR 



CKLOOP 



:CALL TAPE REWIND COMMAND 

iBR. IF NO PROBLEM 

J GET TSSR 

iPACKET ADDRESS SET UP 

;BUf1P COUNT 

1 REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


728 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



!rEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTOJ 
I 



MOV 


T26BFR»6.R1 




iPICK UP XSTO 


MOV 


R1.R2 




(SET t.P EXPECTED 


BIS 


^BITl.RS 




(SET BOT BIT IN EXPECTED 


ChP 


R1.R2 




iOOrS EXP • REC'O 


BEO 


140$ 




;3R. IF EiJiJAL C OK : 


INC 


FATFcG 




;8UMP COLWT 


ERRHRD 


ERRNO. 126001 


.EXPREC 


:TAPE NOT AT BOT AFTcR RtWlND 

TRAP 



C$E.RHRD 



TSV7 HAPDW/Un fKSTS I tl 
TtST 6: RKRe.AOS 



MACRO M1?00 ."• HARH4 O'^tA^ PAGF H4 5 



SEQ O;:-^^ 



84S? 

H4b5 
8454 
8455 
8456 
845 7 
8458 
6459 
8460 
8461 
8462 
8463 
8464 
8465 
8466 
8467 
8468 
8469 
8470 
8471 
84 72 
6473 
B474 
84 75 
84 76 
8477 
8481 



8482 

8483 
3484 
8485 
8486 
8487 
64 8e 
8489 
6490 
8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
8499 
8500 
8504 



070154 
070156 
070160 
070162 
070162 
070164 
070170 
070176 



070204 
070210 
070214 
070222 
070226 
070232 
070236 
070242 
070244 
070246 
070252 
0702^4 
070260 
070262 
070262 
070266 
070266 
070270 
070272 
070274 
070276 
070276 



070300 
070506 
070314 
070520 
070326 
070332 
070336 
070342 
070346 
070350 
070352 
070356 
070356 



001351 
073015 
015564 

104406 

012703 
013737 
013737 



011337 
012 704 
012737 
010465 
004737 
016501 
012702 
020102 
001414 
031327 
001403 
030127 
001006 



01r''737 
01>737 
00.^037 
013737 
010.I65 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



071766 
003130 
003132 



071750 
071750 
000400 
000000 
016340 
000002 
104210 



001000 
000002 



005237 002212 

104456 
001332 
072225 
01213b 

104406 



140001 
000400 
071754 
003114 
OOOOOO 
016340 
000002 
000200 



00221^: 



0717:^2 
071754 



1404: 
150 J; 



CKl.OOP 

MOV 
MOV 
MOV 



0T?6RN,R5 

:><XMl.0.T26RU 

NXMHI,T26Rn»2 



. WORD 
.WORD 
. WORD 

;l OOP rr SELECTED 

TRAP 

J COMMAND BUFfF.R ADDRhSS 

{STARTING READ BUTrF.R ADDRFS^. 

:SKT UP HIGH OROFR ADDRE'"jS BITS 



729 

T26R0T 

EXPREC 

CJCLPl 



******************************* **«**'t>*«4i*4^**4i«4i*«^«** + **+*«4^4<***4>4> 

RtREAD OATA.TE.ACK. QPP COMMAND 



071756 



165* 



168$ 



MOV 


CR3),T26PK? 


MOV 


dT26PK3,R4 


MOV 


tf256. .T26S7 


MOV 


R4.TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSRCR5).R1 


MOV 


C5SR!NXM!SC!BIT3,R2 


CMP 


R1.R2 


BEQ 


170$ 


BIT 


(R3).*eiT9 


BEQ 


168$ 


BIT 


Rl.iKJITl 


BNE 


170$ 


INC 


FATFLG 



170$ 



ERRHRD ERRN0.T26RRF.Pl<TbSR 



CKLOOP 



REREAD DATA.IE.ACK, OPP COMMAND 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

CHECK FOR A READ COMMAND 

BR. IF IT WAS A READ COMMAND 

WAS BITl SET 

BR. IF REREAD AND BITl SET 

BUMP COUNT 

TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRO 

.WORD 730 

.WORD T26RRF 

.WORD PKTSSR 
il.OOP IF SELECTED 

TRAP C$CLP1 



071750 
071756 

071752 



{'read data, ACK,CVC-1 C0MMAh4D 
> 

:READ DAI A, ACK.CVC-1 COMMAND 

tSET SIZE INTO PACKET 

iCLEAR OUT HIGH ADDRESS BITS 

iGIVE READ A GOOD BUFFER 

i ISSUE READ DATA COMMAND 

jWAIT FOR SSR 

(PICK UP THE TSSR 

(SET UP EXPECTED 

J IS THE TSSR OK 

;BR. IF TSSR OK f (-^CD . 

J BUMP COUNT 

(READ O^^Tm COMMAND FAILED 

TRAP 



MOV 


0140001. T26PK5 


MOV 


0256. . T26SZ 


CLR 


T26RB*2 


MOV 


^REE,T26RB 


MOV 


R4,TS0B(R5') 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BFQ 


180$ 


INC 


FATFLG 



ERRHRD ERRNO , RDERR . PKTSSR 



CJERHRD 



TSV: HAROUARK TKSTS 1-8 
Ttsr 6: RbHEADS 



MACRO MU'^00 :.'^ MAR-tt4 09:44 PAGt. B4 4 



■"^ro o^HK 



RSOO 
8S07 
8^08 
8^j09 
8510 
8514 



M51S 

8516 
3517 
8518 
8519 
8520 
8521 
8522 
8523 
8524 
8525 
852ft 
8527 
8531 



853^ 

8533 
8534 
8535 
8536 
8557 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
6545 
8549 



8550 
8551 



070360 
070362 
070364 
0/0566 
070366 
703 70 
0703 74 
070400 
07040? 
070404 
070410 
070410 
070412 
070414 
070416 
070420 
070420 



070422 
070426 
70430 
070434 
070436 
070442 
070442 
070444 
070446 
070450 
070452 
070452 



070454 
070460 
070462 
0/0466 
0704 70 
0704 72 
070^/6 
070476 
070500 
070502 
070504 
070506 
70506 
070510 



001553 
005204 
012136 

104406 
017701 
01270? 
020102 
001406 
005237 

104456 

001334 
072006 
015564 

104406 



004757 
103411 
016501 
010004 
005237 

104456 
001355 
073304 
012136 

104406 



013701 
010102 
052702 
020102 
001406 
005257 

104456 
001336 
075015 
015564 

104406 
010302 



112520 
000001 



002212 



011104 
000002 
002212 



071660 
000002 



002212 



180$ 



190$ 



TKt OOP 

MOV 
MOV 
CMP 
BEQ 
INC 
tRRHRD 



CKLOOP 



OFREF.Rl 

01, m 

R1.R2 

190$ 

KATKl.G 

bRRN0,T26WNG,tXPREC 



[LOOP ir SELECTED 

T 
KIRST UORD fROM READ RUr 
SET UP EXPECTED 
IS TAPE POSiriON CORRECT 
jKEEP GOIN*G POSITION OK 
(BUM2 COUNT 

{TAPE POSITION INCORRECT 

T 



WOR!J 
WORD 
WORD 

RAP 
f ER 



TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

iCALL TAPE REWIND COMMAND 

:B»^ IK NO PROBLEM 

iGET TSSR 

{PACKET ADDRESS SET UP 

IBUM^' COUNT 

iREWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


194$ 


MOV 


TS5RCR5).M 


MOV 


R0»R4 


INC 


rATELG 



ERRHRD ERRN0.T26RWN.PKT55R 



194$ 



CKLOOP 



J LOOP IF SELECTED 



TRAP 



READ MESSAGE BUPEER EXTENDED STATUS REGISTER ZERO (XSTO; 

[PICK UP XSTO 

[SET UP EXPECT LD 
[SET BOT BIT IN exPECTEU 
[DOES EXP - REC'D 
[BR. IK EQUAL C OK ) 
[BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 
[SAVE R3 FOR A MOMENT 



MOV 


T26BKR*6.R1 


MOV 


R1.R2 


BIS 


^IT1,R2 


CMP 


RI.H2 


BEU 


196$ 


INC 


fATELG 



196$ 



ERRHRD ERRNO , T26B0T . EXPREC 

CKl, OOP 

MOV R3.R2 



/51 

RDEHR 

PKT'ISR 

C$CLP1 



RAP 


C$ERHRD 


WORD 


7 52 


WORD 


T26WNG 


WORD 


EXPREC 



CJCLPl 



TFv..^ 


C$ERHRD 


.worn 


755 


>':r^D 


T26RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
7 34 

T.'6D0T 
EXPREC 

C$CLP1 



TSV:' - H/\ROwARt, :hSTl3 I -a 
TE.,M 6; RfcRtADS 



MACRU MIPOO :'.*> MAR-«4 09:41 PAG^' m tj 



SEO o^Ha 



85r>4 

8556 
H55V 

8558 
8-359 
H560 

csei 

8562 
856? 
8564 
8565 
8566 
8567 



8568 
8569 
85/0 
8571 



07051? 
070516 
07052^ 
0705r?4 
0705?6 
7055P 
070554 
070534 
070554 
070554 
070536 
070544 
070546 
070552 



012705 
004737 
010203 
005723 
021327 
001216 



000001 
010556 



177777 



104403 

023727 002212 

105402 

004737 017272 



000017 



ISSUc. SPACb RtCOROS COMMAND - VALUE IN R5 St-TS NUMUtR OK RtCORDS 
BIT 15 StTS DIRECTION - O^-KORWARD 1 -RFvtRSE 

*Aif4jk*«****A4i*>li**4i4*<'4i***4k**4i4***j«4.«AA4ii* **************** 44«**4l*4* 

J SPACE ONE RECORD 

J CALL SPACE ROUTINE 
; RESTORE R5 
I BUMP COUNTER 

J END 0^ COMMAND BLtrFEH rET 
;MORE COMMANDS KEEP GOING 



200$ 



MOV 


/n,R3 


JSR 


PC . SPACE 


MOV 


R2,R5 


T5T 


CR3)* 


CMP 


(R3),ftl77/77 


BNE 


150$ 



ENDSUB 



CMP 
BLU 
JSR 



999$ 



rATFLG,.>15. 

999$ 

PC.CKOROP 



• >■>>>>>>>>>>> £ND SUBTEST >>>>>>^>>> >. 

L10H7: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BR. IK LESS THAN 25 
TRY TO DROP THE UNIT 



TfcST 6: RtREADS 



8S75 

8T/f> 
857 7 

8.80 
8'j81 
8582 
858S 
8584 
8585 
8586 



MACRU H1200 ?5MAR-a4 0'-9:<fl PAGt. 85 



8587 
8588 
8589 
8590 
859] 
859? 
8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8604 
8605 



8606 
860 «' 
8608 
8609 
8610 
8611 
861? 
8613 
8614 
6615 
8616 
8617 
8618 
86?? 
8623 



8624 



07055? 
07055? 
07055? 
070554 
070556 
070562 
070566 



070572 
070576 
070600 
070604 
070606 
070606 
070610 
07061? 
070614 
070616 



07063U 
0/0634 
070636 
07064? 
070644 
070644 
/0646 
070650 
;065? 
070654 
070654 



5h:Q 0285 



10440? 
005003 

004737 074540 
004 737 07463? 
004737 074674 



004737 016064 

103407 

005237 002212 

010001 

104455 

001337 
003650 
012124 
013737 00217? 



070624 012704 071630 



004737 01075? 

10340/ 

005237 002212 

010001 

10^456 
001340 
005054 
01?1?4 

104406 



TFSr 6, SURTtCT 14 

VKRih IfcS IHAT RtRBAD PREVIOUS WITH OPP-0 (SPACE 
RfciVERSe:. READ FORWARD) AND REREAD PRFVIOUS W'Th OPP 1 
(READ Rf- VERSE. 5PACt FORWARD) ISSUED WHEN THE TAPE 
POSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



BGNSUB 



CLR 
JSR 
JSR 
JSR 



R5 
PC.T26REST 

PC.T?6RT? 
PC,T?6RT3 



.>^>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.14: 

TRAP CJBSUB 
: CLEAR TEST COUNTER 
;SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
I SET IP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



071650 20$ 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20J 


J BR IF INIT WAS OK 




INC 


FATFLG 


{BUMP COUNT 




MOV 


RO.Rl 


jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNQ.SFIERR.SFIMSG 


jFATAL ERROR TSSR WAS NOT OK 








TRAP 


CJERDF 






.WORD 


735 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNrTN.T26DSW 


[SET UP UNIT NUMBER 





MOV 



{SUBROUTINE NEEDS PACKET ADDRESS 



*T26PACKET.R4 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 



25$: 



JSR PC.URTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO.WRTMbG, SFIMSG 



CKLOOP 



iISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 
{BUMP COUNT 

(SAVt CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
. W^'^RD 
.WL :d 
(LOOP IF SELECTED 

TRAP 



CJERHRD 
7 56 

WRTMSG 
SFIMSG 

CSC PI 



TSV * H.\f?nwAWl U.STS I fJ 
TtST 6: RtRtAOS 

eih^ : 

8h^l 



Hb55 
8654 
e65S 
8656 
8657 
8641 



864^ 

664 5 
6644 
864 b 
8646 
664 7 
864 3 
6649 
86S0 
8C?1 
66 ">2 
86'j5 
8634 
H655 
6659 



8660 

8661 
866P 
8665 
6664 
866S 
8666 
866-' 
8668 
6669 
66 70 
8671 
86 72 
867? 
66 74 
86 75 
86 76 
8677 



070656 
7^>66^ 
70666 
706 7? 
70674 
070676 
070702 
070702 
70 704 
070706 
070710 
070712 
070712 



070714 
070720 
070722 
070726 
070730 
070752 
070756 
070756 
070740 
070742 
070744 
070 746 
070746 
070750 
070756 
070764 
070766 



70 7 70 
070776 
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t****«**«****************^*4«*******«*4.******«4>«*«*******444,**t«*4 



tl^SUF. Rt.WIND COMMAND TO SFIF.CTFD TAPK DRiVh 



004757 011104 

016501 00000.'^ 

012702 000200 

105407 

010004 

005257 002212 

104456 

001541 
075504 
012156 

104406 



26?! 



JSR 


PC. REWIND 


MOV 


TSSRCR5).R1 


MOV 


dSSH.R? 


BCS 


501 


MOV 


R0,R4 


INC 


TATFLG 



50$: 



ERRHRD tRRNO , T26RWN . PK TSbR 



CKLOOP 



iLOOP ir SELFCTEO 



TRAP 



READ MESSAGE HUfhER EXTENDED STATUS REGISTER i?ER0 (XSTO) 



015701 071660 

010102 

052702 000002 

020102 

001406 

005237 002212 

104456 
001542 
075015 
015564 

104406 

012737 000400 

015737 003114 

005705 

001404 



40»: 



0717^6 
071752 



Sr/i 0286 



iCAlL TAPE REWIND COMMAND 




iGET TSSR 




iStT UP eXPfcCTED TSSR 




iBR. IF NO PROBLEM 




iPACKET ADDRESS SET "JP 




iBUMP COUNT 




(REWIND NOT ACCEPTED 




TRAP 


C«fcRHfiD 


.WORD 


737 


.WORD 


T26RWM 


.WORD 


PKTSSR 



CtCl.Pl 



MOV 


T26BER»6,R1 


iPICK UP XSTO 




MOV 


R1.R2 


iSET UP EXPECTED 




BIS 


♦eiTl.R2 


iSET BOT BIT IN EXPECTED 




CMP 


Rl.R? 


iDOES EXP - REC-D 




BEQ 


401 


(BR. IF EQUAL (OK) 




INC 


FATFLG 


iBUMP CO^T 




ERRHRD 


ERRN0.T26B0T.EXPREC 


iTAPE NOT AT BOT AFTER REWIND 








TRAP 


ClFRHflD 






.WORD 


7 58 






.WORD 


T26B0T 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 








FRAP 


CJCLPl 


MOV 


0256. ,T26Si! 


iSET UP RECORD SIZE IN PACKET 




MOV 


rREE.T26RB 


(ADDRESS OF RtiO BUFFER 




T5T 


R5 


iCMECK NUMBER OF TIMES THROUGH 


HERE 


BEQ 


50 » 


iBR, IF FIRST TIME Th«OUGH HERE 





I 



iRERFAD.CVC-l.ACK COMMAND 



012757 161001 
00Q403 



071750 



MOV 0161001, T26PK3 
BR 551 



iREREAO.CVC-l.ACK COMMAND 
I SKIP NEXT COMMAND 



'%««««^%«««t4y«^«At«4.%««««A%4A4«4«A44^««4AA«4^«4, 



t REREAD. ACK COMMAND 



TSV 



H.U?nwrt«f llSTt* 1 vH 



TtST 6; REREADS 
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'.F ^ Or^M / 



6b. '^ 
8h '^ 
fthftO 
86P1 

868? 
868". 
8r^85 
8b86 
8687 
8668 
8689 
8690 
8691 
8695 



8696 

8697 
8698 
8699 
8^00 
8701 
870^ 
8 70 5 
8 704 
8705 
8706 
8707 
6 708 
8709 
8713 



8714 

8715 
87 16 

8717 



8718 
8/19 

8.-'^^0 
8721 



O.'IOOO 
071006 
071006 
07101^ 
071012 
071016 
071022 
071026 
071052 
071034 
071056 
071042 
071042 
071044 
071046 
071050 
071052 
071052 



071054 
071060 
071062 
071066 
071070 
071072 
71076 
071076 
071100 
071102 
071104 
071?06 
071106 
071110 
071112 
071114 
071114 
071114 
071116 
071124 
071126 
071X32 



012737 

012704 

010465 
004 7 5 7 
016501 
012702 
020102 
001406 
005237 

104456 
001545 
072743 
012136 

104406 



01j701 
010102 
052702 
020102 
001406 
005237 

10^456 
001544 
072074 
015564 

104406 
005103 
001261 



104403 
023727 
105402 
004 737 



141001 

071750 

000000 
016540 
000002 
100206 

002212 



71750 



iRJ-RFAO.ACi'' COMMAND 

jStT IJP R4 WITH PftCKhT ADDRe.^>S 

iISSiJE COMMAM) 

iWAIT f-OR S5R rO SfcT 

iGhT T3SR CONTKNTf, 

I SET UP tXPtCTtO 

I ARE THEY eOUAL 

;BR, IF OK 

iBUHP COUNT 

iTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

a.OOP IF SELECTED 

TRAP 



bOJ: 


MOV 


ftl41001. T,>6PI<3 


55$: 








MOV 


0T26PI<5,R4 


65$: 








MOV 


R4,TSDBtR5) 




JSR 


PC.uAirf 




MOV 


T5SRCR5).R1 




MOV 


0SSR!SC!BIT1!B1T2,R2 




CMP 


R1.R2 




BEQ 


751 




INC 


FATFLG 



75$: 



ERRHRD ERRNO , T26WDE , PK T SSR 



CKLOOP 



cjerhro 

7 59 

T 26 WOE 
PkTSSR 

C$CLP1 



• 4444*44*4>****4*4444**4*4***4**4*444 44<«4*********4 44>44«4*4*****4i«** 

; 

(READ MeS*;AGE BUFFER EXTE^^ED STATUS REGISTER ZERO CXSTO) 



071660 
002000 

002212 



MOV 


T26BFR»6.R1 




(GET XSTO STATUS WORD 






MOV 


R1,R2 




;SET UP EXPECTED 






BIS 


*eiT10,R2 




(SET THE NEF BIT 






CMP 


ni.R2 




(ARE THEY EQUAL 






BEQ 


170J 




(BR. IF ECXIAL (GOOD) 






INC 


FATFLG 




(BL^IP COUNT 






ERRHRD 


ERRNO, T26NEF, 


.EXPREC 


jNEF SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


ClERHRD 
740 

T26NFF 
EXPREC 



170$: CKLOOP 



002212 
01727a 



0000 IV 



999$! 



COM R3 

BNE 26$ 

ENOSue 



CMP FATFLG. 015, 

BLO 999$ 

vJSR PC.CKOROP 



TRAP C$CLP1 

(RESET THE SWITCH 
iBR. IF FIRST TIME THROUGH HERE 

L 10120: 

TRAP CJESUB 
(IS ERROR COLNT AT 25 
iBR. IF LESS THAN 25 
(TRY 10 DROP THE UNIT 



TtSI ♦>: HfcRtADS 



8 .\^4 
8 7P6 

e \^^ 

vS '-SO 

6 732 
8735 
8734 
8735 
8736 
8737 
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SF-Q Oc^«« 



8738 
8739 
8740 
8741 
8742 
8743 
8744 
8745 
8746 
8747 
8748 
8749 
8750 
8751 
8755 
8756 



8757 
8758 
8759 
8760 
8761 
876,^ 
8/63 
8764 
8765 
8766 
8767 
8768 
8769 
8773 
8 774 



8775 



07113c^ 
071132 
071132 
071134 
071140 
071144 
071150 



0711S4 
071160 
071162 
071166 
071170 
071170 
071172 
071174 
071176 
071200 



071212 
071216 
071220 
071224 
071226 
071226 
071230 
071232 
071234 
071236 



104402 
005037 
004737 
004737 
004737 



004737 
105407 
005237 
010001 

104455 
001345 
003650 
012124 
013737 



071206 012704 



004737 
103407 
005237 
010001 

104456 
001346 
005054 
012124 



072000 
074540 
074632 
074674 



016064 
002212 



002172 
071630 



010752 
002212 



jTFST 6, SUBTtST 15 

ivtRIUFS THAT REREAD PREVIOUS WITH QPP-l (SPACE 
jREVERSE, READ FORWARD) AND REREAD PREVIOUS WllH UPP'l 
iCRFAD REVERSE, SPACE FORWARD) ISSUFD WHEN THE TAPE 
;P0SITI0NED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 
iNOT AT BOT> CAUSES TAPE STATUS ALERT TERMINATION WITH 
iTHE REVERSE INTO BOT CRIB) STATUO BIT SET. 



BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST ^> >>>>>■>>>> > 

T6.15: 

TRAP CJBSoe 
I CLEAR OUT COUNTER 
I SET COiiMANO PACKET 
J SET UP OTHER COHMANO PACKET 
J SET UP OTHER COflMAND PACKET 

! ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 
* 



CLR 


T26CNU 


JSR 


PC.T26REST 


JSR 


PC,T26RT2 


J5R 


PC.T26RT3 



071650 20J: 



JSR 


PC.SOFINIT 


|D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


jBR IF INIT WAS OK 




INC 


FATFLG 


(BUMP CC INT 




MOV 


RO.Rl 


iCONTENla OF TSSR REGISTER 




ERRDF" 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 








TRAP 


CiERDF 






.WORD 


741 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNTTN,T26DSW 


jSET UP UNIT NUMBER 





MOV 



0T26PACKET,R4 



iSl^ROUTINE NEEDS PACKET ADDRESS 



JwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



25*: 



JSR PC.WRTCHR 

BCS 25* 

INC FATFLG 

MOV RO.Rl 

ERHHRD ERRNO . WRTMSG , SFIMSG 



CKLOOP 



(ISSUt WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUtD OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
jWRITe CHARACTERISTISC FAILED 

TRAP 
.WOPD 
.WORD 
.WORD 
(LOOP IF SELECTED 



CiERHRO 
742 

WRTMSG 
SFIMSG 



Tsv: 



HARDWAHF. TtSTS 1-6 



TfcST 6: REREADS 



sn6 

8777 
8776 
8779 
8760 
c*"81 
8 '82 
8783 
8784 
8785 
8786 
8787 
8788 
8792 



8793 

8794 
8795 
8796 
8797 
8798 
8799 
8800 
8801 
8802 
8803 
8804 
8805 
8806 
8810 



8811 

8812 
8813 
8814 
8815 
8816 
8817 
8818 
8819 
8820 
8821 
8822 
8823 
6824 
8825 
6829 



071236 10440b 



071240 
071244 
071250 
071254 
071256 
071260 
071264 
071264 
071266 
071270 
071272 
071274 
071274 



004737 
016501 
012702 
103407 
010004 
005237 

104456 
001347 
073304 
012136 

104406 



071276 
071302 
071304 
071310 
071312 
071314 
071320 
071320 
071322 
071324 
071326 
071330 
071330 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
001350 
073015 
015564 

104406 



071332 
071336 
071542 
071344 
071350 
071352 
071356 
071356 



012703 
004737 
103411 
016501 
010004 
005237 

104456 



011104 
000002 
000200 



002212 



071660 
000002 

002212 



000001 
010556 

000002 

002212 
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TRAP 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



26$ 



JSR 


PC, REWIND 


MOV 


TSSR(R5).R1 


MOV 


<?SSR.R2 


BCS 


50 J 


MOV 


R0,R4 


INC 


FATFLG 



30$ 



ERRHRD ERRNO . T26RWN . PKTSSR 



CKLOOP 



I CALL TAPE REWIND COMMAND 

;GET TSSR 

iSET UP EXPECTED TSSR 

iBR. IF NO PROBLEM 

I PACKET ADDRESS SET UP 

J BUMP COUNT 

iREWIND NOT ACCEPTED 



tLOOP IF SELECTED 



TRAP 
.WORD 

.WORD 
.WORD 



TRAP 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

4* A****** ******** **************** AAA^^A^AAAAA^t + A** ******* A* *4*4l*** 

jPICK UP XSTO 

jSET up expected 

iSET BOT bit in expected 
(DOES EXP • REC'D 
;BR, if equal COK) 
jBUMP COi^T 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
,WOR0 



MOV 


T26BFRf6.Rl 


MOV 


R1,R2 


BIS 


*eiTl.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T26B0T . EXPREC 



40$ 



CKLOOP 



MOV 


*000001.R3 


JSR 


PC. SPACE 


DCS 


75$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 



C$CLP1 



CJERHRD 
743 

T26RWN 
PKTSSR 

C$CLP1 



TRAP 

*****************4i****4,*«4,**************************************** 

ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1-REVCRSE 

{ ****i»******4ii|i*«*«**********4i************************************** 

I SET UP SPACE FORWARD 1 RECORD 
(ISSUE SPACE COMMAND 
(BR. IF OK 
(GET STATUS DATA 
;GET PACKET ADDRESS 
(BL^iP COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP 



C$ERHRO 
744 

T26B0T 
EXPREC 

C$CLP1 



SEQ 0269 



ERRHRD ERRNO, T26UDE . PKTSSR 



C$ERHRD 



TSV' - HAROWARt TtSTS 1 8 
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TaST 6: RERF.ADS 



8330 

8851 
8852 

8834 
8855 
8850 
8837 
8858 
6839 
8840 
8841 
8842 
8845 
8844 
8848 



8849 

8850 
8851 
6852 
8855 
8854 
8855 
8856 
8857 
8858 
6859 
8860 
8861 
6862 
8863 
8864 
8865 
8866 
6867 
8868 
8869 
8870 
8871 
8872 
8875 
8874 
6875 
8876 
8877 
8878 
6882 



071360 
071362 
071364 
071566 
071366 



001351 
0^^74 3 
012136 

104406 



071370 
071374 
071400 
071402 
071406 
071410 
071414 
071414 
071416 
071420 
071422 
071424 
071424 
071426 
071434 
071440 



012705 
004737 
103411 
016501 
010004 
005237 

104456 
001552 
072745 
012136 

104406 
015757 
005737 
001404 



100001 
010556 

000002 

002212 



003114 
072000 



071442 
071450 



012757 
000403 



071452 
071460 
071460 
071464 
C71470 
071474 
071500 
071504 
071506 
071510 
071514 
071514 



012737 141001 



012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



071750 
000000 
016340 
000002 
100204 



002212 



071752 



161001 071750 



SEQ 0290 



75$: 



CKLOOP 



jLOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



745 

T26WDt 

PKT'-.SR 

CJCLPl 



MOV 


dl00001.R5 


JSR 


PC. SPACE 


BCS 


175$ 


MOV 


TSSRCR5),R1 


MOV 


R0,R4 


TNC 


FATFLG 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUHBER OF RECORDS 
BIT 15 SETS Du'-^tCTION - 0-FORWARD 1-REVERSE 

iSET SPACE REVERSE 1 RECORD 

! ISSUE COMMAND 

;G0 ON IF ALL IS WELL 

:GET TSSR CONTENTS 

iSET UP EXPECTED CPACKET CONTENTS) 

;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAP CJERhRD 
.WORD 
.WORD 
WORD 
175$: CKLOOP jLOOP IF SELECTED 

TRAP 
1 ADDRESS OF BUFFER 
iCHECK FOR TIMES THROUGH HERE 
iBR, IF FIRST TIME THROtX.H 

REREAD (PREVIOUS). IE. ACK,0PP-1 CMO. 



ERRHRD ERRN0,T26WDE.PKTSSR 



746 

T26WDE 
PKTS5R 

C$CLP1 



MOV 


FREE.T26RB 


TST 


T26CNU 


BEU 


176$ 



MOV 0161001, T26PK3 
BR 178$ 



jREREAD (PREVIOUS). IE, ACK.0PP«1 CMO. 
;SKIP NEXT COMMAND 



I REREAD ,ACK,0PP«1 COMMAND 
! 



071750 176$: 
176$: 



MOV #141001 »T26PK3 

MOV 0T26PK3.R4 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV «S5R!SC!BIT2,R2 

CMP R1.R2 

BEQ 180$ 

INC FATFLG 

ERRHRD ERRNO. T26W0E , PKTSSR 



1 REREAD .ACK.OPPn COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

i issue COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

iSET UP EXPECTED 

J ARE THEY EQUAL 

:8R. IF OK 

I BUMP COUNT 

jTSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 



TSV7 HARDWARE. TtSTS 18 
TEST 6: REREADS 
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6835 

8884 
8885 
8c^86 
888' 
888^. 
8069 
8893 



8894 

8895 
8896 
8897 



8893 
889*^ 
8900 
8901 
8902 
8903 
8904 
8905 
8906 
8907 
8908 
6909 



071516 
071520 
071522 
071524 
071524 
071526 
071552 
071534 
071540 
071542 
071544 
071550 
071530 
071552 
071554 
071556 
071560 
071560 
071562 
071566 
071570 
071570 
071570 
0V1572 
071600 
071602 
071606 



071606 
071612 
071614 
071620 
071620 
071620 
071622 



001353 
072743 
012136 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001354 
072074 
015564 

104406 
005137 
001224 



104403 
023727 
103402 
004737 



004 737 
103002 
000137 



104432 
00i)102 



SEO 0291 



180$: 



CKLOOP 



071666 
000001 

002212 



MOV 


T26BrR.14.Rl 


MOV 


R1,R2 


BIS 


«BIT0,R2 


CMP 


R1,R2 


BEQ 


190$ 


INC 


KATFLG 


ERRHRp 


ERRNa,T26NEF,EXPREC 



190$: 



072000 

002212 
017272 

016546 
055444 



000017 



999$ 



163$: 



CKLOOP 

COM 
BNE 
ENDSUB 



CMP 
BLO 
JSR 



JSR 
BCC 

JMP 

EXIT 



LOOP IF SELECTED 

GET XST3 ST^XTUS WORD 

SET UP EXPECTED 

SET THE NEE BIT 

ARE THEY EQUAL 

BR. IF EQUAL (GOOD) 

BUMP COUNT 

NEF SHOULD BE SET 



.WORD 
.WORD 
.WORD 

TRAP 



74 7 

T26WDE 

PKT05R 

C$CLP1 



TRAP 


C$ERHftD 


.WORD 


748 


.WORD 


T26NEF 


.WORD 


EXPREC 



T26CNU 
26$ 



FATFLG,*15. 

999$ 

PC . CKDROP 



PC.TSTLOOP 

165$ 

T26L00P 

TST 



TRAP C$CLP1 
SET SWITCH THE OTHER WAY 

BR. IF FIRST TIME THROUGH 
■>>>>>•>>>>•>>> END SUBTEST >>>>>>>>>>>> 

L10121: 

TRAP C$ESUB 
IS ERROR COUNT Ai 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



(CO WE NEED TO ITERATE TEST 
:BR. IF NO LOOP REQUIRED 
;EXECUTE AGAIN 



;ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
Ll0i02 



Tsv.' - hardware: rtsrs i-o 

TLST 6: RtRfcADb 



8911 
8912 
8915 
891S 
8917 
8916 
8919 
8920 
8921 
8922 
8925 
8924 
8925 
8926 
8927 
8928 
8929 
8950 
8951 
8955 
8955 
8956 
8957 
6953 
8959 
8940 
8944 
8945 
8946 
8947 
8948 
8949 
6950 
8951 
6952 
8955 
8954 
8955 
8956 
8957 
8958 
6959 
8960 
8961 
8962 
8965 
8964 
8965 
8966 
8967 
8968 
8969 
8970 
8971 
8972 
8975 
8974 



071650 
071650 
071652 
071654 
071656 
071640 
071640 
071642 
071644 
071646 
071650 
071652 



C71740 
071740 

071742 
071744 
071746 

071750 
071750 
071752 
071752 
071754 
071756 



071760 
071760 
071761 
071762 
071764 



071766 
071770 
071772 
071774 



071776 
072000 



071650 

014004 
071640 
000000 
000012 

071652 
000000 
000024 
000000 
000000 



071740 

100006 
071760 
000000 
000006 



140005 

005114 
000000 
000000 



010 

200 

000000 

000000 



140001 
141401 
161401 
177777 



000000 
000000 
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LOCAL STORAGE FOR THir> TEST 

.-' . »10>£1?7770 
T26PACKE1 : 

.WORD 14004 

-WORD 126DATA 

.WORD 

.WORD 10. 
T26DATA: 

.WORD T26BrR 

. WORD 

.WORD 20. 

.WORD 

T26DSW: .WORD 

T26BFR: .BLKW 25. 

WRITE StJBSYSTEM MEMORY COMMAND PACKET 

.><.*10>6177770 



SEG 0292 



T26PK2: 



.WOf^D 
.WORD 
.WORD 
.WORD 



100006 

T26BF2 



6. 



T26PK5: 

T26RB: 
T26WB: 

T26SZ: 



T26BF2 
T26BS0 
T26BS1 
T26S2: 
T26S3: 
I 



.WORD 140005 



.WORD 
.WORD 
.WORD 
.EVGN 



.BYTE 
.BYTE 
.WORD 
.WORD 



FREE 







10 
200 





.EVEN 
J TAPE MOTION PACKET COMMAND VALUES 



T26RN: 



T26CNT 
T26CNU 



WORD 
WORD 
WORD 
WORD 



.WORD 
.WORD 



140001 
141401 
161401 
177777 



; COMMAND PACKET FOR TfcST 

jWRTTE CHARACTERISTICS COMMAND, WITH CVC=1, ACK 

I ADDRESS or CHARACTERISTICS BLOCK 

; STARTING VALUE OF BLOCK SIZE 
J CHARACTERISTICS DATA BLOCK 
; ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAC ■. BUf-'FER 

;SELECT DRIVE 
; MESSAGE BUFFER 



;WRITE sue SyG mem COMMAND. AND ACK 
; ADDRESS OF SELECT BLOCK DATA 

J SIZE OF DATA PACKET 



REREAD COMMAND. CVC-1 AND ACK 
ADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 



jBSELO AREA 
;USFL1 AREA 
jSEL 2 AREA 
J DATA AREA 



072002 000000 



T26RSZ: .WORD 



(READ DATA 
jREREAD NEXT OPP-0 
iPEREAD NEXT OPP-1 
J END OF DATA 



I TAPE RECORD COUNTER STORAGE AREA 
J TAPE RECORD COUNTER STORAGE AREA 

t RECORD STORAGE SIZE AREA 



Tsv: ■ H/WOWARh ThSTS 1 -.H MACRO Ml?00 ,»^ MAR-i^A 0-):41 PACit ttV-l 

TEST 6: RF.RF.ADS ^^'' ^^^'' 

897S 072004 000000 r»^6DLY i .WORD ;UtLAY COUNTtR ARtA 



TSV^ - HARDWARF: ItSTS 16 

TEST 6; REREADS 

8978 
89; 9 
8980 
8981 
898? 
8983 

8984 072006 124 141 

8985 072074 1?2 105 

8986 072156 124 125 

8987 072225 122 105 

8988 072322 122 105 

8989 072417 120 117 

8990 072501 J22 111 

8991 072551 124 12? 

8992 072626 111 154 

8993 072707 122 105 

8994 072"^43 124 123 

8995 073015 124 141 

8996 073062 104 141 

8997 073150 122 105 

8998 073^27 124 12 3 

8999 073304 122 145 

9000 073353 122 101 

9001 073426 124 123 

9002 0734 75 104 162 
9005 073550 124 123 

9004 073640 124 123 

9005 073713 103 126 

9006 073766 124 123 

9007 074041 127 122 

9008 074130 122 145 

9009 074212 122 145 

9010 0742 M 122 145 

9011 074362 122 145 

9012 074450 104 141 

9013 074527 122 145 
9014 

9015 

9016 

901/ 

9018 

9019 

9020 

9021 

9022 0/4540 

9025 074540 

9024 074544 012701 07165C 

9025 074550 012721 140004 

9026 074554 012721 071640 

9027 074560 005021 

9028 07456? 012721 000012 

9029 074S66 012721 071652 

9030 074572 005021 

9031 074574 012721 000024 
9C32 074600 005021 

9053 074602 012711 000000 

9034 074606 012702 000030 
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SFO 0294 



160 
122 
123 
1?2 
122 
123 
102 
123 
154 
122 
123 
160 
164 
122 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
164 
162 



LOCAL TfcXT Mh^jSAGhS FOR TfcST 



T26WNG 

T26NEF 

T26RDF 

T26RRF 

T26RRG 

T26SC: 

T26L0R 

T;^6W0F 

T26L0Q 

T26SSR 

T,?6W0E 

T26B0T 

T26DTA 

T26E0T 

T26TM: 

T26RWN 

T26RNC 

T26AM3 

T260rL 

T26U00 

T26WDC 

T26VCK 

T26BA: 

T26WSS 

T26L0N 

T26L0P 

T26PBP 

T26TRL 

T26NEQ 

TST26ID 

t * 



.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCi;? 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



NEF CXSTO)' 



Tape Position Incorrect After REREAD Previous COPP^l) 
REREAD PREVIOUS. At BOX. Failed To Set 
TS5R Incorrect AFter READ DATA Co*Twi»nt*' 
REREAD Previous (Space Reverse, Read Forward 
REREAD Previous (Read Reverse, Space Forwaro' > 



Command 

Command 



POSITION (Space Command) Failed, TSSR Not C^'iect 
RIfl NOT SET AFTER READ REVERSE INTO SOT' 
TSSR Not Correct Pfter Illegal Mode Bits Set' 
Illeoal Mo<ie Bits, Failed To Set ILC Bit In XSTO' 
REREAD COMMAND Not Accepted' 
TSSR Not Correct After WRITE DATA Command' 
Tape Not At BOT After REWIND Command- 
Data Written To Tape Not Eoual T; Data Read From Tape' 
REREAD DATA OVER EOT GAVE NO TAPE STATUS ALfRT' 
TSSR Not Correct Aft*r REREAD C0^*•'.AN0 Reject' 
Rewind (POSITION) Command Noi Arceptv-d' 
RAM Error. Correct Data Pattern '»iot 'n Ram' 
TSSR r.-^It. Failed After R^^.PEAD L*C>MMAn0' 
Lrive 7 Select Failed T-t Set "OFL" In TSSR' 
TSSR Not Correct After REREAD DATA Command. 

HEREAO 

VCK In 

REREAD 



^ a ■ led 
Foiled 



TSSR Hot Correct After 
CVC Set. Di<^' ' t Reset 
T5BA Hot Correct After 
WRITE SUBSYSTEM MEMO«> 
Reading Long Record Failed 
Reading Long Record Failed 



iWB Bit Set' 



DATA Command' 

Message Buffer' 

DATA Command' 
Command Not Accepted (RAM Read)' 
To Set RLL Bit In XSTO' 
To Set RLS Bit In XSTO' 



Residual Byte Count Incorrect After Short Record Read 
Reading Long Record Failed To Give Tape Status Alert 
Data REREAD From Tape Not Correct, After SWB-1' 
ASCIZ 'Rereads' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SL«SYSTEM MEMORY COMMAND 



T26REST: 



SAVREG 

MOV *T26PACKET,Rl 

MOV «1400O4,(Rl ). 

MOV 0T26DAT^,(R1)» 

C" R CR1)» 

MOV «10. .(Rl)» 

MOV *T26BFR,(Rl)f 

CLR (Rl)» 

MOV «>o. .(Rn* 

CLR (RD* 

MOV 00, (R.) 

MOV 024. ,R2 



jSAVt THE REGISTERS 

(START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK . C\'Z 

I ADDRESS l^ CHARAISTTCS DATA BLOCK 

(EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

(ADDRESS or MESSAGE BUfFFR 

{LENGTH Of MESSAGE BUFFER 

(SELECT DRIVE ZERO (0- 

(NUMBER OF LOCATIONS TO BE CLtARED 



TSV* HARDWARE IhSTS 1 ti 
ThSl 6: RERtADS 
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40^S 
9056 
905? 
9056 
9039 
9040 
9041 
9042 
904 3 
9044 
9045 
9046 
904 7 
9048 
9049 
9050 
9051 
90S2 
9053 
9054 
9055 
9056 
9057 
9053 
9059 
9060 
9061 
90b2 



074612 
074620 
74622 
074626 
074630 



74632 
074632 
074656 
074642 
074646 
074652 
74654 
074660 
07466:? 
074666 
074670 
074672 
074674 
074674 
074700 
074704 
074710 
074714 
074716 
074722 
M 724 
074 724 
0747^4 



012 762 
00574? 
02022 7 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



177 77 7 
000000 



0('1740 
140006 
071760 

000006 

071760 



071750 
000000 
000000 

000000 



64 $ : MOV 


'n. ////7,T26BFR(Rt 


TST 


(R2) 


CMP 


R2,/?0 


HNt 


64$ 


RTS 


PC 


T26RT2: 




SAVREG 




MOV 


0T26PK?,R1 


MOV 


tfl40006.(Rl)» 


MOV 


^T26BK2.CR1)» 


CIR 


(RD* 


MOV 


#6. .CRD* 


CLR 


(ni)* 


MOV 


^'>T26BF2,R1 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


T26RT3: 




SAVREG 




MOV 


0T?6PK3,R1 


MOV 


do.cni^* 


MUV 


*0,CR1)* 


CLR 


(Rl)» 


MOV 


«0,CR1) i 


RTS 


PC 


ENDTST 





lAL.l ONLS TO MtSSAGF' H'jfFf-R 

jNexr LGCATION 
CHFCK KOR tNO 0^ I OOP 
i<f-:tP f.OING UNTIL OONE 
RE rURN 



I SAVE THE REGISTERS 

I START or THt PACKET 

iWRITE SUB'^iYSTEM MEM. WITH ACK,CVC = 1 

;ADDRESS 0^ DATA BLOCK 



I EXTENDED AODRE 



'- J J 



SI7E OF DATA BLOCK IN BfTES 
J POINT TO DATA SEE AREA 



:RETURN 

■SAVE THE REGISTERS 
J START or THE PACKET 
;WRIT£ SUBSYSTEM MEM. WITH ACK. 
: ADDRESS OF DATA BLOCK 
jEXTENOED ADDRESS 
iSl/E OF DATA BLOCK IN BYTES 
;RETURN 



L10102t 



TRAP 



C$ETSr 



TSV/- HARDWARE. TKSTS I 8 
TtST 7: WRITf. DATA RtTRi 



9064 
90^S 
9066 
906-' 
9068 
90b9 

■-K) '0 
90 ,' 1 

90 ;2 

9075 
9074 
9071) 
9076 
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SEQ 0^96 



9077 
9076 
9079 
9084 
9065 
9086 
9087 
9068 
9089 
9090 
9091 
909? 
9093 
909.", 
909*3 
9096 
9097 
9098 
9099 
9100 
9101 
9102 



9103 
9104 
910S 
9106 
9107 
9106 
9109 
9110 
9111 

911:? 

9115 
9114 
9115 
9116 
9117 



0747^6 
074726 
074726 
074754 
074740 
074744 
074 750 
074 754 
074762 



074 766 
074766 
074766 
074766 
74 7/0 
074774 
/5000 
075004 
075012 



075016 
075022 
075024 
075024 
075050 
075052 
075036 



012737 
005037 
004737 
012700 
004 737 
012737 
005037 



104402 
004757 
004 737 
004737 
012737 
005037 



004 737 
105426 

012727 
000000 
015727 
000000 



.SUTTL TtST 7: WRITE DATA RETRY 



THIS TESl VEHIFTES PROPER OPERATION Oi- THt URTTE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE. WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 



OGNTST 



006446 
003124 
017364 
104545 
016600 
000005 
101606 



002170 



002206 



MOV 


0EPRT2.EP <TSW 


CLR 


KTENABLE 


JSR 


PC.KTOFF 


MOV 


^T5T27ID.R0 


JSR 


PC.TSYSETOP 


MOV 


«5.L00PCNT 


CLR 


T27CNT 



T7: ; 
SECONDARY ERROR MESSAGE 
TURN OFF KTll 

TURN KTll BACK OFF I^ THERE 
ASCII MESSAGE TO IDENTIFY TbST 
DO INITIAL TEST SETUP 
PERFORM 5 ITERATIONS 
; CLEAR TAPE RECORD COUNTER 



TEST 7. SUBTEST 1 



VERIFIES THAT A WRITE DATA RETRY C0MMANi3 ISSUED JHIl E 
THE TAPF IS POSITIONED AT S^OT CAUSES FLfJCTION REvJECT 
TERMINATION. WITH THE NON-EXECUTABLE FUNCTION (NEF'j 
ERROR BIT SET. 



T27LU0Pr 



104564 
: 04656 
104720 
1''6750 
101606 



101612 



BGNsue 



JSR 
JSR 
JSR 
MOV 
CLR 



f^C.T2i'R! ST 
PC.T27RT2 
PC,T27RT5 
065000. .T27DLY 
T27CNT 



J >>>>^>>-.>>^> BEGIN SUBTEST ^ >>>> ^ % > •»> ^ > 

T7.1: 

TRAP CSBbUB 
J SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;5ET UP OTHER COMMAND PACKET 
iSET UP DELAY COUNTER 
I CLEAR COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE ^ CARRY BIT CLEAR IF ERROR 



016064 



000250 
002116 



10$; 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20$ 

250 



J 00 INITIALIZE HN CONTROLLER 

:BR If INIT WAI; UK 

i DELAY ABOUT .25 SEC 

MOV 
.WORD 
MOV 
.WORD 



0250. C PC 1* 


LJDLY.tPC)* 




TSV/ H'\RDWARfc. ThSTS 1 S 
TtSr 7: I-'PITE: data RLTRi 
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*)118 
911S 

■•npo 

9L.?4 
9U5 



91?6 
91.>7 

'^lr>9 

JlJO 
9131 

9153 
9154 
9135 
9136 
9137 
9141 
9142 



9143 

9144 
914S 
9146 
91^7 
9148 
9149 
9150 
9151 
915? 
9153 
9154 
9158 



9159 

9160 
9161 
9163 
9163 
9164 
9165 



075040 

075044 
075046 
07505^ 
075054 
075060 
07506? 
075066 
075070 
075070 
075072 
075074 
075076 
075100 
075106 



00S36/ 
001375 
00536/ 
001367 
005337 
001356 
00SP37 
010001 

104455 
001275 
003650 
0i;?124 
013737 
012704 



07511? 
075116 
075120 
075124 
C75126 
075126 
0/5130 
0/5132 
075134 
075136 
075136 



004737 
103407 
005237 
010001 

104456 
001276 
005054 
012124 

104406 



C75140 
075144 
075146 
0/5150 
075154 
075154 
075156 
075160 
075162 
075164 
075164 



004 737 
105407 
010004 
005237 

104456 
001277 
102765 

012136 

104406 



1/7772 
177756 
101612 
002212 



0021/2 
101440 



010752 
002212 



011104 
002212 



101460 20$ 











SEQ 0297 






DbX 


-6CPC) 








BNK 


. -4 








DF.C 


-22CPC:) 








BNF. 


. -20 




DtC 


T27DLY 


jBUMP COUNTEiR 






BNt 


10$ 


;BR. IF COUNTER NOT DONE 






INC 


FATFLG 


:BUMP COUNT 






MOV 


RO.Rl 


iCONTPNTF) OF TSSR REGI^TFR 






ERRDF 


ERRN0,SFIERR.SFIM3G 


jFATAl ERROR TSSR WAS NO^ OK 

TRAP 
.WORD 
.WORD 
.WORD 


CiFRD*^" 
701 

SFIERR 
SFIMSG 




MOV 


UNITN,T27DSW 


;SET UP DRIVF, NUMBER 






MOV 


ftT27PACl<t:T,R4 


jSUBROUTINF NEEDS PACKET ADDRESS 





WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 



25$: 



JSR PC»WRTCHR 

BCS 25$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTM5G . SFIMSG 



CKLOOP 



ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 
BUMP COL'NT 

SAVE CONTENTS OF TSSR 
: WRITE CHARACTERISriSC TAILED 

TRAP 
.WORD 
.WCfiD 
.WORD 
iLOOP IF SELECTED 

TRAP 



C$ERHRD 

702 

WRTMSG 

SFIMSG 

C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



30$ i 



JSR PC, REWIND 

BCS 30$ 

MOV R0,R4 

INC fATFLG 

ERRHRD ERRNO . T27RWN . PKTSSR 



CKLOOP 



;CALL. TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

tSET UP REWIND PACKET ADDRESS 

J BUMP COUNT 

(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

iLQOP IF SELECTED 

TRAP 



C$ERHRD 

703 

T27RWN 

PiaSSR 

C?CLP1 



READ MESSAGE BUFFER E>^ ENDED STATUS REGISTER ^ERO (XSTO) 



TSV/ ■ HARDWARK TLSTS 1-8 
TEST 7: WRTTb: DATA RF.TRr 



MACRO Ml^OO :.^?; MAR-84 09;44 



PAGt. 69 ^ 



SFQ 0^98 



9166 
916^ 
9168 
9169 
9170 
91/1 

9176 



917 7 

9178 
917^* 
9180 
918.1. 
918.' 
918.^ 
9184 
9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9199 



9200 

9201 
920? 
9203 
9204 
9205 
9206 
9207 
9208 
9209 
9210 
9211 
9212 
9213 
9217 



075166 
075172 
075174 
075200 
075202 
075204 
075210 
075210 
07S212 
0/5214 
0/5216 
075220 
07522C 
075222 
075230 



075236 
075244 
075250 
075254 
075260 
075264 
075270 
075272 
075274 
075300 
075300 
075302 
0/5304 
075306 
075310 
075310 



075312 
075316 

075320 
075324 
075326 
0/5330 
075334 
075334 
075356 
075340 
075342 



01370i 
010102 
052702 
020102 
001406 
005237 

104456 
001300 
102461 
015564 

104406 
012737 
013737 



012737 
012704 
010465 
CC ^37 
016501 
012702 
020102 
001406 
005237 

104456 
001301 
102372 
012136 

104406 



013701 
010102 
C52702 

020102 
001406 
005237 

104456 
001302 

i04:n 

015564 



101470 
000002 

002212 



000400 
003114 



141005 
101560 
000000 
016340 
000002 
100206 



002212 



101470 
002000 

002212 



MOV 


T2/BrR*6,Rl 


MOV 


R1.R2 


BIS 


V>BIT1,R2 


CMP 


R1,P2 


Fieo 


40$ 


INC 


FATFl.G 



ERRHRD ERRNO . T27B0T . EXPREC 



40$ 



10x566 
101562 



CKLOOP 

MOV 
MOV 



#256. .T2/SZ 
KREE,T27WC 



PICK UP X5T0 
SET UP EXPECTED 
SF.r BOT BIT IN EXPECTED 
DOES EXP = REC'O 
BR, IF EQUAL iQ\<^ 
D'JMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP U SELECTED 

TRAP 
;SET UP RECORD SIZE 
jADDP^.SS or WRITE BUFFER 



C$ERHRD 
704 

T27B0T 
EXPREC 

C$CLPl 



WRITE DATA RETRY .ACK.CVC-1 COMMAND 



101560 



5$ 



MOV 0141005. T27PK3 

MOV #T27PI<3,R4 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV TSSRCR5).R1 

MOV flSSR ! SC ! BITl ! BIT2 , Rli 

CMP R1.R2 

BEQ 75$ 

INC FATFLG 

ERRHRD ERRNO . T27WDE , PKTSSR 



CKLOOP 



WRITE DATA RETRY , ACK,CVC»1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 
BUMP COUNT 
TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 

.WORD 

.WORD 

.WORD 
LOOP IF SELECTED 

TRAP 



705 

T27WDE 

PKTSSR 



CiCLPl 



READ MES3AGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 


T?/BFnt6.Rl 


MOV 


R1.R2 


BIS 


^IT10.R2 


CMP 


R1.R2 


BEQ 


170$ 


INC 


FATFLG 



ERRHRD ERRNO. T27NEF, EXPREC 



;GET XSTO STATUS WORD 






.SET UP EXPECTED 






;SET THE NEF BIT 






lARE THEY EQUAl 






;BR. IF EQUAL (GOOD) 






:BUMP COL'NT 






;NEF SHOULD BE SET 








TRAP 


C$ERHRD 




.WORD 


706 




WORD 


T2/NEt 




.WORD 


EXPREC 



TtST 7; URITK DATA Rt UU 



MACNU Ml.Hn^ r' M(\U Hrt n-i.^/j f>Al,t M'^ », 



075544 10440'> 
9.n9 0rS54fi 

075546 

075546 104405 
^.^u^O o;5550 0^^57<\' OOc'.M.' OOOOl " 
^V.n 0755r^6 10540c^ 
-^..V^ 0755f.O 00473? 01 7t>7J 
<i^^^ 075564 SySJj 



r ND .» fi 



Hi '• 



f A T M ( . . (t 1 • • . 
PC.Ci<Of»OP 



rPAP CJCLPl 

I lOliM: 

i r, f RROh co'/jr AT /•', 
jBR. If I r.s Than <^^ 

I TRY TO OROP THE »JNIT 



'.F.0 Oc^99 



TtST ■: WRITt DATA RbTRi 



MACRO MK\)0 ." MAR H^ <)')', AA PA(1I- 'KJ 



'A^i (J '>(»(} 



»4 ;> *> ' . 

923 7 
^2S8 



9? 59 
9240 
9241 
924.- 
924 3 
9244 
-*245 
924ti 
924 7 
9248 
9249 
9250 
9251 
9255 
9256 



9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9272 
9273 



9274 

92 75 
9t;V6 



75564 
075364 
075564 
75366 
075572 
075376 



075402 
075406 
075410 
075414 
075416 
075416 
075420 
075422 
075424 
075426 
075454 



075440 
075444 

075446 
075452 
075454 

075454 
075456 
075460 
075462 
075464 
075464 



104402 

004737 104564 

004 757 104656 

004737 104720 



004737 016064 

105407 

005237 002212 

0100t:il 

104455 

001503 

005650 

012124 

015737 0021 12 

012704 101440 



004757 010752 

105407 

005257 002212 

010001 

104456 
001504 
005054 
012124 

104406 



101460 



TTST 7. SUUt-sr 2 

VLHU IKS IHAI WRITF DATA RtTRr COMMAND VY.yjiiV) WHriF 
THf TAPt IS P0SITI0Nf:D BEMlRf THf riRSl Rt CORD ON 
TAPe. (IH)T NOT AT 00 T ) Rf-'>'Jl IS IN 1 APh STATUS AlfRT 
TFRMINATIUN, WITH THb RtVtRSE INTO BOT (RIB) STATUS 
ERROR BIT SFT. 



BGNSUB 



T7.2: 

TRAP C$BS'JB 
I SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

1 

1 issue: CONTROIXER "SOET" INTTIALI/E - CARRt BIT Cl.EAR \V ERROR 



JSR 


PC.T27REST 


JSR 


PL. T2 7RT2 


JSR 


PC.T27RT5 



}«*«j»4t 


K******* 


«i«*«**«*«*«««««*«*4t««*4 








JSR 


PC.SOEINIT 


iDO INITIALIZE ON CONTROLLER 






BCS 


201 


(BR IF INIT WAS OK 






INC 


KATELG 


iBUMP COUNT 






MOV 


HO.Rl 


jCONTENTS or TSSR REGISTER 






ERRDF 


ERRNO.SriERR.sriMSU 


lEATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


C»ERDE 
707 

sriERR 

SEIMSG 


20i: 


MOV 


UNITN,T27DSU 


iSET UP DRIVE NUMBER 




• A A A A A^ 


MOV 


0T27PACKET.R4 


t SUBROUTINE NEEDS PACKET ADDRESS 


J • * ^ # ♦ 

! WRITE 


CHARACTERISTICS COMMAND (CALL 


TO WRTCHR) 





l**4*************«********«<i«*4'***44>4***************«*****«****«*** 



25 J 



JSR PC. WRTCHR 

BCS 25$ 

INC FATFLG 

MOV PO.rtl 

ERRHRD ERRNO , WRTMSG . SF IMSG 



CKLUOP 



ilSSUt WRITE CHARACTERISTICS 
)BR. IF COMMAND ISSUED OK 
iBUMP COUNT 

(SAVE CONTENTS OF TSSR 
iWRITE CHARACTERI5TISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
il OOP If SELECTED 

TRAP 



C$t>i.. "' 
708 

WRTM-.;l» 
S^ IMSt; 

CUXPl 



[*4L%^««t + + *-)«^*«i^4(««*«4^=ti«4i««4i*4^44«4i«**4t44««**««4A*«**4i4i4*4«44**4«4i4i 



TtST 7: WRITf DATA RtTHi 



MACRO Ml.^00 .'< MAtJ HA n".)./;o PA(i^ 'K) 1 



SF'i 0',0i 



9.^80 

9c^8c^ 

9^584 
9J85 
'>.^86 



9291 

929c? 
9293 
9294 
9295 
9296 
9297 
9293 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9310 
9314 



9315 

9316 
9317 
9315 
9319 
9520 
9521 
9322 
9323 
9324 
9325 
9326 
9327 
9351 



075466 
0754 72 
075474 
075476 
075502 
075506 
;5506 
075510 
075512 
075514 
075516 
075516 
075520 
075524 



075532 
075540 
075544 
075550 
075554 
075560 
075564 
075570 
075572 
075574 
075600 
075600 
075602 
075604 
075606 
075610 
075610 



075612 
075616 
075620 
075624 
075626 
075632 
075632 



004 737 
105411 
010004 
016501 

005237 

104456 
001305 
102765 

012136 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001506 
005111 
012136 

104406 



004737 
105411 
016501 
010004 
005237 

104456 



011104 



000002 
002212 



000400 
003114 



140005 
101560 
101566 
OOOOOO 
016:>40 
000002 
000200 



002212 



011104 

000002 
002^12 



101562 



101560 



-JSR 


PC.PFWINO 


HCS 


2b* 


MOV 


RO.PA 


MOV 


TSSHtR5)»Hl 


INC 


KATKl.C; 



jlSbUh Rl.WiND CUMMANO TO ^f.LFCTF.D TAPE' DRIVF 
t 

I CALL TAPf- REWIND COMMAND 

iBR. If" NO PROei.F.M 

(SET UP REWIND PACKET ADORE'iS 

iGET TSSR CONTENTS 

tBUMP COUNT 

jREWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
26$: CKl.OOP jLOOP IF SELECTED 

TRAP 
i STARTING RECORD SI/E 
J STARTING WRITE BUFFER ADDRESS 



tRRHRD tRRNO . T27RWN , P\< 1 SSR 



CKIOOP 

MOV 
MOV 



*25fc. .R5 

FREE,T27UB 



MOV 


0140005. T27PK3 


MOV 


«T27PK3.R4 


MOV 


R3. T27SZ 


MOV 


R4.TSOe(R5) 


J5R 


PCWAITF 


MOV 


TS5R(R5),R1 


MOV 


^?3SR.R2 


CMP 


R1.R2 


BEQ 


28 i 


INC 


FATFLG 



CJhRHRD 
709 

T27RWN 
PK-TSSR 

C$CLP1 



J 

iWRITE DATA.CVC-l.ACK COMMAND 
( 

;WRITE DATA, even. ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

tissue COMMAND 

(WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

iSET UP EXPECTED 

(ARE THEV EOUAL 

iBR. IF OK 

J BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP CIFRHRO 
.WORD 
.WORD 
WORD 

;LOOP IF SELECTED 

TRAP 



29$ 



ERRHRO ERRNO , WRTERR . PK TSSR 



CKLOOP 



710 
WRTERR 

PKTSSH 



CJCUPI 



; 

(ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
i 

;«4k4i4(4(*«4>***««4>*****«i*****«***************4 ****************** ****** 

I CALL TAPE REWIND COMMAND 

;BR. IF NO PROBLEM 

(GET TSSR CONTENTS 

; SET UP REWIND PACKET ADDRESS 

iBUMP COUNT 

IREWIND NOT ACCEPTED 

TRAP 



JSR 


PC. REWIND 


BCS 


30 « 


MOV 


TSSR(R5),R1 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO , T2 7RWN , PK T 5SR 



CJERHRO 



TSV7 HARDWARt. n.STS 1 y 
TtST 7: WRITF DATA RHTR1 



'. / 



MACRO MIJOO ._•? MAR «4 00:40 PAGE 90 c' 



SFQ 0502 





075634 


00130 7 






075636 


102 765 






75640 


012136 




9332 


75642 








075642 


104406 




9333 








9334 








9335 








9336 








9337 








9336 








9339 








9340 


075644 


013701 


101470 


9341 


075650 


010102 




9342 


075652 


052702 


000002 


9343 


075656 


020102 




9344 


075660 


001406 




934!^ 


075662 


005257 


002212 


9349 


075666 








075666 


104456 






075670 


001310 






075672 


102461 






075674 


015564 




9350 


075676 








075676 


104406 




9351 








9352 








9353 








9354 








9355 








9356 








9357 








9358 








9359 


075700 


012705 


00000 i 


9360 


075704 


004737 


010556 


9361 


75710 


105413 




9362 


075712 


016501 


000002 


9363 


075716 


012702 


000200 


9364 


075722 


010004 




9365 


075724 


005237 


002212 


9569 


0.-5730 








0/5730 


104456 






075732 


001311 






075734 


104227 






:)75736 


012156 




9370 


075740 








075740 


104406 




9371 








9372 








9373 








9374 








9375 








9376 








9377 








9378 








9379 


075742 


012703 


100001 


9380 


075746 


004737 


010556 



50$; 



CKLOO^^ 



jLQOP If r>hLECTED 



.WORO 
. WORD 
.WORD 

TRAP 



REAO MESSAGE BlJTFER EXTENDED STATUS REGISTER /ERG CXS70) 

jPICK UP XSTC 
(SET UP EXPECTED 
j3ET BOT BIT IN EXPECTED 
iOOES EXP « REC'D 
J BR, ir EQUAL (OK) 
J BUMP COUNT 

;TAPE NOT AT BUT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKUOOP ;L00P IF SELECTED 

TRAP 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLO 



ERRHRD ERRNO , T2 7B0T , EXPREC 



711 
If'/RWN 



C$CLP1 



C$ERHRD 

712 

T27B0T 

EXPREC 

C$CLP1 



1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:BIT 15 SETS DIRECTION - 0-FOHWARU 1-REVERSE 

J PARAMETER SPACE FORWARD 1 RECORD 
(CALL SPACE RECORDS ROUTINE 
iBR, IF NO ERRORS 
iGET TSSR CONTENTS 
I SET UP EXPECTED 
:SET UP REWIND PACKET ADDRESS 
I BUMP COUNT 

(SPACE RECORDS COMMAND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



MOV 


*1.R3 


JSR 


PC, SPACE 


BCS 


50$ 


MOV 


TSSR(R5),R1 


MOV 


#SSR.R2 


MOV 


R0.R4 


INC 


FATFLG 



50$: 



ERRHRD ERRNO, T27SCF.PKTSSR 



CKLOOP 



C$ERHRD 
715 

T27SCF 
PKTSSR 



C$CLP1 



(ISSUE SPACE RECORDS COMMAND - VALUE IN R5 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION O-FORWARD 1-REVERSE 



MOV #100001. R3 
JSR PC, SPACE 



l^'ARAMETER SPACE REVERSE 1 RECORD 
;CALL SPACE RECORDS ROUTINE 



TSV7 - HARDWARF. TCSTS 1 3 
rtST 7: WRITE DATA RETRT 



MACRO M1?00 .-!? MAH-84 09:4^1 



PAGE- 90 5 



SEQ 0503 



9581 
938^ 
9383 
9384 
9385 
9389 



9390 

9391 
9392 
9393 
9394 
9395 
9396 
9397 
9398 
9399 
94O0 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9406 
9412 



9413 

9414 
9415 
9416 
9417 
9418 
9419 
9423 



9424 
9425 



9426 
9427 
9420 
9429 



075752 
075754 
075760 
075764 
075766 
075772 
075772 
075774 
075776 
076000 
076002 
076002 
076004 



076012 
076020 
076026 
076032 
076056 
076042 
076046 
076052 
076054 
076056 
076062 
076062 
076064 
076066 
076070 
076072 
076072 
076074 
076100 
076102 
076106 
076110 
076112 
076116 
076116 
076120 
076122 
076124 
076126 
076126 
076130 
076130 
076150 
076132 
076140 
076142 
076146 



103415 

016501 



012737 
012737 
012704 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
001315 
104304 
012136 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001314 
104131 
015564 

104406 



104403 
023727 
103402 
004737 



000002 



012702 000200 

010004 

005237 002212 



104456 
001312 
104227 
012136 

104406 
013737 



60$: 



003114 101562 



BCS 60J 

MOV TSSRCR5),R1 

MOV V>SSR,R2 

MOV R0.R4 

INC FATFLG 

ERRHRD ERriN0.T27SCF,Pl<T5SR 



CKLOOP 

MOV FREE,T27RB 



tOR. IF NO ERRORS 
(Gtl TSSR CONTFNTS 
j^ET \JP EXPECTED 
(SET UP REWIND PACKET 
jBUMP COUNT 
; SPACE RECORDS COMMAND 



;LOOP IF SELECTED 
; ADDRESS OF BUFFER 



ADDRESS 

f AILED 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CiERHRD 
714 

T27SCF 
PKTSSR 

CSCLPl 



141005 
000400 
101560 
000000 
016340 
000002 
100204 



002212 



101560 
101566 



WRITE DATA RETRY ,ACK .CVC-1 COMMAND 

WRITE DATA RETRY .ACK.CVC«1 COMMAND 
SET UP THE SIZE OF RECORD 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 

SET UP EXPECTED TAPE STATUS ALERT 
ARE THEY EQUAL 
BR, IF OK 
BUMP COUNT 

TSSR INCORRECT AFTER READ DATA 

TRAP 



MOV 


0141005. T27PK3 


MOV 


*256..T27SZ 


MOV 


«T27PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


180 i 


INC 


FATFLG 


ERRHRD 


ERRN0,T27TSA,PKTSSR 



180$ 



101^76 
000001 

002212 



CKLOOP 




MOV 


T27BFR*14,R1 


MOV 


R1.R2 


BIS 


^IT0.R2 


CMP 


R1.R2 


BEQ 


190$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T27NEF»EXPREC 



I LOOP IF SELECTED 

J GET X^r3 STATUS WORD 

;SET UP EXPECTED 

J SET THE RIB BIT 

(ARE THEY EQUAL 

:BR. IF EQUAL (GOOD) 

iBLflP COUNT 

;NEF SHOULD BE SET 



.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
715 

T27TSA 
PKTSSR 

C$CLP1 



190$ 



002212 
017272 



000017 



999$ 



CKLOOP 
ENDSUB 



Ch. 

BLO 

JSR 



TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
716 

127NEF 
EXPREC 



FATFLG, #15. 

999$ 

PC . CKOROP 



TRAP C$CLP1 
;>>>>>>>>>>>> END SUBTEST >>>>>>>>>■»>> 

L10124: 

TRAP C$ESUB 
ilS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
;Tflr TO DROP THE UNIT 



TSV? - HARDWARE' TESTS 1-3 
TE-ST 7; WRITE DATA RtTR^ 



94^1 

9435 
9454 
9435 
9436 
^43; 
94 38 
^4 39 
9440 
94 Tl 
9442 
9443 



It j 
MACRO M1200 ::*3 MAR-84 09:44 PAGE 91 



SEQ 0304 



9444 
9445 
9446 
944 7 
9448 
9449 
9450 
9451 
9452 
9453 
9454 
9455 
9456 
9460 
9461 



9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
94 "2 
9A73 
94/7 
9478 



9479 

9480 
9481 
9482 



076146 
076146 
076146 
076150 
076154 
076160 



076164 
076170 
076172 
076176 
076200 
076200 
07620? 
076204 
076206 
076210 
076216 



076222 
076226 
076230 
076234 
076236 
076236 
076240 
076242 
076244 
076246 
076246 



104402 

004737 104564 

004737 104656 

004737 104720 



004737 016064 

103407 

005237 002212 

OlOOOl 

104455 

001315 

003650 

012124 

013737 002172 

012704 101440 



004737 010752 

103407 

005237 002212 

010001 

104456 
001316 
005054 
012124 

104406 



JSR 


ri:.T27REST 


JSR 


PC,T27RT2 


JSR 


PC,T27RT3 



101460 20$: 



TEST 7. SUBTEST 3 

VERIFIES THAT A Wf^ITE DATA RETRY COMMAND WITH SWB-O 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
BYTE COUNTS AND DATA PATTERNS ARE USED. 



BGNSUB •>.>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T7.3: 

TRAP C$85UB 
;SET COMMAND PACKET 
;SeT UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 

ISSl^ CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

jDO INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

I BUMP COUNT 

J CONTENTS OF TSSR iwEGISTER 

i FATAL ERROR TSSR WAS MOT OK 

TRAP CtERDF 
.WORD 717 
.WORD SFIERR 
.WORD SFIMSG 
;SET UP UNIT NUMBER IN PACKET 
J SUBROUTINE NEEDS PACKET ADDRESS 



JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SEIERR, SFIMSG 



MOV 
MOV 



UNITN.T270SW 
*T27PACKET,R4 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



23$: 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG . SF IMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
J BUMP COl^NT 

iSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



C$ERHRD 

718 

WRTMSG 

SFIMSG 

C$CLP1 



• t*'f + *«>4t4i*«44i*4>*'ti*4"(>«4t4i'f4t**4i**4i******4i*4i*4iL«****AA*4***44i**4*44i*i4^4 



I I 



TtSr 7: WRITt DATA RtTRl 



^48:^ 
94^4 
9485 
9466 
9487 
9488 
•^489 
9490 
9494 



9495 

9496 
9497 
9498 
9499 
9500 
9501 
9502 
9503 
9504 
9505 
9506 
9507 
9508 
9512 



9513 

9514 
9515 
9516 
9517 
9518 
9519 
9520 
9521 
9522 
9523 
9524 
9525 
9526 
9527 
9528 
9529 
9550 
9531 
9532 
9533 
9554 
9558 



076250 
076254 
076256 
076260 
076264 
076264 
076266 
076270 
076272 
076274 
076274 



076276 
076302 
076304 
076310 
076312 
076314 
076320 
076320 
076322 
076324 
076326 
076330 
076530 
076332 
076336 



076344 
076352 
076356 
076360 
076564 
076370 
076374 
076400 
076404 
076410 
076412 
076414 
076420 



004737 011104 

103407 

010004 

005237 002212 

104456 

001317 
102765 
012136 

104406 



013701 101470 

010102 

052702 000002 

020102 

001406 

005237 002212 

104456 
001520 
102461 
015564 

104406 

012703 000024 

015737 003114 



012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 



140005 
101560 

017512 
101566 
000000 
016340 
000002 
000200 



002212 



NACRU M1200 2^ MAR-84 09:44 PAGt 91 1 



ISSUt RtWiND COMMAND TO SELECTED TAPE DRIVE 



30$: 



JSR PC, REWIND 

BCS 30$ 

MOV R0.R4 

INC FATKLG 

ERRHRD ERRN0,T27RWN,Pi<TS3R 



CKLOOP 



iCALU TAPE REWIND COMMAND 

BR. II- NO PROBLEM 

bLT UP REWIND PACKFT ADDRESS 

BUMP COUNT 

REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 



101562 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

;PICK UP XSTO 

iSET UP EXPECTED 

;SET 80T BIT IN EXPECTED 

I DOES EXP - REf'D 

tSR, IF EQUAL ;0K) 

iBUMP COUNT 

J TAPE NOT AT BUT AFTER REWIND 

TRAP 

.WORD 
WORD 

.WORD 
40$: CKLOOP ;LOOP IF SELECTED 

TRAP 
jSTARTING RECORD SIZE 
J STARTING WRITE BUFFER ADDRESS 



MOV 


T27BFRf6.Rl 


NOV 


Rl.RS 


BIS 


*eiTl.R2 


CMP 


R1,R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO, T27B0T , EXPREC 



CKLOOP 

MOV 
MOV 



*20. .R3 
FREE.T27WB 



****************«*****«**«*«************4^4i*^^4l******************** 

WRITE DATA.CVC-l.ACK COMMAND 

****4i********«4>******************************** (.********«***•***** 



101560 65$: 



MOV 0140005. T27PK3 

MOV 0T27PK3.R4 

MOV R5,R0 

JSR PC.flLLMEM 

MOV n3,T27SZ 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV 0SSR.R2 

CMP R1,R2 

BEQ 60$ 

INC FATFLG 

ERRHRD ERRNO.WRTERR.PKTSSR 



C$ERHRD 
719 

T2/RWN 
PH-TSSR 

C$CLP1 



C$ERHRD 
720 

T27BOT 
EXPREC 

C$CLP1 



iWRITE DATA.CVC-l.ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

tSET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

iSET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

(WAIT FOR SSR TO SET 

[GET T",SR CONTENTS 

iSET UP EXPLCTEO 

;ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

iTSSR INCORRECT AFTER WRITE DATA 



^jEO 0505 



TSV:* - HAIJDWARf. ThSTS I y 
TtST 7: URITF DATA RtTRi 



1 '■'■ 
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sr,59 

^S40 
9^4 1 

**543 
S»544 
9545 
9546 
954 7 
9548 
9549 
9550 
9551 
9552 
9553 
9554 
9558 



9559 

9560 
9561 
956? 
9563 
9564 
9565 
9566 
956 7 
9568 
9569 
9570 
9571 
957? 
9573 
9577 



95/8 

95 79 
9580 
9581 
S58? 
9583 
9584 
9585 
9586 



076420 
07642? 
076424 
076426 
076430 
076430 



104456 
001321 
005111 
0121"56 

104406 



60$: 



CKLOOP 



!l OOP IF SE-.LECTFD 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C Je.PHR:} 

WRTtPR 
Pt^^S^R 

CSCLPl 



iWRITF. DATA He TRY ,CVC-1 , ACK COMMAND 
* 

•«4**'4>**4>4*«4>* ********* **4««*4t*4i***iti4>4L** ********* ******** >****«**** 



076^32 
076440 
076444 
076450 
076454 
076460 
076462 
076464 
076470 
076470 
076472 
076474 
076476 
07f )0 
076500 
076502 
076504 
076510 



012737 
010465 
0047S7 
016501 
012702 
020102 
001406 
005237 

104456 
001322 
104366 
012136 

104406 
005723 
020327 
001315 



141005 
000000 
016340 
000002 
000200 



002212 



101560 



000050 



076512 
076516 
076520 
076522 
076526 
076526 
76530 
076532 
076554 
076536 
076536 



004737 011104 

103407 

010001 

005237 002212 

104456 
001323 
102765 
015564 

104406 



MOV 0141005. T27PK3 

MOV R4,TSDB(R5) 

JGR PC.UAITF 

MOV TSSR(R5),R1 

MOV 0S5R.R2 

CMP R1.R2 

BtQ 901 

INC FATf-'LG 

BRRHRD ERRN0.T27WRF,PKTS5R 



90$ 



CKLOOP 

TST 
CMP 
BNF 



(R3)* 
R3,*40. 

65i 



;WRITE DATA RE TR^ , CVC* 1 , ACK COMMAND 

; issue COMMAND 

iWAIT FOR SSR TO SLT 

;GFT TSSR CONTFNTS 

jSET UP EXPKCTFD 

I ARE THEY EQUAL. 

;BR. IF OK 

iBUMP COL^^T 

I TSSR INCORRECT AFTER WRITE DATA RETRi 

TRAP CJERHRD 

.WO«D 

.WORD 

.WORD 
iLODP IF SfiLECTED 

TRAP 
iBUMP RECORD SIZE COUNTER 
;AT 40 SIZE YET 
jBR. IF MORE RECORDS TQ WRITE 



722 

T27WRF 

PKTS5R 
CSCLPl 



;*******«L*************«***** ******* **********4,4««4,«««««««««««4,^*4^A 

•ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
* 

•**«4i****«***««***«**«4*****«***«4l*************4**********j********* 

JSR PC, REWIND 

BCS 230$ 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRN0.T27RWN,EXPREC 



250J: CKLOOP 



J CALL TAPE REWIND COMMAND 




iBR, IF NO PROBLEM 




jSAVF TSSP 




iBUMP COLiNT 




1 REWIND NOT ACCEPTED 




TRAP 


CiERHRD 


.WORD 


723 


.WORD 


T27RUN 


.WORD 


EXPHEC 



(LOOP IF SELECTED 



076540 013701 101470 



TRAP 

I*******************************«********************«**t****4t****« 

!REAa MESSAGE BUFFER EXTENDCD STATUS REGISTER ZERO (XSTO) 

}***«********«4i*****«*******A«*4i***«*««*****««A****« *************** 

MOV T27BFRt6.Rl {PICK UP XSTO 



CJCLPl 



bEQ 506 



TSV" HAf?nwARK USTs 1 8 
TtSr 7: URIir DATA R^U\j 



MACRO t-moo .'? MAP H4 O'^f'.AA PAGf 'U 5 



^FQ 0.',0/ 



4595 



^596 

959/ 
9598 
9599 
9600 
9601 
960,^ 
9605 
9604 
%05 
9606 
9607 
9603 
960*^ 
9610 
9611 
961^ 
^13 
9614 
9615 
9619 



96^0 

9621 
96 c^^ 
9623 
9624 
9625 
9626 
9627 
9628 
<>*j29 
9633 



9634 

9635 
9636 
9637 



076544 
076546 
076552 
076^.)54 
076556 
076562 
076562 
076564 
076566 
0765"'0 
076572 
76572 
0/65 74 
076600 



076606 
076614 
076620 
076624 
076630 
076634 
076640 
076644 
076646 
076650 
076654 
076654 
076656 
C 76660 
076662 
076664 
076664 
076666 
076672 
076674 
076700 
076702 
076704 
076706 
076710 
076712 
076716 
076716 
076720 
076 722 
076724 
076726 
076726 
076730 
076732 
076V 34 



010102 

052 ;02 000002 

020102 

001406 

005237 002212 

104456 
001324 
102461 
015564 

104406 

012703 000024 

013737 003114 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 

001325 
005204 
012136 

104406 
0137v/2 
010304 
162704 
060204 
021405 
001410 
011401 
010302 
005237 

104456 
001326 
104446 
015564 

104406 
005 724 
160204 
020403 



100001 
101560 
101566 
000000 
016M0 
000002 
000200 



002212 



003114 
000024 



240 J 



MOV 

CMP 
BtQ 
INC 
ERRHRD 



CKLOOP 



R1,R2 

^7H r T 1 . R2 

R1.H2 

240^ 

KATn.G 

ERRN0.T27B0T,F:xPREC 



101562 



MOV 
MOV 



*20. .R5 
rREF.,T27RB 



;\AJ UP F-.XPI.CTF.D 
SFT BOT BIT IN [-/I'tCTFD 
OOFS FXP - REC'O 
BR. U EQUAL (OK) 
I BUMP COUNT 

jTAPE NOT AT BOT AFTfcR REWIND 

TRAP 
.WORD 
.WORD 
. WORD 
jLOGP I^ SELECTED 

TRAP 
iSTARTINCi RECORD SIZE 
i STARTING READ BUFFER ADDRESS 



CiFRHRD 
724 
T2VB0r 
F/PRFC 

C$CLP1 



READ DATA.ACK COMMAND 

4 *«**« 4 **** 4 * 4i 4 *************** 4^ 41 * 4> * 4i * 4l 4> *************** I*** ******** « 



101560 265$: 



MOV 


#100001. T27PK3 


MOV 


<^T27PK3,R4 


MOV 


R3,T27SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


«SSR.R2 


CMP 


R1.R2 


BEQ 


280 » 


INC 


FATFLG 


ERRHRD 


E.RRN0.R0FRR.PKTS5R 



READ DATA.ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
ISSUE COMhANO 
WAIT FOR 5SR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 
BUMP COUNT 

TSSR INCORRECT AFTER HEAD DATA 

TRMP 



280$: CKLOOP 



285$: 



iLOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



002212 



MOV 


FREE,R2 




MOV 


R3,R4 




sue 


«20. .R4 




ADO 


R2,R4 




CMP 


(R4),R3 




BEQ 


290* 




MOV 


CR4).R1 




MOV 


R3.R2 




INC 


FATFLG 




ERRHRD 


ERRN0,T2VDrA.hXPREC 





GET BUFFER ADDRESS 

GET RECORD SI7E 

POINT BACK TO 1ST RECORD 

POINT TO 1ST LOC IN BUFFER 

DATA WRITTEN - READ 

PR. IF DATA OK (GOOD) 

PICK UP BAD DATA 

SET UP EXPECTED 

BUMP COUNT 

DATA IN BUFFER NOT CORRECT 



C$ERh«D 
725 
RDERR 
PKTSSR 

CSCLPl 



290$: CKLOOP 



TST 


(R4)» 


sue 


R2.R4 


CMP 


R4,R^ 





TRAP 


C$ERHRD 




.WORD 


726 




.WORD 


T27DTA 




.WORD 


EXPREC 


iLOOP IF SELECTED 








TRAP 


C$CLP1 


J BUMP TO NEXT ADOREt)f) 






iBACK TO RECORD SIZE 






jAT END OF RECORD YET 







1/ '..' 



T^;V.' HAROwAPt Tt.STS 1 « 
ThST 7: WRITK DATA RhTRi 
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96^8 
96J^9 
9640 
V641 
964^ 

^>b45 
9644 



964 S 
964b 
964 7 
9646 



076756 
076740 
076742 
076746 
076750 
76750 
076 7LS2 
076/5? 
076752 
767S? 
076754 
76 76? 
076764 
076770 



001560 
005723 
0?0^? / 
001517 

104406 



10440.^ 
02S727 
10J402 
004737 



000050 



oop-in? O0OO17 

017272 



300 5: 
330$: 



BNt 


285 5 


11) T 


(R3). 


CMP 


R3.VJ40. 


BNt: 


265$ 


CKLOOP 





999 1: 



ENDSUe 



CMP 
BLO 
JSR 



KAI>"l,C>.^n5 

999$ 

PC.CKDROP 



;BR, ir MORK DATA TO CHfCK 

(BUMP RFCORD SIZF 

jDUNt YLT 

I BR. If NOT DONf. YET CMORt: READS') 

J I OOP ir SELECTED 

Tr^.AP CJCLPl 

• >>>>>>>>>>>> END SUBTEST >i>>->>>>>>>> 

1 10125: 

TRAP ^'v:?J^ 
;I5 ERRHtJ --; ^,\: ,. , ,j^ 

.OM, i^ LESS THAN 25 
;TRr TO DROP THE UNTT 



SEQ 0308 






Tsv;' ■ hAROWARK TKSTS 1 8 
TEST 7: WRITE DATA RETRl 

9bSl 
9b b.' 

9654 

96bS 

9b S6 
9r!5 7 

9hS6 
'^659 
9660 
9661 

9662 0767 70 
076770 
076770 

9663 07677? 

9664 076776 

9665 07 7002 

9666 077006 
966/ 
9668 
'>669 
96 70 
9671 
9672 
9675 
9674 
96."^. 
9676 



004737 
004737 
004737 
012737 



9677 
9678 
9679 
9683 
9684 



9685 
9686 
968; 
9688 
9689 
9690 
9691 
969? 
969,^ 
9694 
969*p 



077014 
077020 
077022 
077022 
077026 
077030 
077034 
077036 
077042 
077044 
077050 
077052 
077056 
077060 
077064 
07 7066 
077066 
077070 
077072 
077074 
077076 
077104 



004737 
103426 

012727 
000000 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001327 
O03650 
012124 
013737 
012704 



104564 
104656 
104720 
176750 



016064 

000250 
002116 

177772 
177 756 
101612 
002212 



002172 
101440 
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SEO 0309 



101612 



ilEST 7. SUBTEST 4 

VERIFIES THAT A WHITE DATA RETRY COMMAND WITH OWB^ 
TERMINATES PROPERLY AND WRITES CORRrCT DATA ON TAPE 
(THE WRITTEN PF.CORD IS READ AND CHtCKtD). VARIOUS 
BYTE COUNTS AND DATA PATTERNS ARE USED. 



BGNSUB 



JSR 
JSR 
JSR 
MOV 



PC.T27REST 
PC.T27RT2 
PC,T27Rr3 
#65000. ,T27D1.Y 



;>>>>>>>>>>>> BEGIN SUBTEST >-»>>>^>>i^>> 

T7.4: 

TRAP CJBSUB 
I SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET \JP DELAY COUNTER 



ISSUE. CONTROLLER "SOFT" INITIALIZE ^ CARRY BIT CLEAR IF ERROR 
10$: 



101460 20$: 



JSR 


PC.SOFIN 


IT 




;00 INITIALIZE ON CONTROLLER 




BCS 


20 5 






jBR IF TNIT WAS OK 




DELAY 


250 






; DELAY ABOUT .25 SEC 

MUV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


d250.(PC)^ 



L$DLY.(PC)» 



■6(PC) 

. 4 

■22( PC) 
. -20 


DEC 


T27DLY 






;BUMP COUNTER 




BNE 


10* 






;BR, IF COUNTER NOT DONE 




INC 


FATFLG 






I BUMP COUNT 




MOV 


RO.Rl 






iCONTENTS OF TSSR REGISTER 




ERROF 


ERRNO.SFIERR.SFIMSG 


t FATAL ERROR TSSR WAS NOT OK 












TRAP 


CiERDF 










.WORD 


727 










.WORD 


SEIERH 










.WORD 


SFIMSG 


MOV 


UNITN.T, 


/D* 


;w 


(SET UP UNIT (DRIVE) NUMBER 




MOV 


0T27PACKLT 


R4 


; SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



077110 
077114 



004737 
X03407 



010752 



JSR 
BCS 



PC.WRTCHR 
23$ 



I ISSUE WRITt CHAMACTEf^ISTlCS 
I BR, IF COMMAND ISSUED OK 



TSV/ - HARDWARL TLSTS 1 ■« 
raST 7: WRITE DATA RETR^ 
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969b 


C77116 


00523 7 


002212 


9700 


077122 


010001 




9701 


077124 








077124 


104456 






077126 


001330 






077130 


005054 






077132 


012124 




9/02 


077134 








077134 


104406 




9?05 








9 704 








970b 








9706 








9707 








9 70« 








9709 








9710 


077136 


004737 


011104 


9711 


077142 


103411 




9712 


077144 


016501 


000002 


9713 


077150 


010004 




9714 


077152 


005237 


002212 


9718 


077156 








077156 


104456 






077160 


001331 






077162 


102765 






077164 


012136 




9719 


077166 








077166 


104406 




9720 








9721 








9722 








9723 








9724 








9 72S 








9726 








9 727 


077170 


013701 


101470 


9 728 


077174 


010102 




9/29 


077176 


052702 


000002 


9730 


077202 


020102 




9/31 


077204 


001406 




9 732 


0/7206 


005237 


002212 


9736 


077212 








077212 


104456 






077214 


001332 






077216 


102461 






077220 


015564 




9737 


077222 








07/222 


104406 




9/38 


77224 


012703 


000024 


9/39 


077230 


015737 


005114 


9740 








9741 








9/42 








9743 








9 744 








974 b 








9746 









23$: 



INC fATri.G 

MOV RO.Rl 

ERRHRD ERRNO.WRTMSG.SFXMSG 



CKLOOP 



I DUMP COUNT 

J SAVE CONTENTS OF ir.SR 

;WRITe CHARACTERISTIGC TAILED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



ISSU'c REWIND COMMAND TO SELECTED TAPE DRIVE 

[CALL TAPE REWIND COMMAND 

:BR, IF NO PROBLEM 

;GE"I TSSR CONTENTS 

;GET PACKET ADDRESS 

I BUMP COUNT 

J REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSRCR5).R1 


MOV 


R0,R4 


INC 


FATFLG 



ERRHRD ERRNO . T27RWN . PKTSSR 



30$ 



CKLOOP 



J LOOP IF SELECTED 



101562 



TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ?ERO CXSTO) 

iPICK UP XlTO 
;SET I.** EXPECTEC 
]5Ei 80T BIT IN l-yPECVcD 
jDOES EXP - REC'O 
iBR. IF EQUAL (; ) 
lBiJt\P COUt^T 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
. WORD 
40$: CKLOOP jLOOP IF :;i!.-CrED 

TRAP 
i STARTING RECORD SIZE 
J STARTING V^RITE BUFFER ADDRESS 



MCV 


T27BFR*6,R1 


MOV 


R1,R2 


BIS 


^IT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRNO, T27B0T,EXPREC 



CKLOOP 

MOV 
MOV 



^20. ,P3 
FRE'£,r27WB 



WRITE DATA.CVC-l.ACK COMMAND 



C$ERHRD 

WRTMSG 
SFIM3G 

C$CLP1 



TRAP 


C$ERHRO 


. WORD 


729 


. WORD 


T27RWN 


.WORD 


PKTSSR 



CJCLPl 



CJERHRD 
750 

T27B0T 
FXPREC 

CJCLPl 



SEQ OilO 



TSV7 - HARDWARt TKSTS 13 
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TtST ?: WRITE DATA RETRY 



974 7 

9748 

9749 

9750 

9751 

975; 

753 

9/54 

9/55 

9 756 

97!)7 

9758 

9762 



9763 

9 764 
9765 

9766 
9767 
9768 
9769 
9770 
9771 
97 VP 
9773 
9774 
9775 
9776 
9777 
9778 
9782 



9783 

9784 
9785 
9 786 
9/8/ 
9788 
9:'89 
9/90 

9/«n 

9 792 
9793 
9794 
9/95 
9 796 
9 79? 
9798 
9802 



077236 
077244 
077250 
077252 
077256 
0?7r62 
077266 
077272 
077276 
077302 
077304 
077306 
077312 
0773 J 2 
077314 
077316 
077320 
077322 
077322 



07/324 
077332 
077336 
077342 
077346 
077352 
077354 
077356 
077362 
077362 
077364 
077366 
077370 
077372 
077372 
077374 
0773 76 
077402 



077404 
0/7410 
077412 
077416 
077420 
077424 



012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001333 
005111 
012136 

104406 



012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001334 
104366 
015564 

104406 
005723 
020327 
001315 



004737 
105411 
016501 
010C04 
005237 



140005 
101560 

017512 
101566 
000000 
016340 
00000? 
000200 



002212 



111005 
000000 
016340 
000002 
000200 



002212 



000050 



011104 
000002 
002212 



Sta 0311 



101560 65$ 



80$ 



MOV ^n40005.T27PI<3 

MOV vn27Pl<3.R4 

MOV R3,R0 

JSR PCFILLMEii 

MOV R3,T27SZ 

MOV R4,TSDB(R5:) 

JSR PC.WAITF 

MOV r5SR(R5),Rl 

MOV ^SSR.R2 

CMP R1,R2 

BEQ 80$ 

TNG FATFLG 

ERRHRD ERRNO . WRTERR , PKTSSR 



CKL.OOP 



iWRITE DATA.CVC^l.ACK COMMAND 

(5ET UP R4 WITH PACKET ADDRESS 

iSET PATTERN IN CORRECT REGISTER 

;EILl. MEMORr WITH RECORD SIZE 

;SEr UP RECORD SIZE IN PACKET 

: ISSUE COMMAND 

iWAIT rOH SSR TO SET 

:GET TSSR CONTENTS 

;SET UP EXPECTED 

I ARE THEY EQUAL 

:BR. IF OK 

(BUMP COUNT 

ilSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERMRD 
.WORD 731 
.WORD WRTERR 
.WORD PKTSSR 

;LOOF' IF SELECTED 

TRAP C$CLP1 



101560 



MOV 


0111005.T27PK3 


MOV 


R4,TSDB(R5') 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR.R2 


CMP 


R1.R2 


BEQ 


90$ 


INC 


FATFLG 



ERRHRD ERRNO . T27WRF , EXPREC 



WRITE DATA RETRY ,ACK , SWB»1 COMMAND 

jWRITE DATA RETRY ,ACK , SWB=1 COMMAND 
; ISSUE COMMAND 
J WAIT FOR SSR 10 SET 
iGET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 
BUMP COUNT 

TSSR INCORRECT AFTER WRITE DATA RETRY 

TRAP C$KRHRD 
.WORD 
.WORD 
.WORD 
90$: CKLOOP :LOOP IF SELECTED 

TRAP 
BUMP RECORu SIZE COUNTER 
'\T 40 SIZE YET 
BR.- TE MORE RECORDS TO WRITE 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
[GET TSSR CONSENTS 
J GET PACKET ADDRESS 
I BUMP COUNT 
ERRHRO ERRNO. T27RWN. PKTSSR {REWIND NOT ACCEPTED 



TST 


(R3)* 


CMP 


R3,.?40. 


BNE 


65$ 



732 

T27WRF 

EXPREC 
C$CLP1 



JSR 


PC, REWIND 


BCS 


230$ 


MOV 


TSSR(R5),R1 


MOV 


R0,R4 


TNC 


r A T r I G 



1 ' I 



TSV.* HARDWAHL Tl.STS 1 ;^ 
Thbl 7: WRIU DATA Rt T ■ i 



MACRO Mli^OO .'.^ MAH H4 O'^i^n PAlil^ 'i,' ^ 



■jF^J 5i;' 





Or74^4 


1044^6 






07/426 


00135'j 






0.-74 50 


10J/6S 






c;/'4 52 


012156 




*>fl05 


0r74 54 








077454 


J0440'j 




9804 








^<*0^ 








9^06 








)80' 








':»eo8 








9809 








9810 








9flll 


0/7436 


015701 


lOU.'O 


981^ 


077442 


010102 




^»P15 


07/444 


052 702 


00000? 


9814 


0/7450 


020 102 




981b 


077452 


001406 




9816 


077454 


005257 


002212 


98^0 


077460 








077460 


104456 






77462 


001556 






0/7464 


102461 






077466 


015564 




98^1 


07 74 70 








077470 


104406 




)622 


077472 


012/05 


000024 


98^? 


0774 76 


013737 


003114 


98^4 








9825 








9826 








982 7 








9828 








9829 








9830 








9851 


0/7504 


012737 


If.oooi 


9852 


077512 


012704 


101:j60 


9853 


077516 


010557 


101566 


9854 


077522 


010465 


000000 


9855 


077526 


0O4737 


016540 


9836 


077552 


016501 


000002 


9857 


077556 


012702 


000200 


9858 


077542 


020102 




9859 


077544 


001406 




9840 


077546 


005257 


002212 


9844 


07 7552 








0/7552 


104456 






077554 


001537 






077556 


005204 






07 7560 


012136 




9845 


077562 








077562 


104406 




9846 


77564 


013702 


005U4 


984 7 


0775 70 


010504 




9848 


077572 


162704 


0O0U2A 


9849 


077576 


060204 




9850 


077600 


000303 





250$; CKl OOP 



tt OOP V SKLFCTF-D 



TRAP 
. WORD 
. WORD 
.WORD 

n^AP 



READ Mt:SSA(,r BUFfcR MTCNDl-O STATUS RfctilSThR /t-.RO (/STOJ 



101562 



240 »: 



(«****A***A*A«****«******4>«««**««*«*«*4t*4>A*«*«*4i****>«***«*««4***** 



J READ DATA.ACK COMMAND 



10l5t^0 265»: 



MOV 


0100001, T27PK5 


MOV 


0T27PK3.R4 


MOV 


R5.T27SZ 


MOV 


R4.TS0e(R5) 


JSR 


PC. wAirr 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R1,R2 


BEQ 


280* 


INC 


TATrtG 


ERRHRD 


ERRNO.ROERR.PKTSSR 



C$FPhr:; 
' ' ' 

T»^/RWf* 
PKT'/,H 

CICLPI 



MOV 


T2/B^R.6.Rl 


(PICK UP XSTO 




MOV 


R1,R2 


iSET UP EXPECTED 




BIS 


oeiTl,R2 


iSt T BOT BIT IN E/PECTED 




CMP 


R1.R2 


iDOeS tXP - REC'D 




BtQ 


240$ 


|BR. IF EQUAl (OK) 




INC 


FATTLG 


J BUMP COUNT 




ERRHRD 


ERRN0,T27BOT,EXPREC 


iTAPE NOT AT BUT AFTER REWIND 








TRAP 


C$ERHRO 






.WORD 


7 34 






.WORD 


T27B0T 






.WORD 


EXPREC 


CKLOOP 




ILOOP IF SEI ECTFD 








TRAP 


CJCLPl 


MOV 


•20. ,R3 


1 STARTING RECORD SliTE 




MOV 


KREE.T27RB 


I STARTING READ BUFFER ADDRESS 





(READ DATA.ACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 
jSET Uf' RECORD SI2E IN PACKET 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
lARE THEf EQUAL 
iBR. IF OK 
iBUMP COUNT 

iTSSR INCORRECT AFTER '^EAD DATA 

TRAP 



280$: CKLOOP 



285$ I 



iLOOP IF SELECTED 



.WORD 
.WOPO 
.WORD 

TRAP 



MOV 


FREE,R2 


MOV 


R3.R4 


SUB 


020. .R4 


ADD 


R2,R4 


SWAB 


R3 



(GET BUFFER ADDRESS 

iGET RECORD SUE 

jPOINT BACK TO IS. RECORD 

iPOINT TO 15T LOC IN OUFFER 

iSWAP BYTES SWB*i ETC* 



CJERHRO 
755 
RDERR 
PKTSSR 

C$CLPl 



Ttsr 



naROwARt !( si', l >* 
7: WRITK DATA RbTRi 



MACIU) MK^OO /^ MAW ilfl fViiA^ Pmv ')? A 






■^1860 

*^861 
086^ 
4863 
»J8f)4 
9665 
9866 
9o67 
9868 
9869 

^870 



98/1 
98 7, > 

9874 



07760c^ 
07 7604 
77606 
07 7610 
07 761^ 
077616 
077616 
07 7620 
077622 
77624 
07 7626 
07 7626 
077630 
077632 
077634 
07 7t.36 
077640 
077642 
077644 
0776^0 
077652 
07 7652 
0/7654 
07 7654 
07 7654 
77656 
077664 
07 7666 
077672 



02140i. 
001410 
011401 
010502 
00523 7 

104456 
001340 

104446 
015564 

104406 
005724 
160204 
0JO303 
020403 
001356 
005723 
020327 
001315 

104406 



104405 
023727 
103402 
004 737 



002212 



290$! 



000046 



300 J: 



002212 000017 
017272 



CKl.OOP 



TST 


(R4). 


SUB 


R2,R4 


SWAB 


R5 


CMP 


R4.R5 


BNE 


285 i 


TST 


(R3)* 


CMP 


R3,058 


BNt 


265 J 


CKLOOP 





999 J: 



ENDSUB 



CMP 
Bl.O 
JSR 



fATFLG.015. 
999 < 
PC.CKDROP 



SF ^J O'.l'. 



CMP 


( H4 1 , R '. 


tUATA 


B( U 


240$ 


iBR. 


MOV 


(R4).R1 


iPICK 


MOV 


R3,R2 


I SK T 


INC 


F ATKl G 


I B' JMP 


ERRHRl) 


ERRM0.T27DTA,FXPRtC 


jOATA 



WRI ITFN ' Rf AD 
IF DATA OK CGOnO) 

WP HAD DATA 
iJP txPt-.CTFD 

COUNT 

IN BUFFER NOT CORRICT 

TRAP 
. WORD 
.WORD 
.WORD 



;L.OOP U Sf-LECTFO 



TRAP 



(BUMP TO NEXT ADDRESS 

;BACK TO RECORD SIZE 

J PUT R3 BACK INTO SHAPE 

I AT END OE RECORD fET 

;BR. IE MORE DATA TO CHECK 

jBUMP RECORD SIZE 

J DONE YET 

I BR. IE NOT DONE ^ET 

(LOOP IK SELECTED 



CJfRHRO 

r27DTA 
F/PRKC 

CSCi.Pl 



CMORe RF.AOS) 



TRAP 



CtCLPl 



>>>^'i> >> > > > ■* END SUBTEST ••>>>>>>>>>> 



H0126: 

TRAP 
jIS ERROR COG-NT AT 25 
(BR. ir ItSS THAN 25 
{TRY TO DROP THE UNIT 



CJE5UB 



TSV' ■ HAnOwARK Tl STs I 8 
TEST 7: WRITE! DATA Rt.TRi 



9876 
9»' ' 

98rtt 
9679 
9880 
9881 

9(^83 
9884 
988!) 
9886 
9887 
9888 
9889 
9890 
9891 
9892 
9893 
9894 
989^3 
9896 
9897 
9898 
9899 
9900 
9901 
9902 
9903 
9904 
9905 
9906 
9907 
9908 
9909 
9910 
9911 
9912 



MACRO Mlc^OO .'5 MAR 84 (H:44 PAGl- 9^ 



SF.Q Oil4 



9913 
9914 
9915 
9916 
9917 
9918 
9919 
9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 



077672 
077672 
077672 
077674 
077700 
077704 
077710 
077714 
077720 
077724 



104402 
005037 
005037 
005037 
004737 
0O4737 
004737 
012737 



002214 
101606 
101610 
104564 
104656 
104720 
176750 



TfST 7, SUBTPST 5 

I 

iVfc-'RiriF.S THAT A WRITE DATA RETRr COMMAND I'J 

:Pl.RrORMING THr. "ERASE" PART Of" XHT. OPERATION iSi 

[PERFORMING THE EOLl OWING SHRIf-S Of STEPS. 

I 
1. THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOULD RtSL»LT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 

l2. A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
THE TAPE AND THtN CONUTING THE NUMBER OE CYCLES 
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
THE SERIES OF RECORDS WRITTEN IN PREVIOUS 

STEP 

3. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
RECORDS WRITTEN AGAIN. THIS TIME USING THE WRITE 
DATA RETRY COMMAND. THIS SHOULD RESULT IN 
RECORDS SEPARATED BY A LONG INTERRECORD GAP. 

i4. THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
i ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
I COUNTED TO COMPLETE THE OPERATION. 

5. THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 



101612 



BGNSUB (>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>^> 

T7.5: 

TRAP CJBSUe 
I INTERRUPT INDICATOR 
I TIMER FOR WRITE DATA SPACING 
(TIMER FOR WRITE DATA RETRY SPACING 
J SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
I SET UP DELAY COUNTER 

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

«*****j(i«*«*****A***4****4L*4k**4>4>**«****4i**4*****4* ****** *********** 



CLR 


INTRECV 


CLR 


T27CNT 


CLR 


T27CNU 


JSR 


PC,T27REST 


JSR 


PC,T27RT2 


JSR 


PC,T27RT3 


MOV 


*65000. ,T27DLY 



077732 
077736 
077740 
077740 



004737 016064 
103426 

012727 000250 



lOi: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20$ 

250 



;D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
, DELAY ABOUT ,25 SEC 

MOV 



*250 . C PC) * 



T3V7 • HARDWARt TtST^; 1 8 
TtST 7: WRITE DATA RtTRi 



MACRO MiaoO J5 hAR-a4 0<J:4^ PAGt. 93 1 



9951 
^932 
9936 
9957 



9938 
9939 
9940 
9941 
9942 
9943 
9944 
9945 
9946 
9947 
9946 
9949 
9950 
9954 
9955 



9956 

9957 
9958 
9959 
9960 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
9968 
9972 



9973 
9974 



077744 
077 746 
077752 
077754 
077760 
077762 
077766 
077770 
077774 
077776 
100002 
100004 
10C004 
100006 
100010 
100012 
100014 



100026 
100032 
100034 
100040 
100042 
100042 
100044 
100O46 
100050 
100052 
100052 



100054 
100060 
100062 
100066 
100070 
100074 
100074 
100076 
100100 
100102 
100104 
100104 



000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001341 
003650 
012124 
013737 



100022 012704 



002116 
177772 
177756 
101612 
002212 



002172 
101440 



004737 010752 

103407 

005237 002212 

010001 

104456 
001542 
005054 
012124 

104406 



004737 011104 

103411 

016501 000002 

010004 

005237 002212 

104456 
001343 
102765 
012136 

104406 



101460 20*: 









SEQ Oil 






.WORD 









MOV 


1 JDL f .-"PC ;♦ 






.WORD 









DEC 


-6(PC) 






BNf". 


. -4 






DEC 


-22CPC) 






BNE 


.-20 


DtC 


T27DLY 


iBUMP COUNTER 




BNE 


10$ 


I BR. IF COUNTER NOT DONE 




INC 


TATFLG 


J BUMP COUNT 




MOV 


RO.Rl 


:CONTENTS or TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


iFATAL ERROR TSSR WAS NOT OK 








TRAP 


ClERDf- 






.WORD 


737 






.WORD 


5FIEPR 






.WORD 


SFIMSG 


MOV 


UNITN.T270SW 


;SET UP UNIT NUMBER 





MOV 



i SUBROUTINE NEEDS PACKET ADDRESS 



#T27PACKET,R4 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



23$: 



JSR PC, WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0,R1 

ERRHRD ERRNO , WRTMSG . SFIMSG 



Cf.LOOP 



; ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
iBUMP COUNT 

J SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
iLOOP IF SELECTED 

TRAP 



CJERHRD 
738 

WRTMSG 
SFIMSG 

CJCLPl 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

I CALL TAPE REWIND COMMAND 

;BR. IF NO PROBLEM 

jGET TSSR CONTENTS 

(GET PACKET ADDRESS 

iBUMP COUNT 

(REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSR(R5-),R1 


MOV 


R0,R4 


INC 


FATFLG 



30 J 1 



ERRHRD ERRNO, T27RWN,PKTSSR 



CKLOOP 



J LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CJERHRD 
739 

T27RWN 
PKTSSR 

CJCLPl 



TSV7 - HARDWARE VtSTS 1 -3 
TEST 7: WRITE DATA RtTRl 



9975 
9976 
997 7 
9978 
9979 
9980 
9981 
9982 
'^983 
9984 
9985 
9986 
9990 



9991 

9992 

9995 

9994 

9995 

9996 

9997 

9998 

9999 

10000 

10001 

10002 

10003 

10004 

10005 

1C006 

10007 

10008 

10009 

10010 

10014 



10015 

10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 



100106 
100112 
100114 
100120 
100122 
100124 
100130 
100130 
100132 
100134 
100136 
100140 
100140 
100142 
100146 



013701 
010102 
052702 
0201C2 
001406 
005237 

104456 
001344 
102461 
015564 

104406 
012703 
013737 



100154 
100162 
100166 
100174 
100200 
100204 
100210 
100214 
100216 
100220 
100224 
100224 
100226 
100230 
100232 
100234 
100254 
100236 
100240 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001345 
005111 
012136 

104406 
005303 
001345 



100242 
100246 
100250 



004737 
103411 
016501 



101470 
000002 

002212 



000144 
003114 



140005 
101560 
000024 
000000 
016340 
000002 
000200 



002212 



011104 
000002 



i '^ 

MACRO M1200 ^? riAR-84 09:44 PAGt. 93-2 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER 2ER0 (XSTO) 

jPICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

jDOES EXP =« REC'O 

;BR, IF EQUAL COKO 

I BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP C*ERHRD 
.WORD 740 
.WORD T27B0T 
.WORD EXPREC 
40$: CKLQOP (LOOP IF SELECTED 

TRAP C$CLP1 
; NUMBER OF RECORDS TO BE WRITTEN 
J STARTING WRITE BUFFER ADDRESS 



SEQ 0316 



MOV 


T27BFR^6.R1 


MOV 


R1.R2 


BIS 


*6iri,R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 



ERRHRD ERRNO , T27B0T , EXPREC 



101562 



CKLQOP 

MOV 
MOV 



<?100..R3 
FREE,T27WB 



****************************j****4i***4v4i***4i**.-^****4i4,4i*******4t**4i*,4,* 

WRITE DATA.ACK.CVC-l COMMAND 

** **ifc4>* *********** ****** 4* ****A4i J* A* *4i* *************** J*** A********* 



101560 65$ 

101566 



MOV *140005,T27PK3 

MOV #T27PK3,R4 

MOV #20. .T27SZ 

MOV R4,TSDBCR5) 

JSR PC.UMITF 

MOV TSSRCR5).R1 

MOV #SSR.R2 

CMP R1.R2 

BEQ 70$ 

INC FATFLG 

ERRHRD ERRNO . WRTERR , PKTSSR 



70$ 



CKLOOP 

DEC 
BNE 



R3 
65$ 



J WRITE DATA.ACK.CVC-l COMMAND 

J SET UP R4 WITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

jWiIT FOR SSR TO SET 

•^ET TSSR CONTENTS 

J SET UP EXPECIED 

iARE THEY EQUAL 

;bR. IF OK 

(BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 741 
.WORD WRTERR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 

;DEC RECORD COUNTER 

iBR. IF MORE RECORDS TO WRITE 



;****************************************************************** 



; 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

**************** *********************************«L*****4i*,^*4«***** 



JSR PC. REWIND 

BCS 130$ 

MOV TSSR(R5),R1 



(CALL TAPE REWIND COMMAND 
(BR. IF NO PROBLEM 
iGET TSSR CONTENTS 



TSV7 - HARDWARE THSTS 1 8 
TEST 7t URITK DATA RETRY 



10028 


100254 


010004 




10029 


100256 


005237 


002212 


10033 


100262 








100262 


104456 






100264 


001346 






100266 


102765 






100270 


012136 




10034 


100272 








100272 


104406 




10035 








10036 








10037 








10058 








10039 








10040 








10041 








10042 


100274 


013701 


101470 


10043 


100300 


010102 




10044 


100302 


052702 


000002 


10045 


100306 


020102 




10046 


100310 


001406 




10047 


100312 


005237 


002212 


10051 


100316 








100316 


104456 






100320 


001347 






100322 


102461 






100324 


015564 




10052 


100326 








100326 


104406 




10053 


100330 


012704 


101560 


10054 


100334 


012737 


000010 


10055 








10056 








10057 








10058 








10059 








10060 








10061 








10062 


100342 


012737 


140010 


10063 


100350 


010465 


OOOOOO 


10064 


100354 


005237 


101606 


10065 


100360 








100360 


012727 


000001 




100364 


OOOOOO 






100366 


013727 


002116 




100372 


OOOOOO 






100374 


005367 


177772 




100400 


001375 






100402 


005367 


177756 




1OO406 


001367 




10066 


100410 


016501 


000002 


10067 


00414 


032701 


000200 


10068 


100420 


001755 




10069 


100422 


016501 


000002 


10070 


100426 


012702 


000200 


10071 


10C432 


02O=!01 




1Q072 


100434 


001406 





MACRO M1200 25HAR-84 09:44 PAGE 93-3 



MOV R0.R4 

INC KrtTFLG 

ERRHRD ERRN0,T27RWN.PKTSSR 



130$: CKLOOP 



GET PACKET 


ADDRESS 






BUMP COUNT 








REWIND NOT 


ACCEPTED 










TRAP 


CiGRHRD 






.WORD 


742 






.WORD 


T27RWN 






.WORD 


PKTS3R 



iUOOP IF SELECTED 



101562 



TRAP 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

PICK UP XSTO 
SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
DOES EXP « REC'D 
J BR, IF EQUAL (OK) 
I BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
140$: CKLOOP sLOOP IF SELECTED 

TRAP 
J SET UP PACKET ADDRESS 
iSET UP RECORDS TO SPACE OVER 



MOV 


T27BFRt6.Rl 


MOV 


Rl,R2 


BIS 


#BIT1.R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 



ERRHRD ERRNO , T27B0T , EXPREC 



CKLOOP 

MOV 
MOV 



#T27PK3,R4 
#10.T27RB 



CSCLPl 



CSERHRD 
743 

T27B0T 
EXPREC 

C$CLP1 



101560 



ACK,CVC-1, SPACE FORWARD COMMAND 

I ACK, even. SPACE FORWARD COMMAND 

t ISSUE COMMAND 

iBUMP TIMER 

i DELAY ABOUT lOOUS 





MOV 


0140010, T27PK3 


150$: 


MOV 


R4.TSDB(R5) 


152$: 


INC 


T27CNT 




DELAY 


1 



SEQ 0517 



MOV 


*1.CPC)* 


.WORD 





MOV 


L$DLY,(PC)* 


.WORD 





PEC 


-6CPC) 


r'-NE 


. -4 


jr-c 


-22f^PC) 


BNE 


. -20 



MOV 


TSSR(R5),R1 


BIT 


*eiT7.Rl 


BEQ 


152$ 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R2.R1 


BEQ 


160$ 



(GET TSSR 

(CHECK FOR TSSR'S SSR SET 

iKEEP COUNTING UNTIL SET 

;GET STATUS FROM TSSR 

jSET \JP EXPECTED 

(WAS EVERYTHING OK 

iBR. IF ALL IS WELL 



^SV; - HAROWARfc. TKSTS 1 S 
TLSr 7: WRITE DATA Rt^Ri 



1007? 
1007? 



100"8 

100 79 
10080 
10081 
10082 
10083 
10084 
10085 
10086 
10087 
10088 
10089 
10090 
10094 



10095 

1C096 
10097 
10098 
10099 
10100 
10101 
lOlOP 
10103 
10104 
10105 
10106 
10107 
10108 
10112 



10113 

10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 



100436 
10044? 
100442 
100444 
100446 
100450 
100452 
100452 



00523/ 002212 

104456 
001350 
104227 
012136 

104406 
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INC MUF L.G 

HRRHRD FRRNO , T2 7SCF . PKTSSR 



10CW54 
100460 
100464 
100466 
10O470 
100474 
100474 
100476 
100500 
100502 
100504 
100504 



004 737 
004737 
103407 
010001 
005237 

104456 

001351 
102765 
012136 

104406 



011104 
016426 



002212 



100506 
100512 
100514 
100520 
100522 
100524 
100530 
100530 
100532 
100554 
100536 
100540 
100540 
100542 
100546 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

001352 
102461 
015564 

104406 
012703 
015737 



101470 
000002 

002212 



160$: 



CKi.nop 



J BUMP COUNT 






jSPACE FORWARD DIDN'T 


WORK OiJT 






TRAP 


C'.FRHRO 




.WORD 


744 




.WORD 


T275CF 




.WORD 


PKTSSR 


jl.OOP IF SELhCTEO 








TRAP 


C$CLP1 



ISSUF REWIND COMMAND TO SELECTED TAPE DRIVE 

;CALL TAPE REWIND COMMAND 

iSEE HOW TSSR IS 

I BR. IF NO PROBLEM 

{SAVE TSSR 

iBUMP COUNT 

jREWIND NOT ACCEPTED 



JSR 


PC, REWIND 


JSR 


PC.CHKTSSR 


BC5 


170$ 


MOV 


RO.Rl 


INC 


FATFLCi 



170$ 



ERRHRD ERRNO , T27RWN , PKTSSR 



CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



000144 
003114 



TRAP 

READ MESSAGE BUFFER EXTF.NDED STATUS REGISTER ZERO (XSTO) 

jPICK UP XSTO 
iSET UP EXPECTED 
(SET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
jBR, IF EQUAL COK) 
iBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
175J: CKLOOP ;L00P IF SELECTED 

TRA? 
(STARTING RECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



MOV 


T27BFRf6,Rl 


MOV 


R1.R2 


BIS 


*6TT1.R2 


CMP 


R1.R2 


BEQ 


175$ 


INC 


FATFLG 



ERRHRD ERRNO. T27B0T . EXPREC 



CKLOOP 

MOV 
MOV 



0100. ,R3 
FREE.T27WB 



100554 012737 140005 101S60 



101562 I77i: 

WRITE DATA.CVC-l.ACK COMMAND 

MOV ^M40005.T27PK3 (WRITE DATA.CVC-l.ACK COMMAND 



CtERHRO 
745 

T27RWN 
PKTSSR 

CJCLPl 



CiERHRD 

746 

T27BOT 

EXPREC 

C$CLPl 



SEQ 0318 



Tsv: - hARDWARK U.STS 19 
TtST 7; WRITE DATA RETRY 



10124 


100562 


012704 


101560 


1012S 


100566 


012757 


000024 


10126 


100574 


010465 


000000 


10127 


100600 


004737 


016340 


10128 


100604 


016501 


000002 


10129 


100610 


012702 


000200 


10150 


100614 


020102 




10131 


100616 


001406 




1013c 


100620 


005237 


002212 


10136 


100624 








100624 


104456 






100626 


001353 






100630 


005111 






100632 


012156 




10137 


100634 








10C634 


104406 




10138 


100636 


005303 




10139 


100640 


001542 




10140 








10141 








10142 








10143 








10144 








1014*^ 








10146 








1014/ 


100642 


004 757 


011104 


10148 


100646 


105411 




10149 


100650 


010004 




10150 


100652 


016501 


000002 


10151 


100656 


005237 


002212 


10155 


100662 








100662 


104456 






100664 


001554 






100666 


102765 






100670 


012156 




10156 


100672 








100672 


104406 




10157 








10158 








10159 








10160 








10161 








10162 








10163 








10164 








10165 


100674 


012703 


000001 


10166 


100700 


004757 


010556 


10167 


100704 


105411 




10168 


100706 


010004 




10169 


100710 


016501 


000002 


10170 


100714 


005257 


002212 


10174 


100720 








100720 


104456 






100722 


001355 






100724 


104227 






lv)0 726 


012136 




10175 


100730 







MACRO H1200 .-'^ MAR M 09:44 PAG(r 93 'j 



101566 



Se-j 0519 



MOV 


ftT27PK3,R4 


MOV 


i>?0. .TP7SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


^5SR,R2 


CMP 


RV,R2 


BEQ 


180i 


INC 


FATFl G 



ERRHRD ERRNO.WRTERR.PKTtjGR 



180$ 



CKL OOP 

DEL 
BNE 



R3 

177* 



l^;ET UP R4 WITH PACKL I AD')R^:)3 
(SET UP RECORD SI^E IN PACKET 
ISSitE COMMAND 
WAIT FOR S'iR TO SET 
GET TSSR CONrENTS 
iSET UP EXPECTED 
ARE THEf EQUAL 
bR. IE OK 
EUIMP COUNT 

T5SR INCORRECT AFTER WRITE DATA 

TRAP 
.WOi 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 
; COUNT NL^iBER OF RECORDS 
iBR, IF MORE RECORDS TO WRITE 



ISSUE REWIND COMMAND ^0 SELECTED TAPE DRIVE 



JSR 


PC. REWIND 


BCS 


182* 


MOV 


R0.R4 


MOV 


T5SRCR5),R1 


INC 


FATFLG 



182$ 



ERRHRD ERRNO . T27RWN . PK TSSR 



CKLOOP 



J SELECT LOOP MAYBE 



TRAP 



J 

; ISSUE SPACE RECORDS COMMAND - VALUE IN R5 SETS NUMBER OF" RECORDS 
:BIT 15 SETS DIRECTION O-FQRWARD l-REVERSE 

J SPACE 1 RECORD FORWARD 
(ISSUE SPACE COMMAND 
I BR. IF COMMAND OK 
(GET PACKET ADDRESS 
(GET TSSR STATUS 
iBUMP COUNT 

; SPACE FORWARD COMMAND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
185$: CKLOOP iLOOP IF* SELECTED 



MOV 


01. ,R3 


JSR 


PC. SPACE 


BCS 


185$ 


MOV 


R0.R4 


MOV 


TSSRCR5).R1 


INC 


FATFLG 


ERRHRD 


ERRNO, T27SCF,r*KTSSR 



CJERHRPj 
/4/ 

WRTERR 
PKTSSR 

CSCLPl 



J ISSUE REWIND 






,BR. IF ALL IS WELL 






jGET PACKET ADDRESS 






jGET TSSR CONTENTS 






jBtJMP COUNT 






{REWIND FAILED 








TRAP 


C$ERHRO 




.WORD 


748 




.WORD 


T27RUN 




.WORD 


PKTSSR 



c$rLPi 



CiERHRD 
749 

T2:SCF 
PKTSSR 



VtST 7: WRirt' DATA Rt^TRi 



10177 
10178 
10179 
10180 
10181 
10182 
1C183 
10184 
10185 
10186 
30187 
10188 
10189 
10190 
10191 

1019a 

10193 
10194 
10198 



10199 

10200 
10201 
10202 
10205 
10204 
10205 
10206 
10207 
10208 
10209 
10210 
10211 
10212 
10213 
10214 
10215 
10216 
10217 
10221 



10222 

10223 
10224 

10225 
10226 
10227 



100730 
100732 
100736 



100744 
100752 
100756 
100764 
100770 
100774 
101000 
101004 
101006 
101010 
101014 
101014 
101016 
101020 
101022 
101024 
101024 
101026 



101054 
101042 
101046 
101054 
101060 
101064 
101070 
101074 
101076 
101100 
101104 
101104 
101106 
101110 
101112 
101114 
101114 
101116 
101120 



10440t> 
012703 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001356 
103321 
C12136 

104406 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001357 
005111 
012136 

104406 
005303 
001311 



000144 
003114 



101005 
101560 
000024 
000000 
016340 
000002 
000200 



002212 



140005 
101560 
000024 
OOOOOO 
016340 
000002 
000200 



002212 
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%EQ 0320 



101562 



MOV iHOO. .R3 

MOV FR£E,T27WB 



TRAP C$ClP1 

{NUMBER or RECORDS TO BE WRITTF.N 
jSTARTING WRITE BUfFtR AODRESS 



WRITE DATA RETRY, ACK COMMAND 

4i4**t4ilkjf**«*«4"l'A*>***«*****'**«4>**>*iA4(A4i*<(>.*4'*******'******4'************ 



101560 

101566 



190$ 



MOV 


#101005. T27PK3 


MOV 


*T27Pi<3,R4 


MOV 


*20. .T27SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITE 


MOV 


T5Srt(R5).Rl 


MOV 


*S5R.R2 


CMP 


R1,R2 


BEQ 


200 i 


INC 


FATFLG 



ERRHRD ERRN0,T2?WDC.P1<T5SR 



iWRITE DATA RETRY. ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

jSET UP RECORD 5I7E IN PACKET 

; ISSUE COMMAND 

(WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

(ARE THEY PQUAL 

jBR, IF OK 

I BUMP COUNT 

J TSSR INCORRECT AFTER WRITE DATA 



200 J 



003114 101562 



CKLOOP 
MOV 



FREE.T27WB 



TRAP 


CSERHRD 


.WORD 


7:i0 


.WORD 


T2 7WDC 


.WORD 


PKTSSR 


jLOOP IF SELECTED 




TRAP 


CSCLPl 


t STARTING WRITE Bl.f FER ADDRESS 





101560 
101566 



;WRITE DATA. CVC-1, ACK COMMAND 

* 

;4i*«4i4>******'*4>*4'«**********4i**4>«*4t04>*«4i*i4'*****«**4>**««************* 

(WRITE DATA, CVC-1. ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

(SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXF^ECTED 

(ARE THFr EQUAL 

(BR. IF UK 

(EUHP COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERHRO 
.WORD 751 
.WORD WRTEHR 
.WORD PKTSSR 
210$: CKLOOP (LOOP IF SELECTED 

TRAP CK'LPl 
R3 (BUMP DOWN RECORD COUNTER 

190* ;BR. IF MORE RECORDS TO WRITE RETRY 



MOV 


*140005.T27PK3 


MOV 


*T27PK3.R4 


MOV 


«20. .T27SZ 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


T3SR(R5).R1 


MOV 


*5SR.R2 


CMP 


R1.R2 


BEQ 


210$ 


INC 


FATFLG 



ERRHRD ERRNO , WRTERR . PKTSSR 



CKLOOP 

DEC 
BNE 



;**4.4i4>4t4i4t*ij|t^4'^4k4**4.*«****4i*'l'**««**j«>*****k4««4******4^***<**4*i4**4>«4Ljk*A* 



TSV/ - HAf?[>WAHt ThSTS 1 S 
Tf^T 7: WRITt DATA RfcTRt 



102^9 
10250 
10251 
10?3? 
10235 
10254 
10235 
10256 
10240 



10241 

10242 
10243 
10244 
1024S 
10246 
10247 
3 0248 
10249 
102SO 
10251 
10252 
10253 
10254 
10258 



10259 

10260 
10261 
10262 
10265 
10264 
10265 
10266 
10267 
10268 
10269 
10270 
10271 
10272 



101122 
1013 26 
101130 
101134 
101136 
101142 
101142 
101144 
101146 
101150 
10115? 
101152 



101154 
101160 
101162 
101166 
101170 
101172 
101176 
101176 
101200 
101202 
101204 
101206 
101206 
101210 
101214 



101222 
101230 
101254 
101240 
101240 
101244 
101246 
101252 
101254 
101260 
101262 
101266 



004757 
105411 
016501 
010004 

005237 

104456 
001360 
102765 
012136 

104A06 



012737 
0i0465 
005237 

012727 
000000 

013727 

oooooo 

005367 
0013/5 
005567 
001367 



OU104 
000002 



002212 



013701 101470 

010102 

052702 000002 

020102 

001406 

005237 002212 

104456 
001361 
102461 
015564 

104406 

012704 101560 

012737 000010 



140010 
OOOOOO 
101610 

000001 

002116 

1/7772 
177756 
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[S5UF. REWIND COMMAND TO eiEL.tCTtD TAPE DRIVE 

J CALL TAPE REWIND COMMAND 
I BR, IE NO PROBLEM 
{GET TSSR CONTENTS 
iGET PACKET ADDRESS 
;BUMP COUNT 
ERRHRD ERRN0.T27RWN.PKTSGR iREWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


230$ 


MOV 


TSSR(R5).R1 


MOV 


R0.R4 


INC 


FATFLG 



2S0J 



CKLOOP 



;L00P IF SELECTED 



TRAP 


CttRHRi:) 


.WORD 


752 


.WORD 


T2 /RWN 


.WORD 


PKTSSR 



101562 



TRAP 

READ MESSAGE DUTFER EXTENDED STATUS REGISTER ZERO (XSTO) 

;PICK UP XSTO 
;5ET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
iDOES EXP - REC'O 
iBR, IF EQUAL (OK) 
(BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
240$: CKLOOP iLOOP IF SELECTED 

TRAP 
iSET UP PACKET ADDRESS 
;SET UP RECORDS TO SPACE OVER 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 



ERRHRD ERRNO , 127801 . fcXPREC 



CKLOOP 

MOV 
MOV 



«T27PK3.R4 
<^10.T27RB 



C$CLP1 



CSERHRD 
755 

T2 7B0T 
EXPREC 

C$CLP1 



101560 



ACK,CVC-1. SPACE FORWARD COMMAND 

lACK.CVC-l.SPACE FORWARD COMMAND 

1 ISSUE COMMAND 

(BUMP TIMER 

i DELAY ABOUT lOOUS 





MOV 


#140010, T27PK3 


250$: 


MOV 


R4.TSDBCR5) 


252$: 


INC 


T27CNU 




DELAY 


1 



SEQ 0321 



MOV 


«1,CPC)» 


.WORD 





MOV 


L$DLY.(PC)* 


. WOt^D 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22(PC) 


BNE 


.-20 



TSV/ ■ HARDWAHb. TLSTS \ 8 
TtST 7: WRITE DATA RETRY 
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SeO 0.5^2 



10273 


101270 


016501 


C00002 


10274 


101274 


032701 


000200 


10275 


101300 


001755 




10276 


101502 


016501 


000002 


ior77 


101306 


012702 


000200 


10278 


101312 


020201 




10279 


101314 


001406 




10280 


101316 


005237 


002212 


10284 


101322 








101322 


104456 






101324 


001362 






101326 


104227 






101330 


012136 




10285 


101332 








101332 


104406 




10286 


101334 


013701 


101606 


10287 


101340 


013702 


101610 


10288 


101344 


160102 




10289 


101546 


160102 




10290 


101350 


160102 




10291 


101352 


042702 


000077 


10292 


101356 


042701 


000777 


10293 


101362 


020102 




10294 


101364 


001406 




10295 


101366 


005237 


002212 


10299 


101372 








101372 


104456 






1013 74 


001363 






101376 


102554 






101400 


015564 




10300 


101402 








101402 


104406 




10301 


101404 
101404 








101404 


104403 




10302 


101406 


023727 


002212 


10303 


101414 


103402 




10304 


101416 


004737 


017272 


10305 


101422 






10306 








LO307 








10308 








10509 


101422 


004 73 V 


016546 


lOilO 


101426 


103002 




10311 


101430 


000137 


074766 


10312 


101434 






10313 


101434 








101434 


1044 32 






10142.6 


003304 





260$: 



300$: 



MOV 
BIT 
BEQ 
MOV 
MOV 
CMP 
BEQ 
INC 
tRRHRU 



CKl.OOP 

MOV 
MOV 
SI© 
SUB 
SUB 
BIC 
BIC 
CMP 
BfiQ 
INC 
ERI^HRD 



CKLOOP 
ENDSUB 



000017 



''99$ : 



163$: 



CMP 
BLO 
JSR 



JSR 
BCC 
JMP 

EXIT 



TSSRCR5).R1 

V^fJIT7,Rl 

252J 

TSSRCH5),R1 

VASSR.R2 

R2.R1 

260$ 

fATFLG 

ERRN0,T27SCE.PI<TS3R 



T27CNT.R1 

T27CNU,R2 

R1,R2 

R1,R2 

R1.R2 

077.R2 

*000777,R1 

R1,R2 

300$ 

FATFLG 

ERRN0.T27TIM,tXPRtC 



KATFI.G,tfl5 

999$ 

PC.CKDROP 



PC.TSTl.aOP 

163$ 

T27L00P 



TST 



GET T5Sft 

CHECK FOR TSSR' S SSR ^,E 

KEEP COUNTING UNTIL SET 

GET STATUS f- ROM TSSR 

SET UP EXPECTED 

WAS EVERYTHING UK 

BR. IF ALL IS WELL 

BUMP COUNT 

SPACE FORWARD DIDN' 



WORK nuT 
TRAP 
.WORD 
,W0R0 
.WORD 
jLOOP IF SELECTED 

TRAP 
TIME FOR WRITE SPACING 
TIME FOR WRITE RETRY SPACING 



GET' EM PRETTY CLOSE 
GET' EM PRETTY CLOSE 
GET 'EM PRETTY CLOSE 
CLEAR LOW 6 BITS 
SETTING UP CONSTANTS 
CHECK FOR DIFFERENCE 
BR, IF GOOD So}QO CHECK 
BUMP COUNT 
TIME WAS NOT DIFFERENT 



sssa 



LOOP IF 



<<<<<<<<<<<<< 



SELECTED 

END SUBTEST 
L10127: 

TRAP 
;I5 ERROR COUNT AT 25 
iBR. IF LESS THAN 2b 
iTRY TO DROP THE UNIT 



jDO WE NtED TO ITERATE TEST 
jBR, IF NO LOOP REQUIRED 
(EXECUTE AGAIN 



C$ERHRD 
7%4 

T27SCF 
PKTSSR 

C$CLP1 



ENOUGH 




TRAP 


C$ERHRD 


.WORD 


755 


.WORD 


T27TIM 


.WORD 


EXPREC 


TRAP 


C$CLP1 


ST >>>>>>>>>>>v 



c$tsue 



tAUL DONE THIS TEST 



TRAP 
.WORD 



CJEXIT 
L 10122 



TSV/ - HARDWARt:: ThSTS 18 
TE.5T 7: WRITE DATA RETRr 



1.0315 
10316 

ro3i? 

10321 
10322 
10323 
10324 
10325 
10526 
10327 
10328 
10329 
10330 
1033i 
10332 
10333 
i033A 
10335 
10337 
10339 
10340 
10341 
10342 
10343 
10344 
10348 
10349 
10350 
10351 
10352 
10353 
10354 
10355 
10356 
10357 
10358 
10359 
10360 
10361 
10362 
10363 
10364 



101440 
101440 
101442 
101444 
101446 
101450 
101450 
101452 
101454 
101456 
101460 
101462 



101550 
101550 
101552 
101554 
101556 

101560 
101560 
101562 
101562 
101564 
101566 



101570 
101570 
101571 
101572 
101574 



100004 
101450 
000000 
000012 

101462 
000000 
000024 
000000 
000000 



101550 

100006 
101570 
000000 
000006 



100005 

003114 
000000 
000000 



010 

200 

000000 

000000 



10365 
10366 
10367 
10368 
10369 
10370 
103/1 
10372 
10373 
10374 
10375 
10376 
10377 



101576 
101600 
101602 
101604 



101606 
101610 
101612 



100205 
100605 
102205 
177777 



000000 
000000 
000000 
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LOCAL f^TORAGE FOR THIS TEST 



T27PACKP-T: 

.WORD 
.WORD 
.WORD 
.WORD 

T27DATA: 

.WORD 
. WORD 
.WORD 
.WORD 

T27r)SU: .WORD 

T27BFR; .BLKW 



100004 

T27DATA 



10. 

T27BFR 



20. 





25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 

.=< . ♦10>£177770 
T27PK2t 





.WORD 


100006 




.WORD 


T27BF2 




.WORD 







.WORD 


6. 


T27PK3: 








.WORD 


100005 


T27RB: 






T27WB: 


.WORD 


FREE 




.WORD 





T27SZ: 


.WORD 

.EVEN 





f27BF2: 






T27BSO: 


.BYTE 


10 


T27BS1: 


.BYTE 


200 


T27S2: 


.WORD 





T27S3: 


.WORD 






.EVEN 
;TAPE MOTION PACKET COMMAND VALUES 



T27RN: 

T27WDR: 

T27C0N: 



T2/CNT 
T27CNU 
T27DLY 



.WORD 
.WORD 
.WORD 
.WORD 



100205 
1006 J5 
102205 
177777 



.WORD 
.WORD 
.WORD 



SEQ 0323 



J COMMAND PACKET FOR TEST 

i WRITE CHARACTERISTICS COMMAND. WITH 

jADDRESS OF CHARACTERISTICS BLOCK 

: STARTING VALUE OF' BLOCK SIZE 
^CHARACTERISTICS DATA BLOCK 
J ADDRESS Of MESSAGE BUFFER 

J LENGTH OK MESSAGE BUFFER 

(SELECT DRIVE 
I MESSAGE BUFFER 



ACK 



jWRITE SUB SYS MEM COMMAND. AND ACK 
J ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



; REREAD COMMAND. AND ACK 
J ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



iBSELO AREA 
3SEL1 AREA 
SEL 2 AREA 
DATA AREA 



aREREAD DATA (NEXT) 
(REREAD DATA RETRY 
iWRITE CONTINOUb 
(END OF DATA 



;TAPE TIMER COUNTER 
; TAPE TIMER COUNTER 
iOELAY COUNTER 



STORAGE 
STORAGE 



AREA 
AREA 



TSV; HARDWARf:. TESTS 1 8 

TtST 7: WRITt DATA RtTHY 

10579 

10380 

10581 

1038P 

10585 

10584 

10385 101614 124 141 

10586 101702 1?A 1?3 

10387 101751 1?? 105 

10388 102046 120 117 

10389 102130 12c? Ill 

10390 102i'00 124 125 
10591 102255 111 154 

10392 102356 122 105 

10393 102572 124 :25 
10594 102461 124 141 

10395 102554 127 122 

10396 102631 122 105 

10397 102710 124 125 

10398 102765 122 145 

10399 103034 122 101 

10400 103107 124 125 

10401 103156 104 162 

10402 103231 124 123 

10403 103321 124 123 

10404 103374 103 126 

10405 103447 124 125 

10406 10552? 127 122 

10407 105611 122 145 

10408 105673 122 145 

10409 103755 122 145 

10410 104043 122 145 

10411 104131 127 122 

10412 104227 124 123 

10413 104304 124 123 

10414 104366 124 123 

10415 104446 104 141 

10416 104543 127 162 
10417 

10418 
10419 
1O420 
10421 
104^2 
10423 
*0424 

10425 104564 

10426 104564 

10427 104570 C12701 101440 

10428 104574 012721 100004 

10429 104600 012721 101450 

10430 104604 005021 

10431 104606 012^21 000012 

10432 10461? 012721 101462 
10453 104616 005021 

10434 104620 012721 0000^14 

10455 104624 005021 
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SEQ 0324 



160 
123 
122 
123 
102 
123 
154 
122 
123 
160 
111 
122 
125 
167 
115 
125 
151 
125 
123 
105 
102 
111 
141 
141 
163 
141 
111 
125 
123 
125 
164 
151 



LOCAL TEXT MESSAGES FOR TEST 



T27UNG 
T27R0F 
T27RRF 
T27SC: 
T27L0R 
T27UDr 
T27L0Q 
T27SSR 
T27WDE 
T27B0T 
T27TIM 
T27E0T 
T27TH: 
T27RWN 
T27RNC 
T27AM3 
T270FL 
T27U0D 
T27W0C 
T27VCK 
T27BA; 
T27WSS 
T27L0N 
T27L0P 
T27PBP 
T27TRL 
T27NEF 
T27SCF 
T27TSA 
T27WRF 
T27DTA 
TS127ID 



ASCIZ 

Ascrz 

ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



Tape Position Incorrect After REREAD Previous COPP-D' 

TSSR Incorrect After READ DATA Commond' 

REREAD Previous C3poce Reverse, Read Forward) Command Failed' 

POSITION (Space Command) Failed. TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits bet' 

Illegal Mode Bits, Foiled To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA RETRY Comtnand.At HUT' 

Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)' 

WRITE DATA RETRY' 'S Erase Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAD COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error. Correct Data Pattern Not In Ram' 

TSSR Inlt. Failed After REREAD COMMAND' 



Drive 7 Select Failed To Set 



TSSR Not Correct After 
TSSR Not Correct After 
CVC Set, Didn' 't Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading Long Record 
Reading Long Record 
Residual Byte Count 
Reading Long Record 
WRITE DATA RETRY, At 
TSSR Not Correct After 
Not Correct After 
Not Correct After 



REREAD 
REREAD 
VCK In 
REREAD 
Command 



SWB Bit Set 



Failed To Set RLL 
Failed To Set RL 
Incorrect After 
Fa! led To Gi ve_ 
First Record, ^ 



'OFL" In TSSR' 
DATA Command, 
DATA Command' 
Message Buffer' 
DATA Command' 
Not Accepted (RAM Read) 



Bit In XSTO 
S Bit In XSTO' 
Short Record Read' 
Tape Status t.lert' 
ailed To Set RIB Bit XST3 



TSSR 
TSSR 
Data 
ASCIZ 



Compare Error, Data Read 
'Write Data Retry' 



SPACE RECORDS Command' 
WRITE DATA RETRY, Into BOT 
WRITE DATA RETRY Command' 
From Tape Not Equal 



To Written 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T27REST: 



SAVREG 

MOV OT27PACKET.R1 

MOV 0100004, (Rl )♦ 

MOV OT270ATA,(R1)» 

CLR (RD* 

MOV dlO. ,(R1)» 

MOV 0T27BFR.(R1)* 

CLR (Rn» 

MOV v?20. ,CR1)> 

CLR (RD* 



(SAVE THE REGISTERS 

J START OF THE PACKET 

tWRITE SUBSYSTEM MEM. WITH ACK . 

jAODRESS OF CHARAISTIC5 DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGc BUFFER 



TLST 7; WRITI: DATA ttt.Tt^i 
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I ' i ' .) 



104 5b 
104?; 
104 58 
1045<* 
10440 
10441 
1044^ 
1044 5 
10444 
10445 
10446 
1044 7 
10446 
10449 
10450 
10451 
10452 
1D455 
10454 
10455 
10456 
10457 
10458 
10459 
10460 
10461 
10462 
1046^ 
10464 
X0465 



104626 
104b52 
104656 
104644 
104646 
10465<' 
104634 



I0465o 
104656 
104662 
104666 
104672 
104676 
104 700 
104704 
104 706 
104712 
104714 
104716 
104720 
104 720 
104 724 
104730 
104 732 
104754 
104 756 
104 MO 
104 742 
104 742 
104 742 



012/11 
012702 
012762 
005742 
022 702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
00020"' 



012701 
005021 
005021 
005021 
005011 
000207 



X04401 



000000 
000050 

177777 

000000 



101550 
100006 
lOlS/0 

00000*^^ 

101570 



lOlSbO 



101462 64$ J 



T27RT;' 



T27Rt3j 



MUV 
MOV 
MOV 
T ,T 
CMP 
BNt 



SAVRt.li 

MOV 

MOV 

MOV 

CLR 

MOV 

CLH 

MOV 

CI R 

CIR 

RT5 

SAVREt 

MOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENOTST 



OO.fRl ) 
*24. ,R2 
rtl''7//7.Tc>7UfRlR2) 

CR.M 
00. R2 
b4) 
PC 



0T2^n<2,Rl 
0100006. CRl ) 
0I27BF2,CR1) 

(Rn* 

^6. »(R1)» 

CRD* 

«T27BF2,R1 

(RDt 

(Rl) 

PC 



#T27PK3,Rl 

(Rl). 

(Rl). 

(Rl). 

(Rl) 

PC 



'A'j OOt. 



iSH FCT DRIVF /f RO 

iN'jMetR OK lOCATlON'. TO Bf Cl H ^Rf 

jALL ONfc'j ro MtSSAGL RIOTER 

iNFXT I OCATION 

I AT END or LOOP -^t, r 

iKftP (.iJINti UNTIL OONF 

jRLTL'RN 



I SAVE THf REGISTERS 

r.TART Of iHt PACKET 

iWRITE SUeSVGTEM MfH. WITH AC"" 

lADDRESS OF DATA BLOCK 

lEXTENDtO ADORE 'iS 

iSI/F or DATA BLOCK IN BfTES 

(POINT TO DATA SLL AREA 



I RE TURN 

iSAVt REGISTERS 

»'^ET UP POINTER AO0R£S*i 

» COMMAND SPACE 

(ADDRESS OF DATA Bi.OCK 

lEX TENDED ADDRESS 

I SIZE or DATA TRANSFER Bi.OCK 

(RETURN 



LlOiea: 



TRAP 



ittST 
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'.to Oi'r^/ 



105PA 


105060 


103407 




10^?S 


105062 


005237 


002212 


iof.:;9 


105066 


010001 




10550 


105070 








105070 


104456 






3 05072 


001442 






105074 


005054 






105076 


012124 




10551 


105100 








105100 


104406 




10532 


105102 


005737 


002216 


10533 


105106 


001044 




10554 








10535 


105110 


112737 


000200 110261 


10536 


105116 


112737 


000010 110260 


10557 


105124 


012704 


110240 


10538 


105130 


01C465 


000000 


10539 


105154 


004737 


016426 


10540 


105140 


103407 




10541 


105142 


010001 




10542 


105144 


005237 


002212 


10546 


105150 








105150 


104456 






105152 


001443 






105154 


110755 






105156 


012136 




10547 


105160 








105160 


104406 




10546 


105162 


012704 


110130 


10549 


105166 


012737 


000007 110150 


10550 


105174 


004737 


010752 


10551 


105200 


105407 




10552 


105202 


005237 


002212 


10556 


105206 


OlOCOl 




10557 


105210 








105210 


104456 






1052X2 


001444 






105214 


005054 






105216 


012124 




10556 


105220 








105220 


104406 




10559 


105222 


016501 


000002 


10560 


105226 


032701 


000100 


10561 


105232 


001006 




10562 


105254 


005257 


002212 


10566 


105240 








105240 


104455 






105242 


001445 






105244 


111310 






105246 


012124 




10567 


105250 








105250 


104406 




105b8 


105252 


012705 


110276 


10569 


105256 


011337 


110250 


10570 


105262 


012704 


110250 


10571 


105266 


010465 


000000 


10572 


105272 


004737 


016340 



HCS 


?4$ 


iBR. If COMMAND ISSU-.D 


INC 


t-ATKLG 


;nUMP COUNT 


MOV 


R0,R1 


tSAVt CONTENTS OK TS'jH 


ERRHRD 


ERRNO.WRTMSG.SFTMSG 


jWRITE CHARACTERIsriSC 



24$ 



50*: 



CKLOOP 

TST 
BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCG 

MO. 

INC 

ERRHRO 



CKLOOP 



50$: 



60$: 



65$: 



CKLOOP 

MOV 
BIT 
BNE 
INC 
ERROF 



CKLOOP 



tXTFEA 
50$ 

*200,T2eBSl 

#10,T28BS0 

ffT28PK2.R4 

R4.TSDB(R5) 

PC.CHKTSSR 

30$ 

RO.Rl 

FATFLG 

ERRN0,T285SR.PKTS5R 



MOV 


*T28PACKET,R4 


MOV 


«7.T28DSW 


JSR 


PC.URTCHR 


BCS 


50$ 


INC 


TATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



T5SR(R5).R1 

tfOFL.Rl 

60$ 

FATFLG 

ERRN0,T280FL.SFIMSG 



MOV 


0T28RN.R3 


MOV 


CR3).T28PK3 


MOV 


flr28PK3.R4 


MOV 


R4.T5DB(R5) 


JSR 


PC.WAITF 



UK 



FAIl ED 
TRAP 
.WORD 
.WORD 
.WORD 



(CHECK FOR EXTENDED 
iBR IF SWITCH IS ON 



TRAP 
FEATURES 



C$ERHRn 

802 

WRTMSG 

sriM-^f, 

CJCLPl 
SW SWITCH 



tWRITE MISCELLANEOUS CONT/READ STATUS 

jFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

tWRITE SUBSYS MEM PACKET 

J ISSUE COMMAND 

iWAIT FOR SSR 

I BR. IF NO ERROR 

(ERROR. SAVE TS5R 

jBUMP COUNT 

iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
.WORD 603 
.WORD T28S5R 
.WORD PKTSSR 



iLOOP IF SELECTED 



I SUBROUTINE NEtDS PACKET 

I SELECT DRIVE 7 

ilSSUE WRITE CHARACTERISTICS 

I BR. IF COMMAND ISSUED OK 

iBUMP COUNT 

;SAVE CONTENTS OF TS5R 

jWRITE CHARACTERISTISC 



TRAP 
ADDRESS 



C$CLP1 



j scope loop 

jget tssr contents 

icheck for the offline bit set 

iBR. IF OFFLINE (GOOD) 

I BUMP COUNT 

I OFF LINt SHOULD HAVE 



FAILED 




TRAP 


C$ERHRD 


.WORD 


804 


.WORD 


WRTMSG 


.WORD 


SFIMSG 


TRAP 


C$LLP1 



(LOOP IF SELECTED 

TRAP 
(POINTER FOR COMMANDS 
J TAPE READ COMMAND IN PLACE 
iR4 - POINTER TO PACKET 
tissue COMMAND 
iWAir FOR SSR TO SET 



BEEN SET 


(BAD) 


TRAP 


C$ERDF 


.WORD 


805 


.WORD 


T280FL 


.WORD 


SFIMSG 



CiCLPl 



TSV7 ■ HAPOWrtRK tlstl; 1 a 
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SFQ 0.528 



10573 


105276 


016501 


000002 


10574 


105302 


012702 


100306 


10575 


105306 


020102 




10576 


105310 


0O14O6 




10577 


105512 


00:d237 


002212 


10581 


105316 








105316 


104456 






105320 


001446 






105322 


111164 






105324 


012136 




10582 


105326 








105326 


104406 




10583 


105330 


005723 




10584 


105332 


022713 


177777 


10585 


105336 


001401 




10586 


105340 


000746 




10587 


105342 






10588 


105342 
105342 








105342 


104403 




10589 


105344 


023727 


002212 


10590 


105352 


103402 




10591 


105354 


004737 


017272 


10592 


105360 







80$: 



90$: 



000017 



MOV 


TSSRCR5),R1 


MOV 


/>SSR!5C!0FL 


CMP 


R1.R2 


BEC^ 


80$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T28TM 



CKLOOP 



999$: 



ENDSUe 



CMP 
BLO 
JSR 



TST 


CR3)* 


CMP 


fll77777,(R3 


BEQ 


90$ 


BR 


65$ 



FATFLG. <^15. 

999$ 

PC.CKDROP 



jGET TGSR CONTENTS 
!BITl!BIT2.R2 jSET UP EXPFCTED 
(ARE THEY EQUAL 

BR, IF OK ESP. FUNCTION RFJECT 
BUMP COUNT 
.PKTSSR iTSSR INCORRECT AFTER FORMAT CMD 

TRAP C$ERHRD 
. WORD 806 
.WORD T28TM 
.WORD Pi^TSSR 
jLOOP IF SELECTED 

TRAP C $Cl Pi 
; POINT TO NEXT COMMAND 
) ;END OF THE COMMANDS VET 

J BR. IF DONE 
(MORE C0MMANDC5) TO GO 

. ^ >>>>>>>v>>> END SUBTEST >>>>>>••-»>>>> 

L10131: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE LfNIT 



TSV7 - HAROWARt. ThSTS I 3 
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10594 
10595 
10596 
10597 
10598 
10599 
10600 
10601 
10602 
10603 
10604 
10605 
10606 
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no 

PAGE?. 97 



SEQ 06?.9 



10607 
10608 
10609 
10610 
10611 
10612 
10616 
10617 



10618 
10619 
10620 
10621 
10622 
10626 
10627 



10628 

10629 
10630 
10631 
10632 
10633 
10634 
10635 
10636 
10637 
10638 
10639 
10640 
10644 



105360 
105360 
105360 
105362 
105366 
105372 
105376 
105402 
105404 
105410 
105412 
105412 
105414 
105416 
105420 
105422 
105430 
105434 
105440 
105442 
105446 
105450 
105450 
105452 
105454 
105456 
105460 
105460 
105462 
105466 
105472 
105500 
105504 
105512 
105516 
105522 
105526 
105532 
105534 
105536 
105542 
105542 
105544 
105546 
105550 



104402 
004737 
004 737 
004737 
004737 
103407 
005237 
010001 

104455 
001447 
003650 
012124 
013737 
012704 
004737 
103407 
005237 
010001 

104456 
001450 
005054 
012124 

104406 
012703 
011337 
015737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001451 
110617 
012136 



TEST 8. SUBTEST 2 

VERIFIES THAT A FORMAT COMMAND WITH AIM ILLEGAL MODE 
CODE CAUSES FUNCTION REJECT TERMINATION WITH THE 
ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL 
MODE CODES ARE CHECKED. 



BGNSUB 



112206 
112300 
112342 
016064 

002212 



JSR 


PC,T28REST 


JSR 


PC,T28RT2 


JSR 


PC.T28RT3 


JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



002172 
110130 
010752 

002212 



110150 20$: 



110266 
110250 
003114 
110250 
0OO400 
000000 
016340 
000002 
100206 



002212 



110252 
110256 



24$: 



30$: 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



UNITN,T28DSW 

#T26PACKET.R4 

PC.WRTCHR 

24$ 

FATFLG 

RO.Rl 

ERRNO , WRTMSG , SF IMSG 



CONTENTS OF 
FATAL ERROR 



MOV 


^T28IMV,R3 


I 


MOV 


CR3),T28PK3 




MOV 


FREE.T28RB 




MOV 


OT28PK3.R4 




MOV 


•*256.,T28SZ 




MOV 


R4.TSDe(R5) 




JSR 


PC.WAITF 




MOV 


TSSRCR5).R1 




MOV 


4»SSR!SC!BIT1!BIT2.R2 




CMP 


R1,R2 




BEQ 


75$ 




INC 


FATFLG 




ERRHRD 


ERRNO. T2eWDF.PKTSSR 





J >>>>>>>>>>^> BEGIN SUBTEST >>>>>>>>>>>> 

T8.2: 

TRAP C$BSUB 
iSET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
J DO INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
BUMP COUNT 

TSSR REGISTER 
TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 807 
.WORD SFIERR 
.WORD SFIMSG 
SET UP DRIVE NUMBER 
S'JBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
BR. IF COMMAND ISSUED OK 
BUMP COi^T 

SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC FAILED 

TRAP CiERHRD 
. WORD 808 
.WORD WRTMSG 
.WORD SFIMSG 
LOOP IF SELECTED 

TRAP CSCLPl 
SET POINTER FOR COMMANDS 
SET UP NEXT COMMAND 
STARTir«3 WRITE BUFFER ADDRESS 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 

WAIT FOR 55R!BIT1!BIT2 TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 
BUMP COUNT 
TSSR INCORRECT AFTER 



READ DATA 
TRAP 

.WORD 
.WORD 
.WORD 



CJERHRD 
809 
T28WDF 
PKTSSR 
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10645 


105552 








105552 


104406 




10646 


105554 


013701 


110160 


1064 7 


105560 


010102 




10648 


lOSSfd 


052702 


001000 


10649 


105566 


020102 




10650 


105570 


001406 




lOt'51 


105572 


005237 


002212 


10655 


105576 








105576 


104456 






105600 


001452 






105602 


110674 






105604 


015564 




10656 


105606 








105606 


104406 




10657 


105610 


005723 




10658 


105612 


021327 


177777 


10659 


105616 


001523 




10660 


105620 








105620 


104406 




10661 


105622 
105622 








105622 


104403 




10662 


105624 


023727 


002212 


10663 


105652 


105402 




10664 


105634 


004737 


017272 


10665 


105640 







1"^ 1.0 
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;5$: 



180$ 



190$ 



000017 



SfQ 0330 



CKLQOP 






LOOP IF SELECTED 

TRAP CJCLPl 


hc: 


T28BFR.6.R1 




GET MESSAGE BUFFER 


r-o ' 


R1,R2 




SET UP EXPECTED 


Bi.j 


«BrT9.R2 




SET THE ILC BIT IN EXPECTED 


ChP 


Rl.R? 




ARE THEr EQUAL 


BGQ 


180J 




BR, IF EQUAL CALL IS WELL) 


INC 


FATFLG 




BUMP COUNT 


ERRHRD 


ERRN0,T28L0Q 


EXPREC 


THE ILC BIT WAS NOT SET IN XSTO 

TRAP CJERHRD 
.WORD 810 
.WORD T28L0Q 
.WORD EXPREC 



999S 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 

ENOSUB 



CMP 
BLO 
JSR 



CR3)f 

CR3),*1777V7 

30$ 



FATFLG. iM5. 

999$ 

PC.CKDROP 



TRAP C$CLP1 
[BUMP TO NEXT ADDRESS (COMMAND) 

CHECK FOR END OF COMMAND BUf^FER 
BR. IF MORE COMMANDS TO TRY 
LOOP IF SELECTED 

TRAP C$CLP1 
;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10132: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 



TSV7 HARDWARE Tf.STS 1 iJ 

TtST 8: WRITE/RtAD TAPL MARK 

10667 
106C»8 
10609 
10670 
10671 
10672 
106-3 
10^74 
10675 
10676 
10677 
10678 
10679 
10680 
10681 
10682 
1068? 
10684 
10685 
10686 
10637 
10688 
10689 
10690 
10691 
10692 
10693 
10694 
10695 
10696 
10697 
10696 
10699 
10700 
10701 
10702 
10/03 
10704 
10705 
10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10716 
10719 
10720 
10721 
10722 
10723 
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SEQ 0551 



TEST 8, SUBTEST 3 

iVERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
PROPERLY, AhJO THAT READ COMMANDS SUBSEQUENTLY ISSUED 
TO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
STATUS ALERT WITH THE TAPE MARK DETECTED CTMK) STATUS 
BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE CONTROLLER IS INITIALIZED AND TAPE REWOiiND. 
THIS SETS THE VOLUME CHECK CVCK) STATUS BIT. 

2. A WRITE TAPE MARK COMMAND WITH CVC-1 IS ISCUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED 
(I.E. VCK-O AND TMK-1). 

3. SEVERAL MORE URITE TAPE MARK COMMANDS, THESE WITH 
CVC-0 ARE ISSUED AND PROPER TERMINATION (NORMAL) 
AND STATUS CTMK) VERIFIED, 

4. A READ REVERSE COIIMANO IS ISSUED AND PROPER 
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
TRANSFERRED INTO MEMORY. 

5. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
(TMK) VERIFIED. 

6. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 

7. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFirO THAT TAPE STATUS ALERT TERMINATION 
OCCURED, TMK-1 AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COl^TER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
THE POSITION JUST BEFORE THE FIRST RECORD ON 
TAPE. 

q. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 

SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH THE 
REVERSE INTO SOT CRIB) STATUS ERROR BIT SET. 

9. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUFO AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED. TMk-1, AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 



TSV;' - HARDWARE TESTS l-d 
TEST 8: WRITE/READ TAPE MARK 



10724 
107.-^^ 

10726 
10727 
10728 
10729 
] 0:^.^0 
10.-31 
1C732 
10733 
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SEO 0332 



107J4 

10735 
10736 
10737 
10738 
10739 
10740 



10741 
10742 
10743 
10747 
10748 



10749 
10750 
10751 
10752 
10753 
10757 
10758 



10759 

10760 
10761 
10762 
10/63 
10764 
10768 



105640 
105640 
105640 
1C5642 
105646 
105652 
105656 
105664 
105670 
105672 
105672 
105676 
105700 
105704 
105706 
105712 
105714 
105720 
105722 
105726 
105730 
105754 
105736 
10575C 
105740 
105742 
105744 
105746 
105754 
105760 
105764 
105766 
1057.^ 
105774 
105774 
105776 
106000 
106002 
106004 
106004 
106000 
106012 
106014 
106020 
106022 
J 06026 
106026 
106030 



104402 
004737 
004 737 
004737 
012737 
004737 
105426 

012727 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001453 
005650 
0x2124 
013737 
012704 
004737 
105407 
005237 
010001 

1044'>6 
001454 
00!S054 

012124 

J.04406 
004 737 
105411 
Olf'^Al 
01 >04 
0O5'^37 

104456 
001455 



112206 
1L230C 
1'2342 
02i420 
016064 



000250 
002116 
177772 
1/7756 
110312 
002212 



002172 
110150 
010752 

002212 



THE TAPF MARK CAUSES THE SPACE RECORDS OPERATION 
TO RE PREMATURELY TERMINATED. 



BGN5UB 



110312 



10$ 



JSR 


PC,T28REST 


J5R 


PC.T28RT2 


JSR 


PC.T28RT3 


MOV 


.'MOOOO. ,T28DLY 


JSP 


PC.SOFINIT 


BC5 


20$ 


DELAY 


250 



DEC 


T28DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


RO.Rl 


F-'^RDF 


ERRNO.SFIERR.SFIMSG 



110150 20$: 



23$ I 



011L04 
000002 
0C2212 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRO 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



UNITN,T28DSW 

<H28PACKEr.R4 

PC.WRTCHR 

23$ 

FATFLG 

RO.Rl 

ERRNO . WRTMSG . SFIMSG 



PC. REWIND 

50$ 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRNO, T28RWN,PI<TSSR 



.»>>>-.>>>>>>> BEGIN SUBTEST >> 


>>>>> «>>>> 


T8.?: 




TRAP 


C$BSUB 


S^T COMMAND PACKET 




SET UP OTl-JER COMMAND PACKET 




SET UP OTHER COMMAND PACKF T 




SET UP DELAY RO-JTINE 




DO INITIALIZE ON CONTROLLER 




BR IF INIT WAS OK 




DELAY ABOUT .25 SECONDS 




MOV 


5250. CPO' 


.WORD 





MOV 


L$DLY,CPC)* 


.WORD 





PEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


BUMP DELAY ROUTINE DOWN 




BR, IF MORE DELAY TIME LEFT 




BUMP COUNT 




CONTENTS OF TSSR REGISTER 




FATAL ERROR TSSR WAS NOT OK 




TRAP 


C$ERDF 


.WORD 


811 


.WORD 


SFIERR 


.WORD 


SFIMSG 



SET UP DRIVE NUMBER 

SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR, IF COMMAND ISSUED OK 

BUMP COUNT 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC 



iLOOP IF SELECTED 

TRAP 
;CALL TAPE REWIND COMMAND 
J BR, IF NO PROBLEM 
iGET TSSR 

;SAVE PACKET ADDRESS 
lBU^»P COUNT 
I REWIND NOT ACCEPTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


812 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



C$CLP1 



TRAP 
.WORD 



C$tRHRD 
813 
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10769 

10770 
10771 

l077^ 

10/73 
10774 
10775 
10779 



10780 

10781 
10782 
10783 
10784 
10785 
10786 
10787 
10788 
10789 
10790 
10794 



10795 

10796 
10797 
10798 
10799 
10800 
10804 
10805 



10806 

10807 
10808 
10809 
10810 
10814 



X0815 



106032 
106034 
106036 
106036 
106040 
106044 
106046 
106052 
106054 
106056 
106062 
106062 
106064 
106066 
106070 
106072 
106072 
106074 
106100 
106102 
106110 
106116 
106122 
106126 
106132 
106154 
106136 
106142 
106142 
106144 
106146 
106150 
106152 
106152 
106154 
106162 
10€a66 
106172 
106174 
106200 
106202 
106202 
106204 
106206 
106210 
106212 
106212 
106214 
106220 
106224 
106226 
106232 
106232 
106234 
106236 
106240 
106242 



111241 
012136 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001456 
111117 
015564 

104406 
005737 
001024 
112737 
112737 
012704 
010465 
004737 

lo: .(j7 

010001 
005237 

104456 
001457 
110755 
012136 

104406 
012737 
012704 
004737 
103407 
00523 7 
010001 

104456 
001460 
005054 
012124 

104406 
016501 
032701 
001006 
005237 

104455 
001461 
111310 
012124 



30$ 



CKl OOP 



110160 
000002 

002212 



MOV 


T28BFRi6.Rl 


MOV 


R1.R2 


BIS 


#8111, R2 


CMP 


R1.R2 


BH.Q 


40$ 


INC 


FATKLG 


ERRHRD 


tRRN0.T28B0T.EXPRE.C 



002216 

000200 
000010 
110240 
000000 
016426 



002212 



40$ 
42$ 



110261 
110260 



50$ 



CKLOOP 

rsT 

BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRO 



CKLOOP 



000007 
110130 
010752 

002212 



110150 



60$ 



000002 
000100 

002212 



65$ 



CKLOUP 

MOV 
BIT 
BNE 
INC 
ERRDF 



CKLOOP 



EXTFEA 

50$ 

*200.T28BS1 

010.T28B50 

0T28PK2,R4 

R4.TSDBCR5) 

PC.CHKTSSR 

50$ 

RO.Rl 

FATFLG 

ERRN0,T28SSR,PKTSSR 



TS5R(R5).R1 

*0FL,R1 

65$ 

FATFLG 

ERRN0,T280FL,SF1MSG 



SEQ 



jLOOP rr SELECTED 

;PICK UP XSTO 

;SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

jOOES EXP - RtC'O 

(BR. IF EQUAL (OK) 

;BUMP COUNT 

iTAPE NOT AT BOT AFTER 



. WORD 
.WORD 

TRAP 



rpSRWN 
PKTSGR 

CiCLPl 



jLOOP IF SELECTED 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
FEATURES 



C$ERHRD 
814 

T28B0T 
EXPREC 

C$CLP1 
SWITCH 



; CHECK FOR EXTENDED FEATURES SW 

I BR IF SWITCH IS ON 

J WRITE MISCELLANEOUS CONT/READ STATUS 

jFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 

; WRITE SUBSYS MEM PACKET 

; ISSUE COMMAND 

(WAIT FOR SSR 

iBR. IF NO ERROR 

(ERROR, SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER 



(LOOP IF SELECTED 



WRT. MISCELLANEOUS 


TRAP 


C$FRHRD 


.WORD 


815 


.WORD 


T28SSR 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



MOV 


*7,T2eDSW 


* 


MOV 


#T28PACKET,R4 


I 


JSR 


PC.WRTCHR 


1 


ECS 


60$ 


t 


INC 


FATFLG 


* 


MOV 


RO.Rl 


i 


ERRHRD 


ERRN0.WRTMSG.5FIMSG 


I 



SET UP DRIVE NUMBER 

5U0R0UTING NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 



BR. IF COMMAND ISSUED 


OK 




BUMP COUNT 






SAVE CONTENTS Of TSSR 






WRITE CHARACTERISTISC 


FAILED 






TRAP 


C$ERHRD 




.WORD 


816 




.WORD 


WRTMSG 




.WORD 


SFIMSG 



(SCOPE LOOP 



TRAP 



(GET TSSR CONTENTS 

(CHECK FOR THE OFFLINE BIT SET 

(BR, IF OFFLINE (GOOD) 

(BUMP COUNT 

(OFF LINE SHOULD HAVE BEEN SET 

TRAP 
.WORD 
.WORD 
.WORD 
(LOOP IF SELECTED 



C$CLP1 



(BAD) 
C$ERDF 
817 
T280FL 
SFIMSG 



TSV7 - HARDWARt TESTS 1-3 
TEST 8: WRITE/READ TAPE MARK 



MACRO M].?00 L.^?- MAR -84 09:44 



K 1 

PAGE 98-3 
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106242 


104406 




1081.6 


106244 


013737 


002172 110150 


10817 


106252 


012704 


110130 


10818 


106256 


004737 


010752 


10819 


106262 


103407 




10820 


106264 


005237 


002212 


10824 


106270 


010001 




10825 


106272 








106272 


104456 






106274 


001462 






1062 76 


005054 






106300 


012124 




10826 


106302 








106302 


104406 




10827 


106304 


012737 


140011 110250 


10828 


106312 


012704 


110250 


10829 


106316 


010465 


000000 


10830 


106322 


004737 


016i40 


10831 


106326 


016501 


000002 


10832 


106332 


012702 


000200 


10833 


106336 


020102 




10854 


106340 


001406 




10835 


106342 


005237 


002212 


10839 


106346 








106346 


104456 






106350 


001463 






106352 


111363 






106354 


012136 




10840 


106356 








106356 


104406 




10841 


106360 


013701 


110160 


10842 


106364 


010102 




10843 


106366 


042702 


000020 


10844 


106372 


020102 




10845 


106374 


001406 




10846 


106376 


005237 


002212 


10850 


10<i402 








10-3402 


104456 






10S404 


001464 






106406 


111442 






106410 


015564 




10851 


106412 








106412 


104406 




10652 


106414 


013701 


110160 


3 0853 


106420 


010102 




10854 


106422 


052702 


100000 


10855 


106426 


020102 




10856 


106430 


001406 




1085 7 


106432 


005237 


002212 


10861 


106436 








106436 


104456 






106440 


001465 






106442 


111515 






106444 


015564 




10862 


106446 








106446 


104406 




10863 


106450 


004737 


011104 



68$ 



70$ 



80$ 



90 i 



MOV 


UNITN,T28DSW 


MOV 


OT28PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


68$ 


INC 


FATFLG 


MOV 


RO.Rl 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



CKLOOP 



TRAP C$CLP1 
I SET UP DRIVE NUMBER 
; SUBROUTINE NEEDS PACKET ADDRESS 
(ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 

;SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC 



LOOP IF SELECTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


818 


.WORD 


WRTMSG 


.WORD 


SFIM5G 



TRAP 



C$CLP1 



MOV 


0140011. T28PK3 


I 


MOV 


^'?T28PK3.R4 


* 


MOV 


R4.TS0B(R5) 


* 


J5R 


PC.WAITF 


1 


MOV 


TSSR(R5),R1 


I 


MO; 


0SSR.R2 


I 


CMP 


R1,R2 


1 


BEQ 


70$ 


t 


INC 


FATFLG 


! 


ERRHRD 


ERRN0,T28WDC.PKTSSR 


! 



WRITE TAPE MARK.ACK.CVC-1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

issue COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

BUMP COUNT 

TSSR INCORRECT AFTER WRITE TAPE MARK 







TRAP 


C$ERHRD 






.WORD 


BIQ 






.WORD 


T28WDC 






.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


L$CLP1 


MOV 


T28BFR*6.R1 


;PICK UP XSTO (VCK CHECK) 




MOV 


R1,R2 


iSET UP EXPECTED 




BIC 


*BIT4.R2 


J VCK SHOCK. D BE 




CMP 


R1,H2 


;IS VCK SET CORRECTLY 




BEQ 


80 : 


:BR, IF VCK IS CLEAR 




INC 


FATFLG 


I BUMP COUNT 




ERRHRD 


ERRNO.TaeVCK.EXPREC 


J VCK WAS NOT CLEAR AFTER CVC-1 









TRAP 


CJERHRD 






. WORD 


820 






.WORD 


V28VCK 






.WORD 


EXPREC 


CKLOOP 




[LOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


T28BFR*6,R1 


(PICK UP XSTO (CHECK TMK) 




MOV 


R1.R2 


;5ET UP EXPECTED 




BIS 


#eiT15.R2 


iTMK SHOULD BE SET 




CMP 


R1.R2 


J WAS TMK SET 




BEQ 


90$ 


I BR, IF TMK WAS SET 




INC 


FATFLG 


J BUMP COUNT 




ERRHRD 


ERRNO.TsaTMK.tXPREC 


J TMK WAS NOT SET AFTER WRT 1 APE 


MARK 






TRf^P 


CiFRHRD 






.WORD 


821 






.WORD 


T28TMK 






.WORD 


EXPREC 


CKLOOP 




I LOOP IF SELECTED 








TRAP 


CJCLPl 


JSR 


PC, REWIND 


iCALL TAPE RtWIKO COMMAND 
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4 



10864 


106454 


103411 




1086^) 


106456 


010004 




10866 


106460 


016501 


000002 


1086/ 


106464 


005237 


002212 


10871 


106470 








1064/0 


104456 






1064 72 


001466 






3 064/4 


111241 






1064 76 


012136 




10872 


106500 








106500 


104406 




10873 


106502 


013701 


110160 


10874 


106506 


010102 




10875 


106510 


052702 


000002 


10876 


10S514 


020102 




10877 


106516 


001406 




10878 


106520 


005237 


002212 


10682 


106524 








106524 


104456 






106526 


001467 






106550 


111117 






106532 


015564 




10883 


106534 








106534 


104406 




10884 


106536 


012705 


000012 


10685 


106542 


012737 


140011 


10886 


106550 


012704 


110250 


1088/ 


106554 


010465 


000000 


10888 


106560 


004737 


016340 


10889 


106564 


016501 


000002 


10890 


106570 


012702 


000200 


10891 


106574 


020102 




10892 


106576 


001406 




10893 


106600 


005237 


002212 


10897 


106604 








106604 


104456 






106606 


001470 






106610 


111363 






106612 


012136 




10898 


106614 








106614 


104406 




10899 


106616 


013701 


110160 


10900 


106622 


010102 




10901 


106624 


052702 


100000 


10902 


106630 


020102 




10903 


106632 


001406 




109O4 


106634 


005237 


oo^^l^ 


10908 


10S640 








106640 


104456 






106642 


001471 






106644 


111515 






106646 


015564 




10909 


106650 








106650 


104406 




10910 


106652 


005303 




10911 


106654 


001537 




10912 


106656 


012700 


177777 



bCS 
MOV 
MOV 
INC 
ERRHRD 



130S: CKl.OOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



130$ 

R0.R4 

T5SRCR5),R1 

FATfLG 

ERRN0.T26RWN.PKT5SR 



T2eBF"R*6,Rl 

R1.R2 

>eiTl.R2 

R1,R2 

140t 

F'ATFLG 

ERRN0,T28B0T.EXPREC 



110250 



140$: 


CKLOOP 




150$: 


MOV 


#10. ,R3 




MOV 


*140011.T28PK3 




MOV 


<>T28PK3,R4 


155$: 


MOV 


R4.TSDB(R5) 




JSfi 


PC.WATTF 




MOV 


TSSR(R5),R1 




MOV 


*SSR.R2 




CMP 


R1.R2 




BEQ 


165$ 




INC 


FATKLG 




ERRHRD 


ERRN0.T26WDC.PKTSSR 



165$ 



CKLOOP 



160$: 



CKLOOP 

DEC 
BNE 
MOV 



R3 
155$ 

/n/V7V?,R0 



SECJ 



I BR, ir NO PROBLEM 
;SAVE PACKET ADDRESS 
(GET TSSR STATUS 
;BUMP COUNT 
! REWIND NOT ACCEPTED 



LOOP IF SELECTED 

PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOEf EXP - REC'D 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
822 
TP8RWN 
PKTSSR 

C$CLP1 



BR, IF EQUAL 
BUMP COUNT 
TAPE NOT AT 



COK) 
BOT AFTER 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
823 
128801 
EXPREC 



LOOP IF SELECTED 

TRAP 

NUMBER OF RECORDS TO WRITE TM 
WRITE TAPE MARK, ACK, even COMMAND 
SET UP R4 WITH PACKET ADDRESS 
issue. COMMAND 
WAIT FOR SGR TO SET 
PICK Lip TSSR 

SET UP EXPECTED CSSR ONLY) 
WAS STATUS GOOD 
BR, IF TERMINATION WAS GOOD 
BUMP COUNT 

NOT CORRECT AFTER WRT TAPE M. 



C$CLP1 



TSSR 



MOV 


T28BFR*6,R1 




iPICK 


MOV 


R1.R2 




(SET 1 


BIS 


^»BIT15.R2 




;SET 


CMP 


R1.R2 




iDOCG 


BEQ 


180$ 




iBR, 


INC 


KATFLG 




[BUMP 


ERRHRD 


ERRN0,T28TMK, 


, EXPREC 


;TMK i 



LOOP IF SELECTED 
UP XSTO 



TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



C$FRHRO 
824 

T28WDC 
PKTSSR 

C$CLP1 



UP EXPECTED 

TMK BIT IN EXPECTED 
EXP - REC'D 

IF EQUAL COK) 
COUNT 

NOT SET AFTER URT TAPE MARK 

TRAP 
.WORD 
.WORD 
.WORD 



LOOP IF SELECTED 

BUMP COUNTER TOWN 
BR, IF LESS THAN 10 
VALUE 10 WRITTEN TO 



TRAP 

TAPE MARKS 
MEMORY 



C$ERHRO 

925 

T2aVMK 

EXPREC 

C$CLP1 



V; - I'AROWARt 


Tf-.STS 1 


-8 


MACRO M1200 23 


-MAR -84 


M 1 

09:44 PAGE 98 -5 
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10913 106662 


004 737 


017512 




JSR 


PC,P ILLMEM 


;FrLL MFM WITH ALL ONES 




10^14 106666 


01373? 


003114 


110252 


MOV 


EREE,T28WB 


J STARTING READ BUFFER ADDRESS 




10915 106674 


012737 


140401 


110250 


MOV 


.'>140401.T28PK3 


;READ REVERSE, ACK, COMMAND 




10916 106702 


012704 


110250 




MOV 


V?T28PK3,R4 


iSET UP R4 UITH PACKET ADDRESS 




10917 106706 


013737 


000024 


110256 


MOV 


20. .T28SZ 


;5Er UP RECORD SIZE IN PACKET 




10918 106714 


010465 


000000 




MOV 


R4,TSDBCR5) 


J ISSUE COMMAND 




10919 106720 


004737 


016340 




JSR 


PC.UAITK 


iWAIT FOR SSR TO SET 




10920 106724 


016501 


000002 




MOV 


TSSRCR5j,R1 


jGET TSSR CONTENTS 




10921 106730 


012702 


100204 




MOV 


<^SSR!SC!BIT2,R2 


iSET UP EXPECTED 




10922 106734 


020102 






CMP 


R1.R2 


I ARE THEY EQUAL 




10923 106V36 


001406 






BhU 


200$ 


(BR, IF OK 




10924 106740 


005237 


002212 




INC 


FAiFLG 


I RUMP COUNT 




10928 106744 








ERRHRD 


ERRN0,T20R0F,PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 


106744 


104456 










TRAP 


CJERHRD 


106746 


001472 










.WORD 


826 


106750 


110454 










.WORD 


T28RDP 


106 752 


012136 










.WORD 


PKTSSR 


10929 106754 






200$: 


CKl.OOP 




jLOOP IF SELECTED 




1C6754 


104406 










TRAP 


C$CLP1 


10930 106756 


013701 


110160 




MOV 


T28BFR*6.R1 


;PICK UP XSTO 




10931 106762 


010102 






MOV 


R1,R2 


;SFT UP EXPECTED 




10932 106764 


052702 


100000 




eis 


*6IT15,R2 


ilMK SHOU.D BE SE ! 




10935 106770 


020102 






CMP 


R1.R2 


(IS TMK SET 




10934 106772 


001406 






BEQ 


210$ 


I BR. IF TMK WAS SET (GOOD) 




10935 106774 


005237 


002212 




INC 


FATFLG 


;BUMP COUNT 




10939 107000 








ERRHRD 


ERRNO , T28RRM , EXPREC 


J TMK NJT SET AFTER READ REV 




107000 


104456 










TRAP 


C$ERHRD 


10 7002 


001473 










.WORD 


827 


107004 


111567 










.WORD 


T28RRM 


107006 


015564 










.WORD 


EXPREC 


10940 107010 






2l0t: 


CKLOOP 




I LOOP IF SELECTED 




107010 


1044 06 










TRAP 


C$CLP1 


10941 107012 


017701 


074076 




MOV 


aFREE.Rl 


iFIRST LOC IN READ BUFFER 




10942 107016 


012702 


177777 




MUV 


^177777, R2 


i EXPECTED IF NO DATA TRANS. 




10943 107022 


020102 






CMP 


R1,R2 


;DID ANY DATA GET TRANSFERRED 




10944 107024 


001406 






BEQ 


220$ 


iBR, IF NO DATA TRANS CGOOO) 




10945 107026 


005237 


002212 




INC 


FATFLG 


;BUMP COUNT 




10949 107052 








ERRHRD 


ERRNO. T28DTR. EXPREC 


I DATA TRANSFERRED ON READ TAPE 


MARK 


107032 


104456 










TRAP 


CiERHRD 


107034 


001474 










.WORD 


328 


107036 


112002 










.WORD 


128DTR 


107040 


015564 










.WORD 


EXPREC 


10950 107042 






220$; 


CKLOOP 




iLOOP IF SELECTED 




107042 


104406 










TRAP 


CSCLPl 


10951 107044 


012737 


100410 


110250 


MOV 


*100410.T28PK3 


(SPACE REVERSE. ACK, COMMAND 




10952 107052 


012737 


000001 


110252 


MOV 


»1,T28RB 


;N'J!ieER OF RECORDS TO SPACE BACK 


10953 107060 


012704 


110250 




MOV 


#T28PK3.R4 


(SET UP R4 WITH PACKET ADDRESS 




10954 107064 


010465 


OOOOCO 




MOV 


R4,TSDBCR5) 


I ISSUE COMMAND 




10955 107070 


00^.737 


016540 




JSR 


PC.WAITF 


;WAIT FOR SSR TO SET 




10956 107074 


016501 


000002 




MOV 


TSSR(R5).R1 


I GEY TSSR CONTENTS 




10957 107100 


012702 


100204 




MOV 


*S3R:SC!BIT2.R2 


;SET UP EXPECTED 




10958 107104 


020102 






CMP 


R1.R2 


lARE THEY EQUAL 




10959 107106 


001406 






BEQ 


222$ 


J BR. IF OK 




10960 107110 


005237 


002212 




INC 


FATfLG 


;BUMP COUNT 




10964 107114 








ERRHRD 


ERRNO. T26RDG.PKTSSR 


iTSSR INCORRECT AFTER SPACE CMU 


1 J 


107114 


104456 










TRAP 


C$LRHRD 


107116 


00147b 










.WORD 


629 



SEQ 0336 
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107120 


110535 






107122 


012136 




10965 


107124 








107124 


104406 




3 0966 


107126 


013701 


110160 


10967 


107132 


010102 




10968 


107134 


052702 


lOOOOO 


10969 


107140 


020102 




10970 


107142 


001406 




10971 


107144 


005237 


002212 


10975 


107150 








107150 


104456 






107152 


0014 76 






107154 


111645 






107156 


015564 




10976 


107160 








107160 


104406 




1097 7 


107162 


004737 


011104 


10978 


107166 


103411 




10979 


107170 


010004 




10:>80 


107172 


016501 


000002 


10981 


107176 


005237 


002212 


10985 


107202 








107202 


104456 






107204 


001477 






107206 


111241 






107210 


012136 




10986 


107212 








107212 


104406 




10987 


107214 


013701 


110160 


10988 


107220 


010102 




10989 


107222 


052702 


000002 


10990 


107226 


020102 




10991 


107230 


001406 




10992 


107232 


005237 


002212 


10996 


107236 








107236 


104456 






107240 


001500 






107242 


111117 






107244 


015564 




10997 


107246 








107246 


104406 




10998 


107250 


012700 


177777 


10999 


107254 


004737 


017512 


11000 


107260 


013737 


003114 110252 


11001 


107266 


012737 


100001 110250 


11002 


107274 


012704 


110250 


11003 


107300 


013737 


000024 110256 


11004 


107306 


010465 


000000 


llOOS 


107312 


004737 


016340 


ri006 


107316 


016501 


0000^2 


11007 


107322 


012702 


100204 


11008 


107326 


020102 




U009 


107330 


001406 




11010 


107332 


005237 


002212 


11014 


107336 
107336 


104456 





222$: 



CKl.OOP 



MOV 


T28BER»6.R1 


MOV 


R1.R2 


BIS 


V?BIT15,R2 


CMP 


R1.R2 


BEQ 


226$ 


INC 


EATKLG 


ERRHRD 


tRRN0.T26RRN.EXPREC 



226$: 



CKLOOP 



J5R 


PC. REWIND 


BCS 


230J 


MOV 


R0,R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T2aRWN.PKTSSR 



230$: CKLOOP 



240$: 



CKLOOP 



.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 

PICK UP XSTO 

SET UP EXPECTED 

ThK SHOULD BE SET 

IS TMK SET 

BR, IF TMK WAS SET CGOOD) 

BUMP COUNT 

TMK NOT SET AFTER SPACE REIV 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 

CALL TAPE REWIND COMMAND 

BR, IF NO PROBLEM 

SAVE PACKET ADDRESS 

GET TSSR 

BUMP COUNT 

REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



LOOP IF SELECTED 



TRAP 



MOV 


T28BFR*6.R1 




MOV 


R1.R2 




BIS 


<«IT1,R2 




CMP 


R1.R2 


i 


BEQ 


240$ 


I 


INC 


FATFLG 


• 


ERRHRD 


ERRNO , T28B0T , EXPREC 


t 



MOV 


«177777,R0 




JSR 


PCFILLMEM 


» 


MOV 


FREE.T28RB 


• 


MOV 


<H00001,T28PK3 


I 


MOV 


0T26PK?,R4 


i 


MOV 


20. ,T2esz 


1 


MOV 


R4,TSDB(R5) 


I 


JSR 


PC.WAITF 


i 


MOV 


TSSRCR5).R1 


t 


MOV 


flSSR!SC!0IT2.R2 


i 


CMP 


R1.R2 


1 


BEQ 


245$ 




INC 


FATFLG 


( 


ERRHRD 


ERRNO, T28WDE.PKTSSR 


t 



PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOES EXP - REC'D 

BR. IF EQUAL COK) 

BUMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP Ir SELECTED 

TRAP 

VALUE TO WRITTEN TO MEMORY 

f-ILL MEM WITH ALL ONES 

STARTING READ BUFFER ADDRESS 

READ FORWARD. ACK. COMMAIC) 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD STiTE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THE.' EQUAL 

DR. IF OK 

BUMP COUNT 

TSSR INCORRECT AFTER WRITt OAT 

TRAP 



SEQ 0337 



T28RDG 
PKTSSR 

C$CLP1 



C$ERHRD 
830 
T28RRN 
EXPREC 

C$CLP1 



C$ERHRD 
831 

T26RWN 
PKTSSR 

C$CLP1 



C$ERHRD 
832 
T28B0T 
EXPREC 

C$CLP1 



ft 



CJERHRD 



TSV 
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107550 


015564 








\\0i\.^ 


107552 
107552 


104406 


^70$'. 


CKi OUP 




11065 


10/554 


015/01 


110156 


t-\o\/ 


T28Bf H.4.R1 


11064 


107560 


01270.^ 


000004 


MUV 


«4. ,R2 


llOoS 


107564 


020102 




CMP 


Rl.Rc' 


11066 


107566 


001406 




tU.Q 


280$ 


11067 


107570 


005257 


002212 


INC 


^ Arnc. 


11071 


107574 
1075/4 
107576 
107600 
107602 


104456 
001506 
110571 
015564 




FRRHRD 


ERRNO, T2ePBP, tXPRLL 


110, '2 


107604 
107604 


104406 


280$: 


CKI OOP 




110/5 


107606 


012757 


100410 110250 


MOV 


dl00410.T28PK5 


11074 


107614 


012757 


OOOOO 1 110252 


MOV 


«l,T2eR6 


11075 


107622 


012704 


110250 


MOV 


«r28PK5.R4 


11076 


107626 


010465 


000000 


MOV 


R4.Tr,0B(R5) 


110/; 


107632 


004737 


016340 


JSR 


PC.WAITF 


11078 


107636 


016501 


000002 


MOV 


T^^,r>RCR5).Rl 


110/9 


107642 


012702 


100204 


MOV 


«*iSR!5C!BIT2,R2 


11080 


107646 


020102 




CMP 


R1.R2 


11081 


10/650 


001406 




BEQ 


290$ 


11082 


107652 


005257 


002212 


INC 


FATFLG 


11086 


107656 
107656 
107660 
107662 
107664 


104456 
001507 
110555 
012156 




ERRHRD 


ERRN0.T28RDG.PKTbSR 


11087 


107666 
107666 


104406 


290$: 


CKLOOP 




11088 


107670 


015701 


110166 


MOV 


T2SBFR.14,R1 


11089 


107674 


010102 




MOV 


R1.R2 


11090 


107676 


052702 


000001 


BIS 


^IT0.R2 


11091 


107702 


020102 




CMP 


RI.R2 


11092 


107704 


001406 




BEQ 


500$ 


11093 


107706 


005237 


002212 


INC 


FATFLG 


11097 


107712 
107712 
107714 
107716 
107720 


104456 
001510 
110314 
015564 




ERRHRD 


ERRN0.T26RIB»EXPnEC 


11098 


107/22 
107 722 


104406 


300$: 


CKLOOP 




11099 


107724 


012757 


lOOOlO 110250 


MOV 


#100010. T28PK3 


11100 


107732 


012737 


000005 110252 


MOV 


05.T28RB 


11101 


107 740 


012704 


110250 


MOV 


0T2aPK3,R4 


11102 


107744 


010465 


000000 


MOV 


R4.TSDB(R5) 


11105 


107750 


004737 


016340 


J5R 


PC.WAITF 


11104 


107754 


016501 


000002 


MOV 


TSSRCR5).R1 


11105 


107760 


012702 


100204 


MOV 


#SSRf5ClBIT2.R2 


11106 


107764 


020102 




CMP 


R1.R2 


1110/ 


107766 


001406 




BEQ 


310< 


11108 


107770 


005237 


002212 


INC 


FATFLG 


X1112 


107774 
107774 


104456 




ERRHRD 


ERRN0.T2QR0P,EXPREC 



',F 



/. /.'J 



,WfUr; f-ypwic 

l\ OOP IF ^M J-CTFD 

TRAP C$C'. PI 

jPICK \P Rt'jIDUAL HrIK CfJUNTtR 

iSHQlMD Bh FHF DTff-FRFNCF 

I r> COUNTFR CORRECT 

I BR, IF COUNTER CORRECT 

(BlJMP COUNT 

IRESIOUAL BYTE COUNTER NUT CORRtCT 

TRAP C$ERl-tPn 

.WORD H^>i 
.WORD T^'^PBP 
.WORD ExPRl C 

TRAP CJCl PI 

COMMAND 
(NUMBER Of RECORD'^ TO SPACE BACK 
iSET UP R4 WITH PACKET ADORES'^ 
I issue COriMANO 
(WAIT FOR SSR TO ".ET 
jGET T5SR CONTENTS 
(SET UP EXPECTED 
jARE THEV EQUAL 
;BR. IF OK 
iBUMP COUNT 
jTSSR INCORRECT AFTER SPACE CMO. 

TRAP 

.WORD 

.WORD 

.WORD 



iLOOP IF SELECTED 

I SPACE REVERSE, ACK 
RECORDS 



(LOOP IF SELECTED 



TRAP 



jPICK UP XST5 

iSET UP EXPECTED 

(RIB SHOULD BE SET 

tIS RIB SET 

iBR, IF RIB WAS SET (GOOD) 

iBUMP COUNT 

jRIB NOT SET AFTER READ 



C$ERHRn 
839 

T28RDG 
PKTSSR 

CSCLPl 



REV 

TRAP 

.WORD 

.WORD 

.WORD 



C$ERHRD 
840 
T28RIU 
FXPHEC 



)L00f^ IF SELECTED 

TRAP CICLPI 

I SPACE FORWARD, ACK, COMMAND 
iNUMBER or RECORDS TO SPACE FORW. 
(SET UP R4 WITH PACKET ADDRESS 
I issue COMMAND 
(WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
I ARE THEY EQUAl 
I BR. IF OK 
;BUMP COUNT 
(TSSR INCORRECT AFTER SPACE CMO* 

TRAP C*eRHRO 
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SYMBOL 


TABLE 
























P. IE - 


000?00 




SPM6 


112610 


TSRLJ * 


000006 




M$CLt:- 


010034 


T?2WRr 


026400 




P.INIi = 


000013 




SPM7 


112640 


TSSDEK 


006676 




T$$OU - 


010032 


T23A 


003154 r, 




P.liOOE^ 


007400 




SWO 


177572 


Tr,SR " 


000002 


G 


T$$HAR» 


010134 


T23An3 


033240 




P.OPP - 


020000 




SRI 


177574 


TSSRBI 


003500 


G 


T^HW - 


010000 


T23B 


003136 G 




P.POSI" 


000010 




SR2 


177576 


TSSRFO 


006505 




T$$INI- 


010030 


T23BA 


033625 




p. READ- 


000001 




SR3 


172516 


TSSRH - 


000003 


G 


TJJMSG^" 


010025 


T23BFR 


032512 




P.GUR - 


OlOOOO 




S5R 


000200 


T5SX 


004016 




T$$PRn- 


01002'' 


T23BF2 


032622 




P. WRIT- 


000005 




STATCO 


012502 


TSTBLK 


002742 


G 


TJ.RPT- 


010035 


T23B50 


032622 




P.WRTC 


000004 




SVCG8L" 


000000 


TSTCNT 


002204 


G 


Tv'-.SOF*. 


010135 


T23BS1 


032623 




P.WRTS= 


000006 




SVCINS- 


000000 


TSTEf^D 


017010 




1 tJSRV- 


010026 


T23CHX 


034162 




QVP 


002174 


G 


svcsue- 


000001 


TSTFLA 


002304 


G 


TMSUB" 


010133 


T23C0N 


032640 




RAMASC 


014246 




SVCTAG- 


' 000000 


TSTLOO 


016546 


G 


T$}SW » 


010001 


T23DAT 


032500 




RAMDAT 


002252 


G 


SVCTST^ 


000001 


TSTPTR 


002306 


G 


T$$TES- 


010130 


T23DSW 


032510 




RAMERR 


015600 


G 


S$LSYM" 


010000 


TSTSET 


016600 


G 


Tl 


023564 G 


T23EnT 


032764 




RAMEXP 


015620 


G 


SO.IDB^ 


000010 


TST21I 


024524 




T2 


024702 G 


T23ET 


03267/ 




RAMFOR 


010206 




SO.IFB^ 


' 000002 


TST22I 


027167 




T2.1 


024 732 


T23L0O 


027426 




RAM5IZ 


002272 


G 


SO.IFP. 


■ 000001 


TST23I 


033766 




T2.? 


025324 


T23GFL 


053306 




RAMTAD 


015606 


G 


SO.ILD- 


• 000020 


TST24I 


046232 




T2.3 


025646 


T23PAC 


032470 




RCVHIA 


002274 


G 


SO.ION- 


000040 


T5T25I 


055200 




T21AH3 


024403 


123PK2 


032600 




RCVLOA 


C02276 


G 


SO.IRD^ 


' 000100 


TST26I 


074527 




T21BFR 


024204 


T23PK3 


032610 




RDERR 


005204 




SO.IRW' 


■ 000004 


T5T27I 


104543 




T21BF2 


024300 


"23RES 


034002 




RECMSG 


002456 


G 


SO. ISP- 


■ 000200 


TST28I 


112161 




T21BS0 


024300 


T23RNC 


033165 




RECV 


002224 


G 


SI. ICE- 


■ 002000 


TSV2 


002000 


G 


T21BS1 


024301 


T23RSZ 


032620 




REGSAV 


020230 




SI, lEO" 


■ 010000 


TSV3 


002166 


G 


T210AT 


024170 


T23RT2 


034074 




RETERR 


005370 




Sl.IFM- 


' 001000 


TSV4 


021636 


G 


T21DLY 


024202 


T25RT3 


034136 




RETRY 


054226 




Sl.IHE- 


' 000400 


TSV6 


112366 


G 


T21DSW 


024200 


"r23RWN 


033116 




REUIND 


011104 


G 


Sl.IID" 


' 004000 


TSV7 


023564 


G 


T21L00 


023614 


T23SSn 


032644 




RMCt-eE* 


000167 




Sl.IlR" 


■ 020000 


TTIBFR. 


- 177562 


G 


I210FL 


024503 


T235Z 


033616 




RliCHEN' 


000200 




S1.I2R' 


• 040000 


TTICSR" 


' 177560 


G 


T21PAC 


024160 


T23S2 


032624 




RMMSGe- 


000215 




Sl.PAK' 


" 100000 


TTIVEC' 


■ 000060 


G 


T21PK2 


024270 


T23S3 


032626 




RMMSGE* 


000234 




S2.ATI" 


' 000010 


TIARGC" 


■ 000003 




T21RES 


024546 


T23TM 


033042 




RMPKTB- 


000201 




S2.BTI" 


" 000004 


TICOOE" 


' 001130 




T21RT2 


024636 


T23TMP 


03P630 




RMPKTE- 


000210 




S2.DIM' 


' 000200 


TIERRN" 


• 001513 




T21SSR 


024306 


T23VCK 


033552 




RMR 


010000 




S2.ILU- 


" 000100 


T$EXCP' 


" 000000 




T2152 


024302 


T23WB 


032612 




RWPACK 


011200 




S2.INR' 


' 000020 


T»FLAG' 


» 000040 




T21S3 


024304 


T23WD 


032634 




SC 


100000 




S2.0UT' 


" 000040 


TJGM'\N" 


• 000000 




T22AM3 


026505 


T23WDC 


033450 




SCE 


020000 




S2.UND' 


" 000003 


T»HILI" 


■ 000776 




T22BrR 


026272 


T23WDD 


033361 




SCHERR 


005276 




TBLEND- 


« 003052 G 


TH.M-T' 


■ 000001 




T22BF2 


026370 


T23U0R 


032636 




5CME 


005011 




TCOASC 


006566 


TJLOLi- 


• 000000 




T22BS0 


026370 


T23WRT 


032632 




SDELAY 


010^50 




TCOCOO 


006766 


T»LSYM- 


• 010000 




T22BS1 


026371 


T25USS 


053677 




SELA5C 


020532 




TEMPI 


003106 G 


TiLTNO 


■ 000010 




T220Ar 


026260 


T24A(i3 


045220 




SELDAT" 


000004 




TEMP2 


003110 G 


TiNEST" 


• nun 




T22F0R 


026404 


T24BA 


045552 




btL2 ' 


000002 




TERCLS- 


• 000016 


TINbO ' 


' 000000 




T22L00 


024732 


Tc4BFR 


043642 




SETHAP 


017406 




TESTNO- 


• 000010 


TiNSl ■ 


« 000005 




T220FL 


026605 


T24BF2 


043V50 




SETU 


022224 




TEXASC 


006525 


T*NS2 • 


■ 000002 




T22PAC 


026250 


T24B0T 


044615 




SFFhSG 


012172 


G 


TFCASC 


006627 


TJPTNU- 


- 000000 




T22PK2 


026560 


T248S0 


043750 




SFHERR 


003703 




TIMEXP 


015642 G 


TISAVL' 


« \i7in 




T22P05 


026402 


T24BS1 


043751 




SriERR 


003650 




TIMSGO 


015670 


TiSEGL' 


' 17777/ 




T22RD 


026376 


T24C0N 


043762 




SFIMSG 


012124 


G 


TINERR 


012111 


TISUBN- 


■ 000003 




V22RES 


027222 


T240AT 


043650 




SKPTBL 


002156 


G 


TMPBFR 


002622 G 


TiTAGL- 


' 177777 




l22Rr2 


02/314 


T24DLY 


04 3^66 




SIFLAG 


003144 


G 


ThJAM 


0\6774 


TITAGN- 


' 010136 




T22RWJ 


026754 


T24DSU 


0436^0 




SIMSG 


012056 




TRANST 


002156 G 


T$TEMP- 


« 000000 




T22SSR 


026410 


T24DTA 


044660 




SKIPT 


003370 




rSBA 


- 000000 G 


TiTEST' 


' 000010 




T22S2 


026372 


T24E01 


044 746 




SOFINI 


016064 


G 


TSBAH 


- 000001 G 


TJTSTM- 


' 17777/ 




T22S3 


026374 


T24ILA 


044 342 




bPACE 


010556 


G 


TSDB 


' 000000 G 


TtTSTS- 


■ 000001 




T22TM 


026660 


T24L0S 


045712 




^JPMl 


112530 




► TSDBH 


« 000001 G 


Ti$AU ' 


' 010031 




T22VCK 


0?7027 


T 24 LOO 


0344K-* 




SPM4 


112560 




TSFCOD 


007326 


TI$AUT" 


' 010033 




T22WLK 


027102 


T24L0P 


045774 





Nil 
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SEQ 03^0 



T24L0Q 

T24L0R 

] .'^4NEF" 

T24NXM 

r240rL 

T24PAC 

T24PBP 

T24PK2 

' 24PK3 

T24RB 

T24RES 

T24RN 

T24RNC 

T24RT2 

T24RT3 

T24RUN 

T24SSR 

T24SZ 

T24S2 

T24S3 

T24TM 

T24TRL 

T24VCK 

T24WB 

T24WDC 

T24W0D 

T24UDE 

T24WDK 

T24WDG 

T24WDR 

T24WSS 

T?5BFR 

T25Br2 

T25BNC 

T25B0T 

T25BS0 

T25BS1 

T25CN.T 

T25CN2 

T25C0N 

T25DAT 

T25DLY 

T2505U 

T25LG0 

T25NEF 

T25NET 

T250FL 

T25PAC 

T25PK2 

T25PK3 

T2=^RB 

T25RES 

T25RIB 

T25RN 

"I25RT2 

T25RT3 

T2bRWN 



044426 
044042 
043770 
044201 
045265 
043620 
046056 
043730 
043740 
043742 
046300 
043756 
045145 
046372 
046434 
045076 
041507 
043746 
043752 
043754 
045023 
046144 
045477 
043742 
045426 
045340 
044541 
044265 
044112 
043760 
045623 
053702 
054010 
054470 
054175 
054010 
054011 
054030 
054026 
054022 
053670 
054032 
053700 
046516 
054643 
054331 
055054 
053660 
053770 
054000 
054002 
055216 
054723 
054016 
055310 
055352 
055005 



T25SSR 

r25SZ 

T25S2 

T25S3 

T25TM 

7 25UB 

T25WDC 

T25W0E 

T25W0R 

T25WNG 

T25U^4H 

T26AM3 

T26BA 

T26BFR 

T26RF2 

T26r.0T 

T26nS0 

UlbBSl 

T26CNT 

T26CNU 

T26DAT 

T26DLY 

T260SU 

T260TA 

T26E0T 

T26L0N 

T26L00 

T26L0P 

T26L0Q 

T26L0R 

T26NEF 

T26NEQ 

T260FL 

T26PAC 

T26PBP 

T26PK2 

T26PK3 

T26RB 

T26RDr 

T26RES 

T26RN 

T26RNC 

T26RRF 

T26RRG 

T2eR5Z 

T26RT2 

T26RT3 

T26RWN 

T26SC 

r26SSR 

T26SZ 

T26S2 

T26S3 

T26Tf1 

T26TRL 

T26VCK 

T26U3 



054034 
054006 
054012 
054014 
054242 
054002 
055127 
054115 
054020 
054405 
054560 
073426 
07376S 
071652 
071760 
073015 
071760 
071761 
071776 
072000 
071640 
072004 
071650 
073062 
07315C 
074130 
055444 
074212 
072626 
072501 
072074 
074450 
073475 
071630 
074274 
071740 
071750 
071752 
072156 
074540 
071766 
073353 
072225 
072322 
072002 
074632 
074674 
073304 
072417 
072707 
071756 
071762 
071764 
073227 
074362 
073/13 
071752 



T26WDC 


073640 


T26W0D 


075550 


T26WDE 


072743 


T26W0K 


072551 


T26UNG 


072006 


T26WSS 


074041 


T27AM3 


103107 


T27BA 


103447 


T27BFR 


101462 


T27BF2 


101170 


T27B0T 


I'^p"^'- - 


T27BS0 


■, ..-^ 


T27BS1 


. i 1 


T27CNT 


101606 


T27CNU 


101610 


T27C0N 


10160^ 


T27DAT 


101450 


T270LY 


101612 


T27DSW 


101460 


T270TA 


104446 


T27E0T 


102631 


T27L0N 


103611 


T27L00 


074766 


T27L0P 


103673 


T27L0Q 


102255 


T27L0R 


102130 


T27NEF 


104131 


T270FL 


103156 


T27PAC 


101440 


T27PBP 


103755 


TP7PK2 


101550 


T27PK3 


101560 


T27RB 


101562 


T27R0F 


101702 


T27RES 


104564 


T27RN 


101576 


T27RNC 


103034 


T27RRF 


101751 


r27RT2 


104656 


T27RT3 


104720 


T27RUN 


102765 


T27SC 


102046 


T27SCF 


104227 


T27SSR 


10P336 


T27SZ 


101566 


■^ n 7 r r. 


101572 


T27S3 


101574 


T27TIM 


102554 


T27TM 


102710 


T27TRL 


10400 > 


T27TSA 


1043r 


T27VCK 


1033. 


T27WB 


101562 


T27U0C 


103321 


T27UD0 


103231 


T27WDE 


10237^ 


T27UDF 


102200 



T27WDR 

T27WNG 

T27WRF 

T27WSS 

T28BFR 

T28BF2 

T28B0T 

T28BS0 

T28BS1 

T28CNT 

T28CNU 

T28C0N 

T28DAT 

T28DLY 

T28DSW 

T28DTA 

T28DTR 

T28IMV 

T28L00 

T28L0Q 

T280FL 

T28PAC 

T28PBP 

T28PK2 

T28PK3 

T28RB 

T28RDF 

T28R0G 

T28RES 

T28RIB 

T28RN 

T28RRM 

T28RRN 

T28RRP 

T28RT2 

T26RT3 

T28RWN 

T26SSR 

T28SZ 

T28S2 

T28S3 

T28TM 

T2CTMK 

T28VCK 

T28W3 

T28UDC 

T28WDE 

T28WDF 

T28'tDR 

T3 

T3BFLG 

T3.1 

T5.2 

T3.3 

T5.4 

T 3 . 5 

T3.6 



101600 
101614 
104366 
103522 
110152 
110260 
111117 
110260 
110261 
110306 
110310 
110302 
110140 
110312 
110150 
112064 
112002 
110266 
105000 
110674 
111310 
110130 
110371 
110240 
110250 
110252 
110454 
3 10535 
112206 
110314 
110276 
111567 
111645 
111724 
112300 
112342 
111241 
110755 
110256 
110262 
110264 
111164 
111515 
111442 
110252 
111363 
11.1026 
110617 
110300 
027362 
003140 
027426 
030000 
030650 
031470 
031704 
032136 



T4 


034 352 G 


T4.1 


034412 


T4.10 


0^1636 


T4.11 


04210? 


T4.12 


042354 


T4.13 


042610 


T4.14 


043110 


T4.2 


035034 


T4.3 


035614 


T4.4 


036370 


T4.5 


0370 7,;^ 


T4.6 


0375:^6 


T4 . 7 


040172 


T4.8 


040626 


T4.9 


041220 


T5 


046466 G 


T5.1 


046516 


T5.2 


047472 


15. 3 


050072 


T5.4 


050546 


T5.5 


051212 


T5.6 


051752 


T5.7 


052712 


T5.8 


053232 


T6 


055404 G 


T6.1 


055444 


T6.10 


065064 


T6.11 


065740 


T6.12 


066610 


T6.13 


067542 


T6.14 


070552 


T6.15 


071132 


T6.2 


056356 


T6.3 


057224 


T6.4 


060116 


T6.5 


061044 


T6.6 


061622 


T6.7 


062464 


T6.8 


063336 


T6.9 


064210 


T7 


074726 G 


T7.r 


074 766 


T7.2 


075364 


T7.3 


076146 


T7.4 


076770 


T7.5 


077672 


T8 


104 744 G 


T8.1 


105000 


TO. 2 


105360 


T8.3 


105640 


UAM 


000200 G 


UNITN 


002172 G 


UNREC ' 


000006 


USI 


004121 


WAITF 


016340 G 


UC.IFA- 


000200 


WC.IFE= 


000002 



SlMfini TARl [ 



'.f 'i OiM 



WC.IGO- 


00000 I 


URTt.RR 


OOSUl 


XSoii A- 


000400 


A O Al 1. 


• 000040 


x.-* 


.WNl 


00000 / 


UC.IPl ■ 


000010 


WRTh'jtl 


oor.0%4 


XSOIL.C 


001000 


X • OM J 


< 000400 


X(' 


.WC^ 


oOf'Ofo 


WC.IRW- 


000001 


USMflK 


0^1560 b 


X'iOl F.T- 


O^'OOOO 


XiTRI* 


• 0000. '0 


y '. 


DCK 


000010 


UC.IOT- 


000100 


XKERAS 


016050 


XSOMOI • 


000^00 


XI. COR 


• 0^0000 


X5 


MO/ 


■ 00000*. 


WC.UT- 


000040 


XNxri 


0l^4^6 


XSONtf ■ 


OOi'OOO 


X 1 . Dl. T 


■ I 00000 


X5 


MDf 


I //40(> 


WC.ISR" 


OOOOcY^ 


XORBFO 


00//fe4 


XSOONl 


' 000100 


XI .M(»/ 


OlM/S 


X'. 


OP I 


' 00'il(>^ 


UF. IFO- 


0000 10 


XORFijR 


OlOlOr' 


xsopeo- 


• 000010 


XI .RHP 


• 000400 


X5 


R^ V 


• 00004() 


Wf . ItR" 


000004 


XSTO - 


000006 (, 


XSORl L 


• 010000 


XI .SPA 


• 040000 


y5 


RI9 


• 00* )O0 1 


u^ . iHiw 


000 i' 00 


XSTl - 


000010 (i 


X50RL S- 


■ 040000 


X 1 . l»^C 


- 00000.' 


y5 


SPA- 


000, 'Ou 


Uf . IRE- 


000040 


XST.? " 


0000 U> G 


XSOTMK 


100000 


X.\Ht> 


■ 000100 


/.', 


TRf 


' OOOO.'O 


wf ,iwr- 


0000^*0 


XST5 - 


000014 1, 


XSOVCK 


■ 0000 ?0 


Xr'.txr 


' 000 r* 00 


y4 


HSP 


lOOC^o 


Uf .IWR- 


oooioo 


Xr,T4 • 


0OO016 


XSOWVF 


004000 


X.' . OPM 


■ 100000 


/4 


MR/ 


01 '4n(j 


W* . I 5H - 


OOOOOc^ 


xsoBor- 


00000? 


XSOWIK 


■ 000004 


X,>.RC( 


' 040O00 


y4 


Rce 


04000" 


WF . \AU' 


OOOOOl 


xsoeoT* 


OOOOOl 


XXCOMM 


00511.' Ci 


X^'.Rf V 


' 0000 / ^ 


>4 


r.M 


0.'00O(J 


WRTCHR 


01075^ G 


XSOlb - 


000040 


XJALWA 


■ 000000 


X^.V.PA' 


■ 035A00 


XA 


.WRC« 


> oooit/*" 


. ABS. 


115004 000 
000000 001 


















t'WRORS 


DHTtCTED: 





















VIRTUAL MtMORr USED: ."^flSeO WOROi:. ( U5 PACf/-) ) 

Dynamic MeMORY: ?oo60 words c ?? pages ■» 

El APStO Tim- : f^0:5l:?0 
CNT'JCA0.BIC,CNTGCA0.3EQ/-SP«SVC34/ML,TbVlC,TiiV22C,TSV3b.TSV4,TiiVVA,TuVb 



CI 
[U 

t 1 
f 1 

HI 

n 

Ji 

Kl 
l.l 
Ml 
Nl 



S 
.J 

* r 

U.J 

il^ 
1% 
JS 
KS 

L') 
M'. 
N5 



. V) 

.J'J 

.N9 



1?. 
J? 
\<? 
IP 



Ob 
f'f. 

Gb 
Hb 
16 
J6 
1<6 
Lb 
M6 
N6 



.ttlO 
.CIO 
.010 
.hlO 
.KIO 
.GIO 
.HIO 
.110 
.JIO 
.KIO 
.LIO 
.MIO 
.MO 



\'^ 

G5 
H5 

!'*> 
J3 
l<? 
1 "^ 

Ni 



.B/ 

,a 

.07 
.K/ 
.FV 
.b/ 
.HV 
.17 
. J7 
.K7 
.1./ 
.M/ 
.N7 



BU 
Cll 
Oil 

r.ii 
1-11 

Gil 
HU 
111 
JU 
Kll 
I 11 
MU 
Nil 



B4 

C4 
04 

t:4 

f 4 

G4 
H4 
14 
J4 
l<4 
I 4 
M4 
,N4 



.DB 
.Ffl 

.ra 

.G8 
.H8 
.18 
. J« 
.K8 
.L8 
.M8 
.N6 



.B12 



